<& /RTIR/Elements/Header, Title => $Title &> <& /Elements/Tabs &> <& /Elements/ListActions, actions => \@results &>
% $m->callback( CallbackName => 'FormStart', ARGSRef => \%ARGS );
% foreach my $field (To Cc Bcc) { % }
<&|/l&>Subject: <% $TicketObj->Subject %>
<% loc($field) %>: <& /Elements/EmailInput, Name => $field, Default => $ARGS{ $field }, Size => undef, &>
<& /Elements/Submit, Label => loc('Forward Message'), Name => 'Forward' &>
<%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'); <%ARGS> $id => undef $QuoteTransaction => undef