Changeset 3191 for trunk/protemix/rename.pl

Timestamp:

2002-06-25T23:52:28+12:00 (22 years ago)

Author:

sjboddie

Message:

* empty log message *

File:

• trunk/protemix/rename.pl (modified) (1 diff)

trunk/protemix/rename.pl

@@ -141 +141 @@
     $title =~ s/^\s+//;
     $title =~ s/\s+$//;
+    $title =~ s/\"/"/g;
+    $title =~ s/</&lt;/g;
+    $title =~ s/>/&gt;/g;
+    $metafile =~ s/&/&amp;/g;
     $title = &unicode::ascii2utf8(\$title); # assumes title is iso-8859-1
     my $metafile = "<Metafile>\n";