[Koha-cvs] CVS: koha/opac opac-ISBDdetail.pl,1.5.2.4,1.5.2.5

[Paul POULAIN]

Update of /cvsroot/koha/koha/opac
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3048/opac

Modified Files:
      Tag: rel_2_2
        opac-ISBDdetail.pl 
Log Message:
ISBD decoding accepts 4 digits before the field.

Index: opac-ISBDdetail.pl
===================================================================
RCS file: /cvsroot/koha/koha/opac/opac-ISBDdetail.pl,v
retrieving revision 1.5.2.4
retrieving revision 1.5.2.5
diff -C2 -r1.5.2.4 -r1.5.2.5
*** opac-ISBDdetail.pl  22 Jun 2005 12:51:10 -0000      1.5.2.4
--- opac-ISBDdetail.pl  23 Sep 2005 10:08:41 -0000      1.5.2.5
***************
*** 115,119 ****
                                                my $subfieldvalue = 
get_authorised_value_desc($tag, $subf[$i][0], $subf[$i][1], '', $dbh);
                                                my $tagsubf = 
$tag.$subfieldcode;
!                                               $calculated =~ 
s/\{(.?.?.?)$tagsubf(.*?)\}/$1$subfieldvalue$2\{$1$tagsubf$2\}/g;
                                        }
                                        # field builded, store the result
--- 115,119 ----
                                                my $subfieldvalue = 
get_authorised_value_desc($tag, $subf[$i][0], $subf[$i][1], '', $dbh);
                                                my $tagsubf = 
$tag.$subfieldcode;
!                                               $calculated =~ 
s/\{(.?.?.?.?)$tagsubf(.*?)\}/$1$subfieldvalue$2\{$1$tagsubf$2\}/g;
                                        }
                                        # field builded, store the result