Changeset 19282


Ignore:
Timestamp:
2009-04-29T13:53:38+12:00 (12 years ago)
Author:
kjdon
Message:

call super get_base_OID in get_base_OID, not self->add_OID, as id and segment are not defined, which is the whole point of callign this.

File:
1 edited

Legend:

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

    r19281 r19282  
    11831183    my ($doc_obj) = @_;
    11841184
    1185     ## TODO: need a valid id in case there is no message id...
    11861185    if ($self->{'OIDtype'} eq "message_id") {
    11871186    # temporarily set OIDtype to hash to get a base id
    11881187    $self->{'OIDtype'} = "hash_on_ga_xml";
    1189     $self->add_OID($doc_obj);
    1190     my $id = $doc_obj->get_OID();
     1188    my $id = $self->SUPER::get_base_OID(@_);
    11911189    $self->{'OIDtype'} = "message_id";
    11921190    return $id;
     
    11991197    my $self = shift (@_);
    12001198    my ($doc_obj, $id, $segment_number) = @_;
    1201    
    12021199    if ($self->{'OIDtype'} eq "message_id" && exists $doc_obj->{'msgid'} ) {
    12031200    $doc_obj->set_OID($doc_obj->{'msgid'});
Note: See TracChangeset for help on using the changeset viewer.