Removed warning lines

This commit is contained in:
tonnesen 2002-07-11 19:48:22 +00:00
parent 187cf8c486
commit 15498e985c
1 changed files with 0 additions and 2 deletions

View File

@ -165,7 +165,6 @@ sub checkpw {
#
my ($dbh, $userid, $password) = @_;
warn "Checking $userid $password";
my $sth=$dbh->prepare("select password from borrowers where userid=?");
$sth->execute($userid);
if ($sth->rows) {
@ -183,7 +182,6 @@ sub checkpw {
}
}
my $configfile=configfile();
warn "$userid $configfile->{'user'} $password $configfile->{'pass'}";
if ($userid eq $configfile->{'user'} && $password eq $configfile->{'pass'}) {
# Koha superuser account
return 1;