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

Timestamp:

2001-01-29T14:54:58+13:00 (23 years ago)

Author:

sjboddie

Message:

Tidied up language support stuff.

File:

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

trunk/gsdl/perllib/doc.pm

@@ -694 +694 @@
 
     $self->set_utf8_metadata_element ($section, $field, 
-                      &unicode::ascii2utf8($value));
+                      &unicode::ascii2utf8(\$value));
 }
 
@@ -716 +716 @@
 
     $self->add_utf8_metadata ($section, $field,
-                  &unicode::ascii2utf8($value));
+                  &unicode::ascii2utf8(\$value));
 }
 
@@ -799 +799 @@
     # convert the text to UTF-8 encoded unicode characters
     # and add the text
-    $self->add_utf8_text($section, &unicode::ascii2utf8($text));
+    $self->add_utf8_text($section, &unicode::ascii2utf8(\$text));
 }