Whoops; a bad username was causing perl warning messages.

This commit is contained in:
terry%netscape.com 1998-09-15 22:12:52 +00:00
Родитель 78b646104b
Коммит 3d430b3faf
1 изменённых файлов: 1 добавлений и 1 удалений

Просмотреть файл

@ -348,7 +348,7 @@ sub DBname_to_id {
my ($name) = (@_);
SendSQL("select userid from profiles where login_name = @{[SqlQuote($name)]}");
my $r = FetchOneColumn();
if ($r eq "") {
if (!defined $r || $r eq "") {
return 0;
}
return $r;