Changeset 88 for trunk

Timestamp:

1998-12-21T15:16:15+13:00 (26 years ago)

Author:

rjmcnab

Message:

Special characters are now escaped in GML files.

File:

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

trunk/gsdl/perllib/plugins/GMLPlug.pm

@@ -25 +25 @@
     return 0; # this is not a recursive plugin
 }
+
+sub _unescape_text {
+    my ($text) = @_;
+
+    # special characters in the gml encoding
+    $text =~ s/&lt;/</g;
+    $text =~ s/&gt;/>/g;
+    $text =~ s/&quot;/\"/g;
+    $text =~ s/&amp;/&/g; # this has to be last...
+
+    return $text;
+}
+
 
 # return 1 if processed, 0 if not processed
@@ -63 +76 @@
         my $tags = $1;
         $tags = "" unless defined $tags;
-        my $text = $2;
+        my $text = &_unescape_text($2);
 
         # create the section (unless this is the first section)
@@ -79 +92 @@
         # add the tags
         while ((defined $tags) && ($tags =~ s/^\s*(\w+)\s*=\s*\"([^\"]*)\"//)) {
-        $doc_obj->add_utf8_metadata($section, $1 , $2) if (defined $1 and defined $2);
+        $doc_obj->add_utf8_metadata($section, $1 , &_unescape_text($2)) 
+            if (defined $1 and defined $2);
         }
 
         # add the text
-        $doc_obj->add_utf8_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>//) {