%# Preudhomme's Law of Window Cleaning:
%# 	It's on the other side.
<& /Edit/Elements/List,
    %ARGS,
    Data  => [
	[ '20%', loc("Report Name"),	    sub { $_[0]->Name } ],
	[ '20%', loc("Category"),	    sub { $_[0]->Category } ],
	[ '20%', loc("Description"),	    sub { $_[0]->Description } ],
	[ '10%', loc("Creation Date"),	    sub { $_[0]->CreatedObj->AsDate }, "align=center" ],
	[ '10%', loc("Modification Date"),  sub { $_[0]->LastUpdatedObj->AsDate }, "align=center" ],
	[ '10%', loc("Author"),		    sub { $_[0]->OwnerObj->Name }, "align=center" ],
	[ '10%', loc("Lock"),		    sub {
	    return if $_[0] == $RT::Nothing;
	    ($_[0]->Disabled) ? loc('Locked') : loc('Unlocked')
	}, "align=center" ],
    ],
    Link    => sub { "/RG/Report/index.html?Id=" . $_[0]->Id },
    Size    => 18,
    BG	    => '#ffffff',
    Delete  => 1,
&>
