Changeset 17026 for gsdl/trunk/perllib/plugins/OggVorbisPlugin.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/OggVorbisPlugin.pm (modified) (2 diffs)

gsdl/trunk/perllib/plugins/OggVorbisPlugin.pm

@@ -81 +81 @@
 }
 
+# we don't want to hash on the file
+sub get_oid_hash_type {
+    my $self = shift (@_);
+    return "hash_on_ga_xml";
+}
+
 sub process
 {
@@ -87 +93 @@
 
     my ($filename_full_path, $filename_no_path) = &util::get_full_filenames($base_dir, $file);
-    # do something about OIDtype so no hashing
-     
-    # old code was in effect the following. 
-    if ($doc_obj->{'OIDtype'} =~ /^hash$/) {
-    $doc_obj->set_OIDtype ("incremental");
-    }
 
     my $top_section = $doc_obj->get_top_section();