Changeset 19282

Show
Ignore:
Timestamp:
29.04.2009 13:53:38 (10 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.

Files:
1 modified

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