koha-patches/jmbag-member.pl

   1 commit 94f6e800aa4d3e28400d5277667e38ac3374e6d4
   2 Author: dpavlin <gimpoz>
   3 Date:   Tue Jun 21 22:39:08 2011 +0200
   4
   5     gimpoz: /usr/share/koha/intranet/cgi-bin/members/member.pl [commit]
   6
   7 diff --git a/gimpoz/usr/share/koha/intranet/cgi-bin/members/member.pl b/gimpoz/usr/share/koha/intranet/cgi-bin/members/member.pl
   8 index 227e2ba..9b0e201 100755
   9 --- a/gimpoz/usr/share/koha/intranet/cgi-bin/members/member.pl
  10 +++ b/gimpoz/usr/share/koha/intranet/cgi-bin/members/member.pl
  11 @@ -92,6 +92,14 @@ else {
  12         @orderby = ({surname=>0},{firstname=>0});
  13  }
  14
  15 +# FIXME JBMAG - dpavlin for FER
  16 +# %B6019832100364499042&KELAVA-MARKO              &1412990170045_�6019832100364499042_
  17 +#          S003644990
  18 +if ( $member =~ m/%B60198321(\d{10})\d&/ ) {
  19 +       $member = 'S' . $1;
  20 +       warn "JMBAG: $member\n";
  21 +}
  22 +
  23  $member =~ s/,//g;   #remove any commas from search string
  24  $member =~ s/\*/%/g;
  25