Changeset 19497 for gsdl/trunk/perllib

Timestamp:

2009-05-18T11:00:41+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/plugin.pm (modified) (2 diffs)

gsdl/trunk/perllib/plugin.pm

@@ -232 +232 @@
 
 sub metadata_read {
-    my ($pluginfo, $base_dir, $file, $block_hash, $extrametakeys, $extrametadata, $processor, $maxdocs, $gli, $aux) = @_;
+    my ($pluginfo, $base_dir, $file, $block_hash, 
+    $extrametakeys, $extrametadata, $extrametafile, 
+    $processor, $maxdocs, $gli, $aux) = @_;
 
     $maxdocs = -1 unless defined $maxdocs && $maxdocs =~ /\d/;
@@ -264 +266 @@
 
     $rv = $plugobj->metadata_read($pluginfo, $base_dir, $file, $block_hash,
-                 $extrametakeys, $extrametadata, $processor, $maxdocs, $gli, $aux);
+                 $extrametakeys, $extrametadata, $extrametafile,
+                 $processor, $maxdocs, $gli, $aux);
 
     if (defined $rv) {