JMBAG parsing into short cardnumber

[koha_fer] / members / member.pl

diff --git a/members/member.pl b/members/member.pl
index ad3ee85..6fc64af 100755 (executable)
--- a/members/member.pl
+++ b/members/member.pl
@@ -53,6 +53,12 @@ foreach (keys %$patron){
 my $searchmember = $input->param('searchmember');
 my $quicksearch = $input->param('quicksearch') // 0;
 
+warn "[$searchmember]";
+# FIXME dpavlin - FER
+$searchmember =~ s/^.*%B601983\d\d(\d{10})\d&.*$/S$1/ && warn "JMBAG: $1";
+$searchmember =~ s/,//g;   #remove any commas from search string
+$searchmember =~ s/\*/%/g;
+
 if ( $quicksearch and $searchmember ) {
     my $branchcode;
     if ( C4::Branch::onlymine ) {