From 16cdde7a0617bd958857ca460956b9df51b0efb8 Mon Sep 17 00:00:00 2001
From: chris <chris>
Date: Wed, 29 Dec 1999 09:20:04 +0000
Subject: [PATCH] search script

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

diff --git a/C4/Search.pm b/C4/Search.pm
index e6828d9..f4f430c 100755
--- a/C4/Search.pm
+++ b/C4/Search.pm
@@ -437,6 +437,7 @@ sub BornameSearch  {
   where surname like '%$searchstring%' 
   or firstname  like '%$searchstring%' 
   or othernames like '%$searchstring%'
+  or cardnumber = '$searchstring'
   order by surname,firstname";
   #print $query,"\n";
   my $sth=$dbh->prepare($query);
@@ -482,8 +483,14 @@ borrowernumber='$bornum' and date_due < now() and returndate is NULL");
   $sth->execute;
   my $data2=$sth->fetchrow_hashref;
   $sth->finish;
+  $sth=$dbh->prepare("Select sum(amountoutstanding) from accountlines where
+borrowernumber='$bornum'");
+  $sth->execute;
+  my $data3=$sth->fetchrow_hashref;
+  $sth->finish;
   $dbh->disconnect;
-  return($data2->{'count(*)'},$data->{'count(*)'});
+
+return($data2->{'count(*)'},$data->{'count(*)'},$data3->{'sum(amountoutstanding)'});
 }
 		  
 sub getacctlist {