Changeset 11299 for trunk

Timestamp:

2006-03-02T15:22:33+13:00 (18 years ago)

Author:

mdewsnip

Message:

Now removes more punctuation from field names, and removes the subfield character correctly.

File:

• trunk/gsdl/perllib/plugins/ISISPlug.pm (modified) (2 diffs)

trunk/gsdl/perllib/plugins/ISISPlug.pm

@@ -174 +174 @@
     # Convert the tag number into a name, and remove any invalid characters
     my $raw_metadata_name = $fdt_mapping->{$tag}{'name'} || "";
-    $raw_metadata_name =~ s/&//g;
+    $raw_metadata_name =~ s/[,&\.\-\/]/ /g;
     next if ($raw_metadata_name eq "");
 
@@ -197 +197 @@
             # If there is a subfield specifier, parse it off
             my $sub_metadata_name = $metadata_name;
-            if ($raw_metadata_value =~ s/^\^// && $raw_metadata_value =~ /^([a-z])/) {
+            if ($raw_metadata_value =~ s/^\^// && $raw_metadata_value =~ s/^([a-z])//) {
             $sub_metadata_name .= "^$1";
             }