Fix bug 789 (in HEAD)

diff --git a/C4/Search.pm b/C4/Search.pm
index 85368ce..67b0ec5 100755 (executable)
--- 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 409fe66..726b6b9 100755 (executable)
--- 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;