Changeset 1062

Timestamp:

2000-04-04T11:23:37+12:00 (24 years ago)

Author:

sjboddie

Message:

got translate.pl to handle umlauts

File:

• trunk/gsdl/bin/script/translate.pl (modified) (2 diffs)

trunk/gsdl/bin/script/translate.pl

@@ -42 +42 @@
 use util;
 
-# these special characters will currently be replaced by their
-# simplified versions (e.g. 'ö' becomes 'o') - a warning will
-# be printed if this occurs
-my %rmap = ('auml' => 'a',
-        'euml' => 'e',
-        'iuml' => 'i',
-        'ouml' => 'o',
-        'uuml' => 'u',
-        'Auml' => 'A',
-        'Euml' => 'E',
-        'Iuml' => 'I',
-        'Ouml' => 'O',
-        'Uuml' => 'U');
+# these html entities will be translated correctly when occurring in 
+# images. Any entities not in this list will not.
+my %rmap = ('auml' => chr (228),
+        'euml' => chr (235),
+        'iuml' => chr (239),
+        'ouml' => chr (246),
+        'uuml' => chr (252),
+        'Auml' => chr (196),
+        'Euml' => chr (203),
+        'Iuml' => chr (207),
+        'Ouml' => chr (214),
+        'Uuml' => chr (220),
+        'szlig' => chr (223));
 
 my $hand_made = 0;
@@ -151 +151 @@
     my $origtext = $text;
     $text =~ s/&([^;]*);/$rmap{$1}/g;
-    if ($origtext ne $text) {
-    print STDERR "WARNING (translate.pl): '$origtext' was converted to '$text' before creating image\n";
-    }
 
     # edit image macros