Changeset 23279 for main

Timestamp:

2010-11-03T10:47:16+13:00 (13 years ago)

Author:

kjdon

Message:

in extra_metadata, new special case for gsdlzipfilename metadata - if set, it means that the file had come from a zip, so the source_path of the doc obj needs to be set to the zip file, otherwise incremental import doesn't work.

File:

• main/trunk/greenstone2/perllib/plugins/BasePlugin.pm (modified) (1 diff)

main/trunk/greenstone2/perllib/plugins/BasePlugin.pm

@@ -1114 +1114 @@
         $doc_obj->add_utf8_metadata ($cursection, "equivlink", $equiv_form); 
     }
+    elsif ($field eq "gsdlzipfilename") {
+        # special case for when files have come out of a zip. source_path 
+        # (used for archives dbs and keeping track for incremental import)
+        # must be set to the zip file name
+        my $zip_filename = $metadata->{$field};
+        # overwrite the source_path
+        $doc_obj->{'source_path'} = $zip_filename;
+        # and set the metadata
+        $zip_filename = &util::filename_within_collection($zip_filename);
+        $zip_filename = $doc_obj->encode_filename($zip_filename, $self->{'file_rename_method'});
+        $doc_obj->add_utf8_metadata ($cursection, $field, $zip_filename);
+    }
     elsif (ref ($metadata->{$field}) eq "ARRAY") {
         map {