From f3e5fcd15d6177330f56ec61c931d9f50c2d3cad Mon Sep 17 00:00:00 2001
From: shedges <shedges>
Date: Sun, 5 Sep 2004 22:33:12 +0000
Subject: [PATCH] Fix bug 789 (in HEAD)

---
 C4/Search.pm      | 9 +++++----
 members/member.pl | 1 +
 2 files changed, 6 insertions(+), 4 deletions(-)

diff --git a/C4/Search.pm b/C4/Search.pm
index 85368ce188..67b0ec50b2 100755
--- a/C4/Search.pm
+++ b/C4/Search.pm
@@ -1887,10 +1887,11 @@ sub BornameSearch  {
 		";
 		@bind=("$data[0]%","% $data[0]%","$data[0]%","% $data[0]%","$data[0]%","% $data[0]%");
 		for (my $i=1;$i<$count;$i++){
-		$query=$query." and (".
-		" firstname  like ? or firstname like ?
-		or othernames like ? or othernames like ?)";
-		push(@bind,"$data[$i]%","% $data[$i]%","$data[$i]%","% $data[$i]%");
+		        $query=$query." and (".
+		        " surname like ? or surname like ?
+                        or firstname  like ? or firstname like ?
+		        or othernames like ? or othernames like ?)";
+		        push(@bind,"$data[$i]%","% $data[$i]%","$data[$i]%","% $data[$i]%","$data[$i]%","% $data[$i]%");
 					# FIXME - .= <<EOT;
 		}
 		$query=$query.") or cardnumber = ?
diff --git a/members/member.pl b/members/member.pl
index 409fe66adb..726b6b976a 100755
--- a/members/member.pl
+++ b/members/member.pl
@@ -50,6 +50,7 @@ my ($template, $loggedinuser, $cookie)
 			     });
 
 my $member=$input->param('member');
+$member =~ s/,//g;   #remove any commas from search string
 
 my $env;
 
-- 
2.39.2