diff --git a/ISBDdetail.pl b/ISBDdetail.pl index e6b39e1078..626fcf1829 100755 --- a/ISBDdetail.pl +++ b/ISBDdetail.pl @@ -101,7 +101,7 @@ my $res; my $subfieldcode = $subf[$i][0]; 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; + $calculated =~ s/\{(.?.?.?.?)$tagsubf(.*?)\}/$1$subfieldvalue\{$1$tagsubf$2\}$2/g; } # field builded, store the result if ($calculated && !$hasputtextbefore) { # put textbefore if not done