Changeset 918

Show
Ignore:
Timestamp:
09.02.2000 11:51:44 (20 years ago)
Author:
kjm18
Message:

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

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • trunk/gsdl/perllib/plugins/GMLPlug.pm

    r900 r918  
    167167        last if $section eq ""; # back to top level again (more than one document in gml file) 
    168168        $section = $doc_obj->get_parent_section ($section); 
    169     } 
     169    } #while (1) section level 
    170170 
    171171    # add the associated files 
     
    194194    $no_docs++; 
    195195    last if ($maxdocs > -1 && $no_docs >= $maxdocs); 
    196     last unless defined $gml; 
    197     } 
     196    last unless defined $gml && $gml =~ /\w/; 
     197    } #while(1) document level 
    198198 
    199199    return $no_docs; # no of docs processed