Changeset 3732

Timestamp:

2003-02-16T14:04:38+13:00 (21 years ago)

Author:

jrm21

Message:

need to escape ",", "<", and ">" in title metadata

File:

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

trunk/gsdl/perllib/plugins/TEXTPlug.pm

@@ -113 +113 @@
         $title = substr ($title, 0, 100) . "...";
     }
+        $title =~ s/\[/[/g;
+        $title =~ s/\[/]/g;
+        $title =~ s/\</&#60;/g;
+        $title =~ s/\>/&#62;/g;
     $doc_obj->add_utf8_metadata ($cursection, "Title", $title);
     }