Changeset 74 for trunk/gsdl/perllib

Timestamp:

1998-12-11T21:30:12+13:00 (25 years ago)

Author:

rjmcnab

Message:

Hack to make things work as they used to (until I have finished
the rest of the software.

File:

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

trunk/gsdl/perllib/doc.pm

@@ -471 +471 @@
     my ($section, $field, $value) = @_;
 
-    $self->set_utf8_metadata_element ($section, $field, 
-                      &unicode::ascii2utf8($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));
 }
 
@@ -512 +514 @@
     my ($section, $field, $value) = @_;
 
-    $self->add_utf8_metadata ($section, $field,
-                  &unicode::ascii2utf8($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));
 }
 
@@ -654 +658 @@
     # 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));
 }