%# Fairy Tale, n.:
%# 	A horror story to prepare children for the newspapers.

<& /Work/Tickets/Elements/ShowQueue, QueueObj => $Ticket->QueueObj, TicketObj => $Ticket &>
<& /Work/Tickets/Elements/ShowBasics, Ticket => $Ticket, ReadOnly => 1 &>
<tr><td><table cellpadding=0 cellspacing=0 border=0 width="100%">
<tr><td><table cellpadding=0 cellspacing="2" border=0 width="100%">
<& /Work/Tickets/Elements/EditCustomFields, Ticket => $Ticket, ReadOnly => $ReadOnly, ShowOrAdd => 'Show' &>
</td></tr></table>
<& /Work/Tickets/Elements/ShowHistory, 
      Ticket => $Ticket, 
      Collapsed => $ARGS{'Collapsed'}, 
      ShowHeaders => $ARGS{'ShowHeaders'},
      ShowTitleBarCommands => $ARGS{'ShowTitleBarCommands'}, &>
% if ($IsOpen) {
    <& /Work/Approvals/Elements/Approve, ShowActions => $ShowActions, Approval => $Approval &>
% }
	</table>
% if ($ShowActions) {
    <& /Work/Approvals/Elements/Actions, Submit => $IsOpen, id => $id &>
% }
	    <a href="#" id="BottomObj" name="BottomObj"></a>
          </td>
        </tr>
      </table>

<%INIT>

if (!$Approval) {
    Abort('No ticket specified') unless $id;

    $Approval = RT::Ticket->new($session{'CurrentUser'});
    $Approval = LoadTicket($ARGS{'id'});
}

unless ($Approval->CurrentUserHasRight('ShowTicket')) {
    Abort("No permission to view ticket");
}

Abort('Not an approval ticket') unless $Approval->Type eq 'approval';

my $Ticket = $Approval->OriginObj or Abort('Root ticket not found');
my $IsOpen = (RT::Queue->IsActiveStatus($Approval->Status));

</%INIT>
<%ARGS>
$id => 0
$ReadOnly => 0
$ShowActions => 1
$Approval => undef
</%ARGS>
