fix warnings on DBID_to_real_or_loginname. thanks to endico@mozilla.org

This commit is contained in:
cyeh%bluemartini.com 2000-05-08 18:23:55 +00:00
parent 641299de14
commit 84999f1146

View File

@ -550,7 +550,7 @@ sub DBID_to_real_or_loginname {
my ($id) = (@_);
SendSQL("SELECT login_name,realname FROM profiles WHERE userid = $id");
my ($l, $r) = FetchSQLData();
if ($r eq "") {
if (!defined $r || $r eq "") {
return $l;
} else {
return "$l ($r)";
@ -562,7 +562,7 @@ sub DBID_to_name {
if (!defined $::cachedNameArray{$id}) {
SendSQL("select login_name from profiles where userid = $id");
my $r = FetchOneColumn();
if ($r eq "") {
if (!defined $r || $r eq "") {
$r = "__UNKNOWN__";
}
$::cachedNameArray{$id} = $r;