[Bps-public-commit] r13923 - RT-BugTracker/lib/RT/Action

[ruz at bestpractical.com]

Author: ruz
Date: Wed Jul  9 14:58:14 2008
New Revision: 13923

Added:
   RT-BugTracker/lib/RT/Action/
   RT-BugTracker/lib/RT/Action/NotifyAdditionalAddresses.pm

Log:
* add NotifyAdditionalAddresses action

Added: RT-BugTracker/lib/RT/Action/NotifyAdditionalAddresses.pm
==============================================================================
--- (empty file)
+++ RT-BugTracker/lib/RT/Action/NotifyAdditionalAddresses.pm	Wed Jul  9 14:58:14 2008
@@ -0,0 +1,29 @@
+package RT::Action::NotifyAdditionalAddresses;
+
+use strict;
+use warnings;
+use base qw(RT::Action::Notify);
+
+=head1 NAME
+
+RT::Action::NotifyAdditionalAddresses - sends notifications to additional addresses defined for the distribution
+
+=head1 DESCRIPTION
+
+Either maintainer or user with the AdminQueue right can define additional
+addresses for notifications. This is a subclass of L<RT::Action::Notify> that
+notifies those recipients.
+
+=cut
+
+sub SetRecipients {
+    my $self = shift;
+    my $attr = $self->TicketObj->QueueObj->FirstAttribute('NotifyAddresses');
+    return unless $attr;
+    my $addresses = $attr->Content;
+    return unless $addresses && @$addresses;
+
+    $self->{'To'} = [ @$addresses ];
+}
+
+1;