JMBAG Koha patches

diff --git a/koha-patches/jmbag-circulation.diff b/koha-patches/jmbag-circulation.diff
new file mode 100644 (file)
index 0000000..05485d6
--- /dev/null
+++ b/koha-patches/jmbag-circulation.diff
@@ -0,0 +1,19 @@
+commit 294e480d7c44eb95f57ed502c3f8b0dd73e6e36f
+Author: dpavlin <gimpoz>
+Date:   Tue Jun 21 23:23:55 2011 +0200
+
+    gimpoz: /usr/share/koha/intranet/cgi-bin/circ/circulation.pl [commit]
+
+diff --git a/gimpoz/usr/share/koha/intranet/cgi-bin/circ/circulation.pl b/gimpoz/usr/share/koha/intranet/cgi-bin/circ/circulation.pl
+index 8cd9fa9..3398e73 100755
+--- a/gimpoz/usr/share/koha/intranet/cgi-bin/circ/circulation.pl
++++ b/gimpoz/usr/share/koha/intranet/cgi-bin/circ/circulation.pl
+@@ -93,6 +93,8 @@ my %renew_failed;
+ 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|,| |g;
+ my $borrowernumber = $query->param('borrowernumber');
+ 

diff --git a/koha-patches/jmbag-member.pl b/koha-patches/jmbag-member.pl
new file mode 100644 (file)
index 0000000..68193f0
--- /dev/null
+++ b/koha-patches/jmbag-member.pl
@@ -0,0 +1,25 @@
+commit 94f6e800aa4d3e28400d5277667e38ac3374e6d4
+Author: dpavlin <gimpoz>
+Date:   Tue Jun 21 22:39:08 2011 +0200
+
+    gimpoz: /usr/share/koha/intranet/cgi-bin/members/member.pl [commit]
+
+diff --git a/gimpoz/usr/share/koha/intranet/cgi-bin/members/member.pl b/gimpoz/usr/share/koha/intranet/cgi-bin/members/member.pl
+index 227e2ba..9b0e201 100755
+--- a/gimpoz/usr/share/koha/intranet/cgi-bin/members/member.pl
++++ b/gimpoz/usr/share/koha/intranet/cgi-bin/members/member.pl
+@@ -92,6 +92,14 @@ else {
+       @orderby = ({surname=>0},{firstname=>0});
+ }
+ 
++# FIXME JBMAG - dpavlin for FER
++# %B6019832100364499042&KELAVA-MARKO              &1412990170045_�6019832100364499042_
++#          S003644990
++if ( $member =~ m/%B60198321(\d{10})\d&/ ) {
++      $member = 'S' . $1;
++      warn "JMBAG: $member\n";
++}
++
+ $member =~ s/,//g;   #remove any commas from search string
+ $member =~ s/\*/%/g;
+