- Timestamp:
- 2009-04-29T13:53:38+12:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/plugins/EmailPlugin.pm
r19281 r19282 1183 1183 my ($doc_obj) = @_; 1184 1184 1185 ## TODO: need a valid id in case there is no message id...1186 1185 if ($self->{'OIDtype'} eq "message_id") { 1187 1186 # temporarily set OIDtype to hash to get a base id 1188 1187 $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(@_); 1191 1189 $self->{'OIDtype'} = "message_id"; 1192 1190 return $id; … … 1199 1197 my $self = shift (@_); 1200 1198 my ($doc_obj, $id, $segment_number) = @_; 1201 1202 1199 if ($self->{'OIDtype'} eq "message_id" && exists $doc_obj->{'msgid'} ) { 1203 1200 $doc_obj->set_OID($doc_obj->{'msgid'});
Note:
See TracChangeset
for help on using the changeset viewer.