From a0add2d02bd201c37c3d7d6d4d8939fa467c5f63 Mon Sep 17 00:00:00 2001
From: tipaul <tipaul>
Date: Fri, 23 Sep 2005 11:09:28 +0000
Subject: [PATCH] ISBD decoding accepts 4 digits before the field.

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

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