%# Idaho state law makes it illegal for a man to give his sweetheart a box
%# of candy weighing less than fifty pounds.
<& /Edit/Elements/List,
    %ARGS,
    Data  => [
	[ '25%', loc('Queue Name'),	    sub { $_[0]->Name },
            sub { ($_[0] and $_[0]->Id == -1) ? 'colspan=2' : '' }
        ],
	[ '25%', loc('Ticket Type'),	    sub { $_[0]->Description },
            sub { ($_[0] and $_[0]->Id == -1) ? die : '' }
        ],
	[ '15%', loc('Delegates'),	    sub {
	    $ARGS{Delegates}{$_[0]->Id}->UserMembersObj->First->Name
	} ,"align=center"],
	[ '15%', loc('Delegates Status'),   sub {
	    $_[0]->Id ? eval {
		my $group = $ARGS{Delegates}{$_[0]->Id};
		$group->Disabled ? loc('Disabled') :
		$group->IsActive ? loc('Open') :
				   loc('Disabled') # 'Out of range'
	    } : ''
	} ,"align=center"],
	[ '10%', loc('Starts'),   sub {
	    $ARGS{Delegates}{$_[0]->Id}->StartsDate
	} ],
	[ '10%', loc('Due'),   sub {
	    $ARGS{Delegates}{$_[0]->Id}->DueDate
	} ],
    ],
    Link    => sub {
	($ARGS{URL} || "?Begin=$Begin&") . "Category=$ARGS{Category}&Queue=" . $_[0]->Id
    },
    Size    => $Size,
    Style   => $Style,
    Width   => $Width,
    BG      => sub {
        eval { $_[0]->Id == $_[1]->Id } ? '#FFFFCC' :
            ($_[0] and $_[0]->Id == -1) ? '#D7FFD7' : '#FFFFFF'
    },
&>
<%ARGS>
$Begin	=> 0
$ARGS	=> {}
$Size   => 14
$Style  => 'height: 380px'
$Width  => undef
</%ARGS>
