[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha ISBDdetail.pl,1.4.2.1,1.4.2.2
From: |
Paul POULAIN |
Subject: |
[Koha-cvs] CVS: koha ISBDdetail.pl,1.4.2.1,1.4.2.2 |
Date: |
Fri, 23 Sep 2005 04:09:30 -0700 |
Update of /cvsroot/koha/koha
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17406
Modified Files:
Tag: rel_2_2
ISBDdetail.pl
Log Message:
ISBD decoding accepts 4 digits before the field.
Index: ISBDdetail.pl
===================================================================
RCS file: /cvsroot/koha/koha/ISBDdetail.pl,v
retrieving revision 1.4.2.1
retrieving revision 1.4.2.2
diff -C2 -r1.4.2.1 -r1.4.2.2
*** ISBDdetail.pl 3 Feb 2005 15:25:29 -0000 1.4.2.1
--- ISBDdetail.pl 23 Sep 2005 11:09:28 -0000 1.4.2.2
***************
*** 102,106 ****
my $subfieldvalue =
get_authorised_value_desc($tag, $subf[$i][0], $subf[$i][1], '', $dbh);;
my $tagsubf =
$tag.$subfieldcode;
! $calculated =~
s/\{(.?.?.?)$tagsubf(.*?)\}/$1$subfieldvalue\{$1$tagsubf$2\}$2/g;
}
# field builded, store the result
--- 102,106 ----
my $subfieldvalue =
get_authorised_value_desc($tag, $subf[$i][0], $subf[$i][1], '', $dbh);;
my $tagsubf =
$tag.$subfieldcode;
! $calculated =~
s/\{(.?.?.?.?)$tagsubf(.*?)\}/$1$subfieldvalue\{$1$tagsubf$2\}$2/g;
}
# field builded, store the result
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha ISBDdetail.pl,1.4.2.1,1.4.2.2,
Paul POULAIN <=