Changeset 19493 for gsdl/trunk/perllib/plugins/SplitTextFile.pm

Timestamp:

2009-05-18T10:57:05+12:00 (15 years ago)

Author:

davidb

Message:

Introduction of new extrametafile to track which metadata.xml file a piece of metadata came from

File:

• gsdl/trunk/perllib/plugins/SplitTextFile.pm (modified) (2 diffs)

gsdl/trunk/perllib/plugins/SplitTextFile.pm

@@ -118 +118 @@
 sub metadata_read {
     my $self = shift (@_);  
-    my ($pluginfo, $base_dir, $file, $block_hash, $extrametakeys, $extrametadata, $processor, $maxdocs, $gli) = @_;
+    my ($pluginfo, $base_dir, $file, $block_hash, 
+    $extrametakeys, $extrametadata, $extrametafile,
+    $processor, $maxdocs, $gli) = @_;
 
     # returns 1 if matches process_exp, and has done blocking in the meantime
@@ -124 +126 @@
                           $block_hash, 
                           $extrametakeys, 
-                          $extrametadata, $processor, 
-                          $maxdocs, $gli);
+                          $extrametadata, 
+                          $extrametafile,
+                          $processor, $maxdocs, $gli);
     my $split_matched = undef;