Объединенный Открытый Проект

Итак, проблема такая - любой регистрирующийся пользователь получает сообщение "Такое имя пользователя уже существует"... какое бы имя не вводилось - пишет, что уже существует. Форум переставлял - соответственно исходники свежие, возможно, что проблема с БД.
Умозаключения. Файл 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
},
);
}


Это то, где может, на мой взгляд, возникнуть ошибка. Или же свсе же ошибка в БД?

Как исправить - помогите. Заранее благодарен.
С Уважением.