[Koha-patches] [PATCH] small (UNIMARC) fix, error in regexp writing
paul.poulain at biblibre.com
paul.poulain at biblibre.com
Wed May 28 18:48:09 CEST 2008
From: Paul POULAIN <paul.poulain at biblibre.com>
---
C4/Biblio.pm | 4 ++--
1 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/C4/Biblio.pm b/C4/Biblio.pm
index cb26285..99996f5 100755
--- a/C4/Biblio.pm
+++ b/C4/Biblio.pm
@@ -999,7 +999,7 @@ sub GetMarcSubjects {
my $subfield9 = $field->subfield('9');
for my $subject_subfield (@subfields ) {
# don't load unimarc subfields 3,4,5
- next if (($marcflavour eq "UNIMARC") and ($subject_subfield->[0] =~ (3|4|5) ) );
+ next if (($marcflavour eq "UNIMARC") and ($subject_subfield->[0] =~ /3|4|5/ ) );
my $code = $subject_subfield->[0];
my $value = $subject_subfield->[1];
my $linkvalue = $value;
@@ -1063,7 +1063,7 @@ sub GetMarcAuthors {
my $subfield9 = $field->subfield('9');
for my $authors_subfield (@subfields) {
# don't load unimarc subfields 3, 5
- next if ($marcflavour eq 'UNIMARC' and ($authors_subfield->[0] =~ (3|5) ) );
+ next if ($marcflavour eq 'UNIMARC' and ($authors_subfield->[0] =~ /3|5/ ) );
my $subfieldcode = $authors_subfield->[0];
my $value = $authors_subfield->[1];
my $linkvalue = $value;
--
1.5.3.2
More information about the Koha-patches
mailing list