Changeset 20792 for gsdl/trunk/perllib/plugins/OAIPlugin.pm

Timestamp:

2009-10-07T15:55:15+13:00 (14 years ago)

Author:

kjdon

Message:

store the oai file as a metadata fiels for the source doc if is exists, using the extrametafile mechanism

File:

• gsdl/trunk/perllib/plugins/OAIPlugin.pm (modified) (1 diff)

gsdl/trunk/perllib/plugins/OAIPlugin.pm

@@ -248 +248 @@
     $extrametadata->{$filename_for_metadata} = $new_metadata;
     push(@$extrametakeys, $filename_for_metadata);
-
+    if ($srcdoc_exists) {
+    if (!defined $extrametafile->{$filename_for_metadata}) {
+        $extrametafile->{$filename_for_metadata} = {};
+    }
+     #maps the file to full path
+    $extrametafile->{$filename_for_metadata}->{$file} = $filename_full_path;
+    }
     return 1;