[Rt-commit] r9446 - rt/branches/3.6-RELEASE/lib/RT/Action

[tla at bestpractical.com]

Author: tla
Date: Wed Oct 24 22:04:45 2007
New Revision: 9446

Modified:
   rt/branches/3.6-RELEASE/lib/RT/Action/SendEmail.pm

Log:
store the outgoing txn ID in  for later access

Modified: rt/branches/3.6-RELEASE/lib/RT/Action/SendEmail.pm
==============================================================================
--- rt/branches/3.6-RELEASE/lib/RT/Action/SendEmail.pm	(original)
+++ rt/branches/3.6-RELEASE/lib/RT/Action/SendEmail.pm	Wed Oct 24 22:04:45 2007
@@ -104,7 +104,7 @@
 
     my ($ret) = $self->SendMessage( $self->TemplateObj->MIMEObj );
     if ( $ret > 0 ) {
-        $self->RecordOutgoingMailTransaction( $self->TemplateObj->MIMEObj )
+        $ret = $self->RecordOutgoingMailTransaction( $self->TemplateObj->MIMEObj )
             if ($RT::RecordOutgoingEmail);
     }
     return (abs $ret);
@@ -474,10 +474,11 @@
     );
 
     if( $id ) {
-	$self->{'OutgoingMessageTransaction'} = $id;
+	$self->{'OutgoingMailTransaction'} = $id;
     } else {
-	$RT::Logger->warning( "Could not record outgoing message transaction: $msg" );
+        $RT::Logger->warning( "Could not record outgoing message transaction: $msg" );
     }
+    return $id;
 }
 
 # }}}
@@ -724,6 +725,7 @@
     my $field = shift;
     my $val   = shift;
 
+    $RT::Logger->debug( "Setting header $field to $val" );
     chomp $val;
     chomp $field;
     $self->TemplateObj->MIMEObj->head->fold_length( $field, 10000 );