Changeset 12270 for trunk/gsdl/perllib/plugins/MP3Plug.pm

Timestamp:

2006-07-20T16:02:07+12:00 (18 years ago)

Author:

kjdon

Message:

set_OIDtype now takes two arguments, the type and the metadata (used if type=assigned)

File:

• trunk/gsdl/perllib/plugins/MP3Plug.pm (modified) (1 diff)

trunk/gsdl/perllib/plugins/MP3Plug.pm

@@ -322 +322 @@
     $mp3_doc_count++;
     
-##    $doc_obj->set_OIDtype ($processor->{'OIDtype'});    
-    $doc_obj->set_OIDtype ("incremental");    # this is done to avoid hashing content of file
+##    $doc_obj->set_OIDtype ($processor->{'OIDtype'});  
+    if ($processor->{'OIDtype'} =~ /^(assigned|dirname)$/) {
+    $doc_obj->set_OIDtype ($processor->{'OIDtype'}, $processor->{'OIDmetadata'});
+    }
+    else {
+    $doc_obj->set_OIDtype ("incremental");    # this is done to avoid hashing content of file
+    }
     $doc_obj->add_utf8_metadata($doc_obj->get_top_section(), "Plugin", "$self->{'plugin_type'}");
     $doc_obj->add_utf8_metadata($doc_obj->get_top_section(), "FileSize", (-s $filename));