[Rt-commit] r5272 - in rt/branches/3.7-EXPERIMENTAL: .

ruz at bestpractical.com ruz at bestpractical.com
Mon May 22 09:18:35 EDT 2006


Author: ruz
Date: Mon May 22 09:18:34 2006
New Revision: 5272

Modified:
   rt/branches/3.7-EXPERIMENTAL/   (props changed)
   rt/branches/3.7-EXPERIMENTAL/lib/RT/Action/Notify.pm

Log:
 r3102 at cubic-pc:  cubic | 2006-05-22 17:14:22 +0400
 * call $self->TransactionObj->Attachments->First chain only once


Modified: rt/branches/3.7-EXPERIMENTAL/lib/RT/Action/Notify.pm
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL/lib/RT/Action/Notify.pm	(original)
+++ rt/branches/3.7-EXPERIMENTAL/lib/RT/Action/Notify.pm	Mon May 22 09:18:34 2006
@@ -85,12 +85,12 @@
 
 
     if ( $arg =~ /\bOtherRecipients\b/ ) {
-        if ( $self->TransactionObj->Attachments->First ) {
-            my @cc_addresses = Mail::Address->parse($self->TransactionObj->Attachments->First->GetHeader('RT-Send-Cc'));
+        if ( my $attachment = $self->TransactionObj->Attachments->First ) {
+            my @cc_addresses = Mail::Address->parse($attachment->GetHeader('RT-Send-Cc'));
             foreach my $addr (@cc_addresses) {
                   push @Cc, $addr->address;
             }
-            my @bcc_addresses = Mail::Address->parse($self->TransactionObj->Attachments->First->GetHeader('RT-Send-Bcc'));
+            my @bcc_addresses = Mail::Address->parse($attachment->GetHeader('RT-Send-Bcc'));
 
             foreach my $addr (@bcc_addresses) {
                   push @Bcc, $addr->address;


More information about the Rt-commit mailing list