Changeset 19282

Timestamp:

2009-04-29T13:53:38+12:00 (15 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:

• gsdl/trunk/perllib/plugins/EmailPlugin.pm (modified) (2 diffs)

gsdl/trunk/perllib/plugins/EmailPlugin.pm

@@ -1183 +1183 @@
     my ($doc_obj) = @_;
 
-    ## TODO: need a valid id in case there is no message id...
     if ($self->{'OIDtype'} eq "message_id") {
     # temporarily set OIDtype to hash to get a base id
     $self->{'OIDtype'} = "hash_on_ga_xml";
-    $self->add_OID($doc_obj);
-    my $id = $doc_obj->get_OID();
+    my $id = $self->SUPER::get_base_OID(@_);
     $self->{'OIDtype'} = "message_id";
     return $id;
@@ -1199 +1197 @@
     my $self = shift (@_);
     my ($doc_obj, $id, $segment_number) = @_;
-    
     if ($self->{'OIDtype'} eq "message_id" && exists $doc_obj->{'msgid'} ) {
     $doc_obj->set_OID($doc_obj->{'msgid'});