From c01d0d65a173d0a22519513b7bef2f847fc6ec08 Mon Sep 17 00:00:00 2001 From: Paul POULAIN Date: Wed, 28 May 2008 18:48:09 +0200 Subject: [PATCH] small (UNIMARC) fix, error in regexp writing Signed-off-by: Joshua Ferraro --- C4/Biblio.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/C4/Biblio.pm b/C4/Biblio.pm index cb26285fc9..99996f5c8a 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; -- 2.20.1