%# What this world needs is a good five-dollar plasma weapon.
% my $approval;
<& /Edit/Elements/List,
    %ARGS,
    Data  => [
	[ '6%', loc("Ticket ID"),	    sub { $_[0]->Id }, "align='right'" ],
($Role eq 'approver') ? (
	[ '10%', loc("Stage"),		    sub { $approval->Subject } ],
	[ '8%', loc("Approver"),	    sub { $approval->OwnerObj->Name },"align=center" ],
) : (),
	[ '10%', loc("Queue Name"),	    sub { $_[0]->QueueObj->Name } ],
($RT::OIN104 ? (
	[ '8%', loc("Ticket Type"),        sub { $_[0]->QueueObj->Description } ],
) : (
	[ '15%', loc("Subject"),            sub { $_[0]->Subject } ],
)),
	[ '10%', loc("Activated Date"),	    sub { $_[0]->CreatedObj->AsDate } ,"align=center"],
($Role ne 'approver') ? (
	[ '20%', loc("Status"),		    sub {
	    my $stage = $m->scomp('/Work/Tickets/Elements/ShowApprovals', Ticket => $_[0]);
	    $stage || loc($_[0]->Status || ' ')
	} ,"align=center"],
) : (),
	[ '8%', loc("Requestor"),	    sub { $_[0]->FirstRequestor->Name } ,"align=center"],
($Role ne 'requestor') ? (
	[ '10%', loc("Requestor's Phone"),  sub { $_[0]->FirstRequestor->WorkPhone } ],
) : (),
	[ '8%', loc("Queue Owner"),	    sub { $_[0]->OwnerObj->Name } ,"align=center"] ,
($Role ne 'owner') ? (
	[ '12%', loc("Owner's Phone"),	    sub { $_[0]->OwnerObj->WorkPhone } ] ,
) : (),
	grep ref($_), $m->comp('/Elements/Callback', approval => $approval, %ARGS),
    ],
    Link    => sub { "$URL?id=" . ($approval->Id || $_[0]->Id) },
    Style   => 'height: 393px',
    Size    => 14,
    CBItem  => sub {
	$approval = $_[0] || $RT::Nothing;
	return $_[0] unless $Role eq 'approver' and $_[0];
	return $_[0]->OriginObj;
    },
    BG	=> sub {
	($_[0] and RT::Queue->IsActiveStatus($approval->Status) and $_[0]->IsOverdue)
            ? "#ffcccc" : "#ffffff";
    },
&>
<%ARGS>
$URL	=> ''
$Role	=> ''
$IDMap	=> {}
$Begin	=> 0
$ARGS	=> {}
</%ARGS>
