Changeset 3182 for trunk/protemix/rename.pl

Timestamp:

2002-06-25T21:07:30+12:00 (22 years ago)

Author:

sjboddie

Message:

* empty log message *

File:

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

trunk/protemix/rename.pl

@@ -91 +91 @@
     $noncss =~ s/\\\n/\n/sg;
 
+    # Occurances of 2HCl (lowercase el) were mistakenly changed to 2HC1
+    # (digit one) during OCR in some cases so we'll change them back
+    $noncss =~ s/2HC1/2HCl/g;
+
     # alter <img> tags to support renamed files
     $noncss =~ s/(<img src=\")([^\"]+)/$1 . &rename_file($2)/sige;