& /RTIR/Elements/Header, Title => $Title &> <& /Elements/Tabs &> <& /Elements/ListActions, actions => \@results &>
<%INIT> my $TicketObj = LoadTicket($id); $id = $ARGS{'id'} = $TicketObj->id; Abort( loc("Permission denied") ) unless $TicketObj->CurrentUserHasRight('ForwardMessage'); my $Type = RT::IR::TicketType( Ticket => $TicketObj ); my $txn = RT::Transaction->new( $session{'CurrentUser'} ); $txn->Load( $QuoteTransaction ); Abort( loc("Couldn't load transaction #[_1]", $QuoteTransaction) ) unless $txn->id; my @results; if ( $ARGS{'Forward'} ) { require RT::Interface::Email; my ($status, $msg) = RT::Interface::Email::ForwardTransaction( $txn, %ARGS ); push @results, $msg; MaybeRedirectForResults( Actions => \@results, Arguments => { id => $Ticket->id, QuoteTransaction => $QuoteTransaction }, ); } my $Title = loc('Forward message'); %INIT> <%ARGS> $id => undef $QuoteTransaction => undef %ARGS>