Changeset 17026 for gsdl/trunk/perllib/plugins/BibTexPlugin.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/BibTexPlugin.pm (modified) (1 diff)

gsdl/trunk/perllib/plugins/BibTexPlugin.pm

@@ -815 +815 @@
 }
 
-sub set_OID {
+sub add_OID {
     my $self = shift (@_);
     my ($doc_obj, $id, $segment_number) = @_;
     
     if ( $self->{'key'} eq "default") {
-    $doc_obj->set_OID("$id\_$segment_number");
+    $self->SUPER::add_OID(@_);
+#   $doc_obj->set_OID("$id\_$segment_number");
     } else {
     $doc_obj->set_OID($self->{'key'});