JMBAG parsing into short cardnumber

[koha_fer] / circ / circulation.pl

diff --git a/circ/circulation.pl b/circ/circulation.pl
index 81737ee..1daf10e 100755 (executable)
--- a/circ/circulation.pl
+++ b/circ/circulation.pl
@@ -98,6 +98,8 @@ my ( $template, $loggedinuser, $cookie ) = get_template_and_user (
 my $branches = GetBranches();
 
 my $findborrower = $query->param('findborrower') || q{};
+# FIXME dpavlin - FER
+$findborrower =~ s/^.*%B601983\d\d(\d{10})\d&.*$/S$1/ && warn "JMBAG: $1";
 $findborrower =~ s|,| |g;
 my $borrowernumber = $query->param('borrowernumber');