parsing of X-ica using http://www.cap.srce.hr/IzgledX.aspx
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');
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 ) {