fix for bug #54

diff --git a/C4/Search.pm b/C4/Search.pm
index 41175e7..0c82632 100755 (executable)
--- a/C4/Search.pm
+++ b/C4/Search.pm
@@ -1802,7 +1802,15 @@ sub borrdata {
   $sth->execute;
   my $data=$sth->fetchrow_hashref;
   $sth->finish;
-  return($data);
+  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);
+       }
 }
 
 =item borrissues