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

trunk/gsdl/perllib/plugins/ImagePlug.pm

@@ -382 +382 @@
     # create a new document
     my $doc_obj = new doc ($filename, "indexed_doc");
-    $doc_obj->set_OIDtype ($processor->{'OIDtype'});    
+    $doc_obj->set_OIDtype ($processor->{'OIDtype'}, $processor->{'OIDmetadata'});    
     $doc_obj->add_utf8_metadata($doc_obj->get_top_section(), "Plugin", "$self->{'plugin_type'}");