Changeset 9853 for trunk/gsdl/perllib/plugin.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/plugin.pm (modified) (2 diffs)

trunk/gsdl/perllib/plugin.pm

@@ -155 +155 @@
 
 sub read {
-    my ($pluginfo, $base_dir, $file, $metadata, $processor, $maxdocs, $gli, $aux) = @_;
+    my ($pluginfo, $base_dir, $file, $metadata, $processor, $maxdocs, $total_count, $gli, $aux) = @_;
 
     $maxdocs = -1 unless defined $maxdocs && $maxdocs =~ /\d/;
+    $total_count = 0 unless defined $total_count && $total_count =~ /\d/;
     $gli = 0 unless defined $gli;
 
@@ -187 +188 @@
 
         $rv = $plugobj->read($pluginfo, $base_dir, $file, 
-                 $metadata, $processor, $maxdocs, $gli, $aux);
+                 $metadata, $processor, $maxdocs, $total_count, $gli, $aux);
 
     if (defined $rv) {