The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
[% PROCESS macros %]

[% INCLUDE header %]

[% IF search %]
<h2> Search results </h2>
[% ELSE %]
<h2> Listing of all [% classmetadata.plural %]</h2>
[% END %]

[% INCLUDE navbar %]
<DIV class="search"> [% INCLUDE search_form %] </DIV>

<DIV class="list">
<TABLE id="matrix" WIDTH="100%">
<TR>
[% FOR col = classmetadata.columns.list;
    NEXT IF col == "id";
    "<TH>"; 
    SET additional = "?order=" _ col;
    SET additional = additional _ "&page=" _ pager.current_page IF pager;
    SET additional = additional _ "&o2=desc" 
        IF col == request.query.order and request.query.o2 != "desc";
     link(classmetadata.table, "list", additional, classmetadata.colnames.$col);
    "</TH>";
END %]
</TR>

[%  SET count = 0;
FOR item = objects;
    SET count = count + 1;
    "<tr";
    ' class="alternate"' IF count % 2;
    ">";
    display_line(item);
    "</tr>";
END %]
</TABLE>

[% INCLUDE pager; %]
[% INCLUDE addnew; %]
</DIV>
[% INCLUDE footer %]