Changeset 12705

Timestamp:

2006-09-07T14:39:13+12:00 (18 years ago)

Author:

mdewsnip

Message:

Now escapes backslash characters in metadata values so these appear correctly in the final collection.

File:

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

trunk/gsdl/perllib/plugins/ISISPlug.pm

@@ -214 +214 @@
             # Parse the value off and add it as metadata
             $raw_metadata_value =~ s/^([^\^]*)//;
-            my $sub_metadata_value = $1;
-
-            # Escape any '<' and '>' characters so they appear correctly in the final collection
-            $sub_metadata_value =~ s/\</&lt;/g;
-            $sub_metadata_value =~ s/\>/&gt;/g;
+            my $sub_metadata_value = &escape_metadata_value($1);
 
             # print STDERR "Sub metadata name: $sub_metadata_name, value: $sub_metadata_value\n";
@@ -279 +275 @@
         }
 
-        # Escape any '<' and '>' characters so they appear correctly in the final collection
-        $sub_metadata_value =~ s/\</&lt;/g;
-        $sub_metadata_value =~ s/\>/&gt;/g;
+        # Escape the metadata value so it appears correctly in the final collection
+        $sub_metadata_value = &escape_metadata_value($sub_metadata_value);
 
         # print STDERR "Sub metadata name: $sub_metadata_name, value: $sub_metadata_value\n";
@@ -317 +312 @@
 
     # Add the full raw record as metadata
-    $$textref =~ s/</&lt\;/g;
-    $$textref =~ s/>/&gt\;/g;
-    $doc_obj->add_utf8_metadata($section, "ISISRawRecord", $$textref);
+    my $isis_raw_record_metadata_value = &escape_metadata_value($$textref);
+    $doc_obj->add_utf8_metadata($section, "ISISRawRecord", $isis_raw_record_metadata_value);
 
     # Add FileFormat metadata
@@ -376 +370 @@
 
 
+sub escape_metadata_value
+{
+    my $value = shift(@_);
+    $value =~ s/\</&lt;/g;
+    $value =~ s/\>/&gt;/g;
+    $value =~ s/\\/\\\\/g;
+    return $value;
+}
+
+
 sub clean_up_after_exploding
 {