From 0464b08ac06128a7e60b373d0892f191f9316c81 Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Thu, 23 Jun 2011 20:33:14 +0200
Subject: [PATCH] JMBAG parsing into short cardnumber

parsing of X-ica using http://www.cap.srce.hr/IzgledX.aspx
---
 circ/circulation.pl | 2 ++
 members/member.pl   | 6 ++++++
 2 files changed, 8 insertions(+)

diff --git a/circ/circulation.pl b/circ/circulation.pl
index 81737ee8e1..1daf10efa2 100755
--- 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');
 
diff --git a/members/member.pl b/members/member.pl
index ad3ee854ad..6fc64af289 100755
--- a/members/member.pl
+++ b/members/member.pl
@@ -53,6 +53,12 @@ foreach (keys %$patron){
 my $searchmember = $input->param('searchmember');
 my $quicksearch = $input->param('quicksearch') // 0;
 
+warn "[$searchmember]";
+# FIXME dpavlin - FER
+$searchmember =~ s/^.*%B601983\d\d(\d{10})\d&.*$/S$1/ && warn "JMBAG: $1";
+$searchmember =~ s/,//g;   #remove any commas from search string
+$searchmember =~ s/\*/%/g;
+
 if ( $quicksearch and $searchmember ) {
     my $branchcode;
     if ( C4::Branch::onlymine ) {
-- 
2.11.0