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

[jesse at bestpractical.com]

Author: jesse
Date: Thu Apr 12 03:10:14 2007
New Revision: 7490

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

Log:
 r54778 at pinglin:  jesse | 2007-04-12 03:09:08 -0400
 * Also showing 'From' addresses in the related addresses section


Modified: rt/branches/3.7-EXPERIMENTAL/lib/RT/Attachment_Overlay.pm
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL/lib/RT/Attachment_Overlay.pm	(original)
+++ rt/branches/3.7-EXPERIMENTAL/lib/RT/Attachment_Overlay.pm	Thu Apr 12 03:10:14 2007
@@ -429,7 +429,7 @@
 =head2 Addresses
 
 Returns a hashref of all addresses related to this attachment.  
-The keys of the hash are C<To>,C<Cc> and C<Bcc>. The values are references to lists of Mail::Address objects.
+The keys of the hash are C<From>,C<To>,C<Cc>, C<Bcc>, C<RT-Send-Cc> and C<RT-Send-Bcc>. The values are references to lists of Mail::Address objects.
 
 
 =cut
@@ -442,7 +442,7 @@
     my $current_user_address = lc $self->CurrentUser->EmailAddress;
     my $correspond = lc $self->TransactionObj->TicketObj->QueueObj->CorrespondAddress;
     my $comment = lc $self->TransactionObj->TicketObj->QueueObj->CommentAddress;
-    foreach my $hdr (qw(To Cc Bcc RT-Send-Cc RT-Send-Bcc)) {
+    foreach my $hdr (qw(From To Cc Bcc RT-Send-Cc RT-Send-Bcc)) {
         my @Addresses;
         my $line      = $self->GetHeader($hdr);