JMBAG parsing into short cardnumber

diff --git a/circ/circulation.pl b/circ/circulation.pl
index 8cd9fa9..3398e73 100755 (executable)
--- a/circ/circulation.pl
+++ b/circ/circulation.pl
@@ -93,6 +93,8 @@ my %renew_failed;
 for (@failedrenews) { $renew_failed{$_} = 1; }
 
 my $findborrower = $query->param('findborrower');
+# FIXME dpavlin - FER
+$findborrower =~ s/^.*%B60198321(\d{10})\d&.*$/S$1/ && warn "JMBAG: $1";
 $findborrower =~ s|,| |g;
 my $borrowernumber = $query->param('borrowernumber');
 

diff --git a/members/member.pl b/members/member.pl
index 227e2ba..3a5ae90 100755 (executable)
--- a/members/member.pl
+++ b/members/member.pl
@@ -92,6 +92,8 @@ else {
        @orderby = ({surname=>0},{firstname=>0});
 }
 
+# FIXME dpavlin - FER
+$member =~ s/^.*%B60198321(\d{10})\d&.*$/S$1/ && warn "JMBAG: $1";
 $member =~ s/,//g;   #remove any commas from search string
 $member =~ s/\*/%/g;