got borrowers working with truncated names

C4/Circulation/Borrower.pm

@@ -138,7 +138,7 @@ sub findoneborrower {
     # where surname ~* '$borcode' order by surname";
 	      
     my $borquery = "Select * from borrowers 
-      where lower(surname) = \"$lcborcode\" order by surname,firstname";
+      where lower(surname) like \"$lcborcode%\" order by surname,firstname";
     my $sthb =$dbh->prepare($borquery);
     $sthb->execute;
     my $cntbor = 0;