diff options
| author | Ivan Kohler <ivan@freeside.biz> | 2013-06-04 00:16:28 -0700 |
|---|---|---|
| committer | Ivan Kohler <ivan@freeside.biz> | 2013-06-04 00:16:28 -0700 |
| commit | 7588a4ac90a9b07c08a3107cd1107d773be1c991 (patch) | |
| tree | 55b8bedb5f899e705da0ba7f608267943bf89e94 /rt/lib/RT/Attachment.pm | |
| parent | 98d2b25256055abb0dfcb9f586b434474fa97afd (diff) | |
RT 4.0.13
Diffstat (limited to 'rt/lib/RT/Attachment.pm')
| -rwxr-xr-x | rt/lib/RT/Attachment.pm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/rt/lib/RT/Attachment.pm b/rt/lib/RT/Attachment.pm index f1d9a6342..54217b32b 100755 --- a/rt/lib/RT/Attachment.pm +++ b/rt/lib/RT/Attachment.pm @@ -2,7 +2,7 @@ # # COPYRIGHT: # -# This software is Copyright (c) 1996-2012 Best Practical Solutions, LLC +# This software is Copyright (c) 1996-2013 Best Practical Solutions, LLC # <sales@bestpractical.com> # # (Except where explicitly superseded by other copyright notices) @@ -266,7 +266,7 @@ sub ParentObj { =head2 Children Returns an L<RT::Attachments> object which is preloaded with -all attachments objects with this attachment\'s Id as their +all attachments objects with this attachment's Id as their C<Parent>. =cut @@ -499,12 +499,14 @@ L<Email::Address> objects. =cut +our @ADDRESS_HEADERS = qw(From To Cc Bcc RT-Send-Cc RT-Send-Bcc); + sub Addresses { my $self = shift; my %data = (); my $current_user_address = lc $self->CurrentUser->EmailAddress; - foreach my $hdr (qw(From To Cc Bcc RT-Send-Cc RT-Send-Bcc)) { + foreach my $hdr (@ADDRESS_HEADERS) { my @Addresses; my $line = $self->GetHeader($hdr); |