Changeset 11379

Timestamp:

2006-03-16T15:33:47+13:00 (18 years ago)

Author:

mdewsnip

Message:

Bug fix for subfield change.

File:

• trunk/gsdl/perllib/plugins/ISISPlug.pm (modified) (1 diff)

trunk/gsdl/perllib/plugins/ISISPlug.pm

@@ -245 +245 @@
         my $sub_metadata_name = $metadata_name;
         if ($raw_metadata_value =~ s/^\^// && $raw_metadata_value =~ s/^([a-z])//) {
-            $sub_metadata_name .= $1;
+            $sub_metadata_name .= "^$1";
         }