Changeset 849

Timestamp:

2000-01-13T10:21:44+13:00 (24 years ago)

Author:

sjboddie

Message:

Fixed a bit of a bug

File:

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

trunk/gsdl/perllib/plugins/GMLPlug.pm

@@ -162 +162 @@
 ####            print STDERR "*** tags = $tags\n";
 
-            $tags =~ s/gsdlnum\s*=\s*\"?(\d+)\"?//o;
-            if (defined $1) 
+            if ($tags =~ s/gsdlnum\s*=\s*\"?(\d+)\"?//o)
             {
             $section .= ".$1";
@@ -179 +178 @@
                && ($tags =~ s/^\s*(\w+)\s*=\s*\"([^\"]*)\"//o)) 
         {
-            $doc_obj->add_utf8_metadata($section, $1 , 
+            $doc_obj->add_utf8_metadata($section, $1, 
                         &GMLPlug::_unescape_text($2)) 
             if (defined $1 and defined $2);