Changeset 918

Timestamp:

2000-02-09T11:51:44+13:00 (24 years ago)

Author:

kjm18

Message:

fixed bug where it was creating two doc_obj per file instead of just one.

File:

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

trunk/gsdl/perllib/plugins/GMLPlug.pm

@@ -167 +167 @@
         last if $section eq ""; # back to top level again (more than one document in gml file)
         $section = $doc_obj->get_parent_section ($section);
-    }
+    } #while (1) section level
 
     # add the associated files
@@ -194 +194 @@
     $no_docs++;
     last if ($maxdocs > -1 && $no_docs >= $maxdocs);
-    last unless defined $gml;
-    }
+    last unless defined $gml && $gml =~ /\w/;
+    } #while(1) document level
 
     return $no_docs; # no of docs processed