Bug Fixing ISBD parser had problems with commas

Signed-off-by: Chris Cormack <crc@liblime.com>
Signed-off-by: Joshua Ferraro <jmf@liblime.com>

diff --git a/catalogue/ISBDdetail.pl b/catalogue/ISBDdetail.pl
index 72f6b5e..8401511 100755 (executable)
--- a/catalogue/ISBDdetail.pl
+++ b/catalogue/ISBDdetail.pl
@@ -141,7 +141,7 @@ foreach my $isbdfield ( split /#/, $bloc ) {
                         $subf[$i][1], '', $dbh );
                     my $tagsubf = $tag . $subfieldcode;
                     $calculated =~
-s/\{(.?.?.?)$tagsubf(.*?)\}/$1$subfieldvalue\{$1$tagsubf$2\}$2/g;
+s/\{(.?.?.?)$tagsubf(.*?)\}/$1$subfieldvalue$2\{$1$tagsubf$2\}/g;
                 }
 
                 # field builded, store the result