Changeset 3704 for trunk/niupepa

Timestamp:

2003-01-22T13:52:31+13:00 (21 years ago)

Author:

sjboddie

Message:

* empty log message *

File:

• trunk/niupepa/perllib/plugins/NPPlug.pm (modified) (2 diffs)

trunk/niupepa/perllib/plugins/NPPlug.pm

@@ -399 +399 @@
         }
         close FILE;
-        if ($foundbody) {return &unicode::ascii2utf8(\$text);}
-        else {return &unicode::ascii2utf8(\$savedtext);}
+        if (!$foundbody) {$text = $savedtext;}
+        if ($filename =~ /\.(commentary|abstract)$/i) {
+        # commentaries and abstracts should already be utf8
+        return $text;
+        } else {
+        # a few extended ascii characters have snuck through 
+        # in some text files so we need to convert them to utf8
+        return &unicode::ascii2utf8(\$text);
+        }
 
     } else {
@@ -408 +415 @@
         }
         close FILE;
+        # a few extended ascii characters have snuck through 
+        # in some text files so we need to convert them to utf8
         return &unicode::ascii2utf8(\$text);
     }