Changeset 8646

Timestamp:

2004-11-24T11:15:00+13:00 (19 years ago)

Author:

mdewsnip

Message:

Made ISISPlug.pm a bit more robust to crap files.

File:

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

trunk/gsdl/perllib/plugins/ISISPlug.pm

@@ -171 +171 @@
     # Process each line of the ISIS record, one at a time
     foreach $line (split(/\n/, $$textref)) {
-    $line =~ /^tag=(.+) data=(.+)$/;
+    $line =~ /^tag=(.*) data=(.+)$/;
     my $rawtagname = $1;
     my $rawtagdata = $2;
-    # print "Raw tag: $rawtagname, Raw data: $rawtagdata\n";
+    # print STDERR "Raw tag: $rawtagname, Raw data: $rawtagdata\n";
+    next if ($rawtagname eq "");
 
     # Metadata field names: title case, then remove spaces
@@ -196 +197 @@
         # If there is a subfield specifier, parse it off
         my $subfieldname = "";
-        if ($rawtagvalue =~ s/^\^([a-z])//) {
+        if ($rawtagvalue =~ s/^\^// && $rawtagvalue =~ s/([a-z])//) {
             $subfieldname = "^$1";
         }