Upgrading C4/Members in regards with C4/SQLHelper

Adding cardnumber as a search criteria

diff --git a/C4/Members.pm b/C4/Members.pm
index bd82c71..4b525f0 100644 (file)
--- a/C4/Members.pm
+++ b/C4/Members.pm
@@ -257,7 +257,7 @@ sub Search {
                my $matching_records = C4::Members::Attributes::SearchIdMatchingAttribute($filter);
                push @filters,@$matching_records;
     }
-       $searchtype||="wide";
+       $searchtype||="start_with";
        my $data=SearchInTable("borrowers",\@filters,$orderby,$limit,$columns_out,$search_on_fields,$searchtype);
 
     return ( $data );

diff --git a/members/member.pl b/members/member.pl
index 73af8ae..e7f297b 100755 (executable)
--- a/members/member.pl
+++ b/members/member.pl
@@ -99,7 +99,7 @@ push @searchpatron, $patron if (keys %$patron);
 my $from= ($startfrom-1)*$resultsperpage;
 my $to=$from+$resultsperpage;
  #($results)=Search(\@searchpatron,{surname=>1,firstname=>1},[$from,$to],undef,["firstname","surname","email","othernames"]  ) if (@searchpatron);
- ($results)=Search(\@searchpatron,{surname=>1,firstname=>1},undef,undef,["firstname","surname","email","othernames"]  ) if (@searchpatron);
+ ($results)=Search(\@searchpatron,{surname=>1,firstname=>1},undef,undef,["firstname","surname","email","othernames","cardnumber"]  ) if (@searchpatron);
 if ($results){
        $count =scalar(@$results);
 }