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

Timestamp:

2008-08-27T20:40:20+12:00 (16 years ago)

Author:

kjdon

Message:

OID generation modifications: OIDtype and OIDmetadata options now available for plugins as well as import. OIDtype for plugins defaults to auto - if set to auto, then use the values from import. All plugins now call self->add_OID instead of doc_obj->set_OID. This sets the doc_obj OIDtype so that doesn't need to be donein other places any more. all plugins have the get_oid_hash_type method - normally returns hash_on_file, but can be overridden to return hash_on_ga_xml for those plugins that don't want hashing on file (MP3,OggVorbis...)

File:

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

gsdl/trunk/perllib/plugins/ReadXMLFile.pm

@@ -199 +199 @@
 }
 
-
-# we need to implement read cos we are not just using process_exp to determine
-# whether to process this or not.
 sub read {
     my $self = shift (@_);  
@@ -363 +360 @@
     # create a new document
     $self->{'doc_obj'} = new doc ($self->{'filename'}, "indexed_doc");
-    $self->{'doc_obj'}->set_OIDtype ($self->{'processor'}->{'OIDtype'}, $self->{'processor'}->{'OIDmetadata'});
     $self->{'doc_obj'}->add_utf8_metadata($self->{'doc_obj'}->get_top_section(), "Plugin", "$self->{'plugin_type'}");
 
@@ -385 +381 @@
    
     # add an OID
-    $self->add_OID();
+    $self->add_OID($doc_obj);
     
     $doc_obj->add_utf8_metadata($doc_obj->get_top_section(), "Plugin", "$self->{'plugin_type'}");