From 86631c1a8e787eddbff6f4a57fe1fb3ceb7b1fc3 Mon Sep 17 00:00:00 2001
From: tipaul <tipaul>
Date: Wed, 19 Mar 2003 21:37:21 +0000
Subject: [PATCH] fix for bug #54

---
 C4/Search.pm | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/C4/Search.pm b/C4/Search.pm
index 41175e7f83..0c82632969 100755
--- 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
-- 
2.20.1