The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
<%init>
return unless $ARGS{'Queue'} =~ /^(Incidents|Incident Reports|Investigations)$/i;
return unless ($ARGS{'Incident'} || $ARGS{'Child'} || $ARGS{'Parent'});

my $ticket = RT::Ticket->new($session{'CurrentUser'});

my $tid = $ARGS{'Incident'} || $ARGS{'Child'} || $ARGS{'Parent'};
$ticket->Load($tid);

$ARGSRef->{Content} = $ticket->IODEF();
$ARGSRef->{Subject} = $ticket->Subject();

</%init>
<%args>
$ARGSRef	=> {}
</%args>