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

trunk/gsdl/perllib/plugins/RecPlug.pm

@@ -190 +190 @@
 sub read {
     my $self = shift (@_);
-    my ($pluginfo, $base_dir, $file, $in_metadata, $processor, $maxdocs, $gli) = @_;
+    my ($pluginfo, $base_dir, $file, $in_metadata, $processor, $maxdocs, $total_count, $gli) = @_;
     
     my $outhandle = $self->{'outhandle'};
@@ -360 +360 @@
     my $subfile = $dir[$i];
     my $this_file_base_dir = $base_dir;
-    last if ($maxdocs != -1 && $count >= $maxdocs);
+    last if ($maxdocs != -1 && ($count + $total_count) >= $maxdocs);
     next if ($subfile =~ /^\.\.?$/);
     next if ($read_metadata_files && $subfile =~ /metadata\.xml$/);
@@ -419 +419 @@
     $count += &plugin::read ($pluginfo, $this_file_base_dir,
                  &util::filename_cat($file, $subfile),
-                 $out_metadata, $processor, $maxdocs, $gli);
+                 $out_metadata, $processor, $maxdocs, ($total_count + $count), $gli);
     }