Changeset 14928 for gsdl

Timestamp:

2007-12-20T17:48:11+13:00 (16 years ago)

Author:

davidb

Message:

ConvertToPlug upgraded to be the same as BasPlug in regard to calling set_OID id defined for the method that set's a documents ID

File:

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

gsdl/trunk/perllib/plugins/ConvertToPlug.pm

@@ -443 +443 @@
     $self->title_fallback($doc_obj,$doc_obj->get_top_section(),$filemeta);
 
+#    # add an OID
+#    $doc_obj->set_OID();
+
     # add an OID
-    $doc_obj->set_OID();
+    # see if there is a plugin-specific set_OID function...
+    if (defined ($self->can('set_OID'))) {
+    # it will need $doc_obj to set the Identifier metadata...
+    $self->set_OID($doc_obj);
+    } else {
+    # use the default set_OID() in doc.pm
+    $doc_obj->set_OID();
+    }
+
+
     # process the document
     $processor->process($doc_obj);