Changeset 97 for trunk/gsdl/perllib/doc.pm

Timestamp:

1999-01-05T15:07:19+13:00 (25 years ago)

Author:

rjmcnab

Message:

Added the Unicode support for European languages back in.

File:

• trunk/gsdl/perllib/doc.pm (modified) (3 diffs)

trunk/gsdl/perllib/doc.pm

@@ -488 +488 @@
     my ($section, $field, $value) = @_;
 
-# hack till the rest of the software has changed to Unicode.
-    $self->set_utf8_metadata_element ($section, $field, $value);
-#    $self->set_utf8_metadata_element ($section, $field, 
-#                     &unicode::ascii2utf8($value));
+    $self->set_utf8_metadata_element ($section, $field, 
+                      &unicode::ascii2utf8($value));
 }
 
@@ -531 +529 @@
     my ($section, $field, $value) = @_;
 
-    # hack until the rest of the software has changed to Unicode.
-    $self->add_utf8_metadata ($section, $field, $value);
-#    $self->add_utf8_metadata ($section, $field,
-#                 &unicode::ascii2utf8($value));
+    $self->add_utf8_metadata ($section, $field,
+                  &unicode::ascii2utf8($value));
 }
 
@@ -675 +671 @@
     # convert the text to UTF-8 encoded unicode characters
     # and add the text
-
-    # hack until the rest of the software has changed to unicode
     $self->add_utf8_text($section, &unicode::ascii2utf8($text));
-#    $self->add_utf8_text($section, &unicode::ascii2utf8($text));
 }