Permalink
Browse files

fixing strange bug when cardnumber not set and borrower does not exis…

…ts : sometimes finded value anyway !
  • Loading branch information...
1 parent 2af3fac commit fffb89aef4f77628e45b3d08fbf4281736e70880 tipaul committed May 19, 2003
Showing with 9 additions and 5 deletions.
  1. +9 −5 C4/Search.pm
View
@@ -1785,6 +1785,7 @@ the C<borrowers> table in the Koha database.
#'
sub borrdata {
my ($cardnumber,$bornum)=@_;
+ warn "bornum $bornum";
$cardnumber = uc $cardnumber;
my $dbh = C4::Context->dbh;
my $query;
@@ -1801,12 +1802,15 @@ sub borrdata {
if ($data) {
return($data);
} else { # try with firstname
- my $sth=$dbh->prepare("select * from borrowers where firstname='$cardnumber'");
- $sth->execute;
- my $data=$sth->fetchrow_hashref;
- $sth->finish;
- return($data);
+ if ($cardnumber) {
+ my $sth=$dbh->prepare("select * from borrowers where firstname='$cardnumber'");
+ $sth->execute;
+ my $data=$sth->fetchrow_hashref;
+ $sth->finish;
+ return($data);
+ }
}
+ return undef;
}
=item borrissues

0 comments on commit fffb89a

Please sign in to comment.