The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
FALCONE / RT-Extension-TicketLocking-0.12 / html / Callbacks / RT-Extension-TicketLocking / RTIR / Incident / Reply.html / BeforeDisplay 
<%ARGS>
$Ticket
$PassArguments => {}
</%ARGS>

<%INIT>
my ($d) = $Ticket->Unlock;
$PassArguments->{'Duration'} = $d unless $PassArguments->{'Duration'};
</%INIT>