Changeset 3191

Show
Ignore:
Timestamp:
25.06.2002 23:52:28 (17 years ago)
Author:
sjboddie
Message:

*** empty log message ***

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • trunk/protemix/rename.pl

    r3187 r3191  
    141141    $title =~ s/^\s+//; 
    142142    $title =~ s/\s+$//; 
     143    $title =~ s/\"/"/g; 
     144    $title =~ s/</&lt;/g; 
     145    $title =~ s/>/&gt;/g; 
     146    $metafile =~ s/&/&amp;/g; 
    143147    $title = &unicode::ascii2utf8(\$title); # assumes title is iso-8859-1 
    144148    my $metafile = "<Metafile>\n";