JMBAG: support in circulation for random junk from reader

diff --git a/intranet/cgi-bin/circ/circulation.pl b/intranet/cgi-bin/circ/circulation.pl
index 43ce1aa..b2bf087 100755 (executable)
--- a/intranet/cgi-bin/circ/circulation.pl
+++ b/intranet/cgi-bin/circ/circulation.pl
@@ -246,6 +246,8 @@ if ( $print eq 'yes' && $borrowernumber ne '' ) {
 #
 my $message;
 if ($findborrower) {
+       # FIXME dpavlin - FER
+       $findborrower =~ s/^.*%B601983\d\d(\d{10})\d&.*$/S$1/ && warn "JMBAG: $1";
     my $patron = Koha::Patrons->find( { cardnumber => $findborrower } );
     if ( $patron ) {
         $borrowernumber = $patron->borrowernumber;