fix parsing of X-ica using http://www.cap.srce.hr/IzgledX.aspx

diff --git a/circ/circulation.pl b/circ/circulation.pl
index 3398e73..4f74f14 100755 (executable)
--- a/circ/circulation.pl
+++ b/circ/circulation.pl
@@ -94,7 +94,7 @@ 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/^.*%B601983\d\d(\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 3a5ae90..c5ea894 100755 (executable)
--- a/members/member.pl
+++ b/members/member.pl
@@ -92,8 +92,9 @@ else {
        @orderby = ({surname=>0},{firstname=>0});
 }
 
+warn "[$member]";
 # FIXME dpavlin - FER
-$member =~ s/^.*%B60198321(\d{10})\d&.*$/S$1/ && warn "JMBAG: $1";
+$member =~ s/^.*%B601983\d\d(\d{10})\d&.*$/S$1/ && warn "JMBAG: $1";
 $member =~ s/,//g;   #remove any commas from search string
 $member =~ s/\*/%/g;