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

[koha.git] / members / member.pl

diff --git a/members/member.pl b/members/member.pl
index 227e2ba..c5ea894 100755 (executable)
--- a/members/member.pl
+++ b/members/member.pl
@@ -92,6 +92,9 @@ else {
        @orderby = ({surname=>0},{firstname=>0});
 }
 
+warn "[$member]";
+# FIXME dpavlin - FER
+$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;