Show
Ignore:
Timestamp:
20.12.2007 17:48:11 (12 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

Files:
1 modified

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);