Changeset 13109 for trunk/cic-hcap/perllib/plugins/CICWordPlug.pm

Timestamp:

2006-10-13T11:28:47+13:00 (18 years ago)

Author:

mdewsnip

Message:

Now escapes square brackets in metadata so Greenstone doesn't try to treat the text as metadata elements.

File:

• trunk/cic-hcap/perllib/plugins/CICWordPlug.pm (modified) (1 diff)

trunk/cic-hcap/perllib/plugins/CICWordPlug.pm

@@ -166 +166 @@
     }
 
+    # Escape any '[' and ']' characters so Greenstone doesn't try to treat the text as metadata...
+    $metadata_value =~ s/\[/&\#91;/g;
+    $metadata_value =~ s/\]/&\#93;/g;
+
     # Remove any superscript tags
     $metadata_value =~ s/\<sup\>//g;