Changeset 20830 for gsdl/trunk/perllib/plugins/ReadXMLFile.pm

Timestamp:

2009-10-21T16:10:29+13:00 (13 years ago)

Author:

kjdon

Message:

save filename_no_path and use it to call set_Source_metadata for doc_obj in open document. all other plugins do this. prevents lots of undefined variable errors later on.

File:

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

gsdl/trunk/perllib/plugins/ReadXMLFile.pm

@@ -211 +211 @@
     $self->{'file'} = $file;
     $self->{'filename'} = $filename_full_path;
+    $self->{'filename_no_path'} = $filename_no_path;
     $self->{'processor'} = $processor;
     # this contains metadata passed in from running metadata_read with other plugins (eg from MetadataXMLPlugin)
@@ -370 +371 @@
     $self->{'doc_obj'} = new doc ($self->{'filename'}, "indexed_doc", $self->{'file_rename_method'});
     $self->{'doc_obj'}->add_utf8_metadata($self->{'doc_obj'}->get_top_section(), "Plugin", "$self->{'plugin_type'}");
+    $self->set_Source_metadata($self->{'doc_obj'}, $self->{'filename_no_path'});
+    
 
     # do we want other auto metadata here (see BasePlugin.read_into_doc_obj)