Changeset 9853 for trunk/gsdl/perllib/mgbuilder.pm

Timestamp:

2005-05-10T16:55:00+12:00 (19 years ago)

Author:

kjdon

Message:

fixed up maxdocs - now pass an extra parameter to the read function

File:

• trunk/gsdl/perllib/mgbuilder.pm (modified) (5 diffs)

trunk/gsdl/perllib/mgbuilder.pm

@@ -278 +278 @@
            $self->{'buildproc'}, $self->{'maxdocs'});
     &plugin::read ($self->{'pluginfo'}, $self->{'source_dir'}, 
-           "", {}, $self->{'buildproc'}, $self->{'maxdocs'});
+           "", {}, $self->{'buildproc'}, $self->{'maxdocs'}, 0, $self->{'gli'});
     &plugin::end($self->{'pluginfo'});
     
@@ -316 +316 @@
 
     &plugin::read ($self->{'pluginfo'}, $self->{'source_dir'}, 
-           "", {}, $self->{'buildproc'}, $self->{'maxdocs'});
+           "", {}, $self->{'buildproc'}, $self->{'maxdocs'}, 0, $self->{'gli'});
 
     close ($handle) unless $self->{'debug'};
@@ -605 +605 @@
     $self->{'buildproc'}->reset();
     &plugin::read ($self->{'pluginfo'}, $self->{'source_dir'}, 
-           "", {}, $self->{'buildproc'}, $self->{'maxdocs'});
+           "", {}, $self->{'buildproc'}, $self->{'maxdocs'},0, $self->{'gli'});
     close ($handle) unless $self->{'debug'};
 
@@ -639 +639 @@
     $self->{'buildproc'}->reset();
     &plugin::read ($self->{'pluginfo'}, $self->{'source_dir'}, 
-           "", {}, $self->{'buildproc'}, $self->{'maxdocs'});
+           "", {}, $self->{'buildproc'}, $self->{'maxdocs'},0, $self->{'gli'});
 
    
@@ -810 +810 @@
     
     &plugin::read ($self->{'pluginfo'}, $self->{'source_dir'}, 
-           "", {}, $self->{'buildproc'}, $self->{'maxdocs'});
+           "", {}, $self->{'buildproc'}, $self->{'maxdocs'},0, $self->{'gli'});
     
     # output classification information