rt/lib/RT/Action/NotifyAsComment.pm

   1 #$Header: /home/cvs/cvsroot/freeside/rt/lib/RT/Action/NotifyAsComment.pm,v 1.1 2002-08-12 06:17:07 ivan Exp $
   2
   3 package RT::Action::NotifyAsComment;
   4 require RT::Action::Notify;
   5 @ISA = qw(RT::Action::Notify);
   6
   7
   8 =head2 SetReturnAddress
   9
  10 Tell SendEmail that this message should come out as a comment.
  11 Calls SUPER::SetReturnAddress.
  12
  13 =cut
  14
  15 sub SetReturnAddress {
  16         my $self = shift;
  17
  18         # Tell RT::Action::SendEmail that this should come
  19         # from the relevant comment email address.
  20         $self->{'comment'} = 1;
  21
  22         return($self->SUPER::SetReturnAddress(is_comment => 1));
  23 }
  24 1;
  25