<%init>
foreach my $key (keys %{$ARGSRef})  {
  if($key =~ /^ForwardAttach-(\d+)-(\d+)$/)  {
    next unless $ARGSRef->{"ForwardAttach-$1-$2"} == 1;
    my $tr = RT::Transaction->new($session{CurrentUser});
    $tr->Load($1);
    my $at = RT::Attachment->new($session{CurrentUser});
    $at->Load($2);
    if($tr && $tr->Id && $at && $at->Id && $at->Filename && $at->TransactionId == $tr->Id)  {
      my $mime = MIME::Entity->build(
        Type     => $at->ContentType,
        Charset  => $at->OriginalEncoding,
        Data     => $at->OriginalContent,
        Filename => RT::Interface::Email::EncodeToMIME(String => 'Sent-'. $at->Filename, Charset => 'utf-8'),
      );
      my $fn = $at->Filename;
      $session{'Attachments'} = { %{$session{'Attachments'} || {}},
        $fn => $mime };
    }
  }
}
</%init>

<%args>
$ARGSRef => undef
</%args>
