Changeset 16392 for gsdl/trunk/perllib/plugins/ArchivesInfPlugin.pm

Timestamp:

2008-07-14T14:57:38+12:00 (16 years ago)

Author:

kjdon

Message:

global block pass: read_block is no more, use can_process_this_file to see whether a file is for us or not. extra arg (block_hash) to read, read_into_doc_obj, metadata_read etc

File:

• gsdl/trunk/perllib/plugins/ArchivesInfPlugin.pm (modified) (3 diffs)

gsdl/trunk/perllib/plugins/ArchivesInfPlugin.pm

@@ -109 +109 @@
 sub read {
     my $self = shift (@_);
-    my ($pluginfo, $base_dir, $file, $metadata, $processor, $maxdocs,$total_count, $gli) = @_;
+    my ($pluginfo, $base_dir, $file, $block_hash, $metadata, $processor, $maxdocs,$total_count, $gli) = @_;
     my $outhandle = $self->{'outhandle'};
 
@@ -137 +137 @@
         my $tmp = &util::filename_cat ($file, $subfile->[0]);
         next if $tmp eq $file;
-
+        
         # We always process the file...
         my $process_file = 1;
@@ -156 +156 @@
         if ($process_file) {
         # note: metadata is not carried on to the next level
-        $count += &plugin::read ($pluginfo, $base_dir, $tmp, {}, $processor, $maxdocs, ($total_count+$count), $gli);
+        $count += &plugin::read ($pluginfo, $base_dir, $tmp, $block_hash, {}, $processor, $maxdocs, ($total_count+$count), $gli);
         }