Changeset 75 for trunk/gsdl/perllib/plugins/GMLPlug.pm

Timestamp:

1998-12-14T13:55:47+13:00 (26 years ago)

Author:

rjmcnab

Message:

Added support for the new version of doc.pl (which uses the UTF-8
Unicode encoding)

File:

• trunk/gsdl/perllib/plugins/GMLPlug.pm (modified) (1 diff)

trunk/gsdl/perllib/plugins/GMLPlug.pm

@@ -79 +79 @@
         # add the tags
         while ((defined $tags) && ($tags =~ s/^\s*(\w+)\s*=\s*\"([^\"]*)\"//)) {
-        $doc_obj->add_metadata($section, $1 , $2) if (defined $1 and defined $2);
+        $doc_obj->add_utf8_metadata($section, $1 , $2) if (defined $1 and defined $2);
         }
 
         # add the text
-        $doc_obj->add_text($section, $text) if ((defined $text) && ($text ne ""));
+        $doc_obj->add_utf8_text($section, $text) if ((defined $text) && ($text ne ""));
 
     } elsif ($gml =~ s/^\s*<\/gsdlsection>//) {