Changeset 14928


Ignore:
Timestamp:
2007-12-20T17:48:11+13:00 (14 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:
1 edited

Legend:

Unmodified
Added
Removed
  • gsdl/trunk/perllib/plugins/ConvertToPlug.pm

    r12961 r14928  
    443443    $self->title_fallback($doc_obj,$doc_obj->get_top_section(),$filemeta);
    444444
     445#    # add an OID
     446#    $doc_obj->set_OID();
     447
    445448    # add an OID
    446     $doc_obj->set_OID();
     449    # see if there is a plugin-specific set_OID function...
     450    if (defined ($self->can('set_OID'))) {
     451    # it will need $doc_obj to set the Identifier metadata...
     452    $self->set_OID($doc_obj);
     453    } else {
     454    # use the default set_OID() in doc.pm
     455    $doc_obj->set_OID();
     456    }
     457
     458
    447459    # process the document
    448460    $processor->process($doc_obj);
Note: See TracChangeset for help on using the changeset viewer.