From 6451dc16d8bc4b9c1cb091fe11d2865e7adce4ad Mon Sep 17 00:00:00 2001
From: tipaul <tipaul>
Date: Fri, 23 Sep 2005 10:08:41 +0000
Subject: [PATCH] ISBD decoding accepts 4 digits before the field.

---
 opac/opac-ISBDdetail.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/opac/opac-ISBDdetail.pl b/opac/opac-ISBDdetail.pl
index de47723c1a..51f84b5c9a 100755
--- a/opac/opac-ISBDdetail.pl
+++ b/opac/opac-ISBDdetail.pl
@@ -114,7 +114,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$2\{$1$tagsubf$2\}/g;
+						$calculated =~ s/\{(.?.?.?.?)$tagsubf(.*?)\}/$1$subfieldvalue$2\{$1$tagsubf$2\}/g;
 					}
 					# field builded, store the result
 					if ($calculated && !$hasputtextbefore) { # put textbefore if not done
-- 
2.39.5