rust-resisting
Новичок
Всего сообщений: 1 Рейтинг пользователя: 0
Дата регистрации на форуме: 8 сен. 2005
|
Профиль | Сообщить модератору | ИгнорироватьNEW! Сообщение отправлено: 8 сентября 2005 15:16
Итак, проблема такая - любой регистрирующийся пользователь получает сообщение "Такое имя пользователя уже существует"... какое бы имя не вводилось - пишет, что уже существует. Форум переставлял - соответственно исходники свежие, возможно, что проблема с БД.
Умозаключения. Файл Register.pm -
my $name_check = $mem->CheckName( DB =>$db, NAME =>$iB::IN{'UserName'} );
$std->Error(DB=>$db,LEVEL=>'1',MESSAGE=>"user_exists") if $name_check->{'MEMBER_NAME'};
Функция из файла Lib/Func.pm
sub CheckName {
my $obj = shift;
my $IN = { DB => "",
NAME => "",
@_,
};
return $IN->{'DB'}->query( TABLE =>'member_profiles',
INDEX => { KEY => 'MEMBER_NAME',
VALUE => $IN->{'NAME'},
CASE => 1
},
);
}
Это то, где может, на мой взгляд, возникнуть ошибка. Или же свсе же ошибка в БД?
Как исправить - помогите. Заранее благодарен.
С Уважением. |