Changeset 8749

Timestamp:

2004-12-07T15:05:19+13:00 (19 years ago)

Author:

mdewsnip

Message:

Now escapes '<' and '>' characters in metadata values correctly.

File:

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

trunk/gsdl/perllib/plugins/ISISPlug.pm

@@ -206 +206 @@
         my $metadatafieldvalue = $1;
 
+        # Escape any '<' and '>' characters so they appear correctly in the final collection
+        $metadatafieldvalue =~ s/\</&lt;/g;
+        $metadatafieldvalue =~ s/\>/&gt;/g;
+        
         # Handle Keywords specially
         if ($metadatafieldname eq "Keywords") {