<%args>
$search => undef # from search_form
% if ( $search ) {
Search results
% } else {
Listing of all <% $classmetadata->{plural} %>
% }
<& navbar &>
% foreach my $col ( @{ $classmetadata->{columns} } ) {
% next if $col eq "id";
|
<%perl>
my $additional = "?order=$col";
$additional .= "&page=" . $pager->current_page if $pager;
$additional .= '&o2=desc' if ( $col eq $request->query->{order} and $request->query->{o2} ne "desc" );
my $action = "list";
foreach my $name ( @{ $classmetadata->{columns} } )
{
if ( $request->query->{ $name } )
{
$additional .= "&$name=" . $request->query->{ $name };
$action = "search";
}
}
<& link, table => $classmetadata->{table},
command => $action,
additional => $additional,
label => $classmetadata->{colnames}->{ $col } &>
% if ( $col eq $request->query->{order} ) {
<% ( $request->query->{o2} ne "desc" ? '↓' : '↑' ) %>
% }
|
% }
Actions |
% my $count = 0;
% foreach my $item ( @$objects ) {
% if ( $count++ % 2 ) {
% } else {
% }
<& display_line, item => $item &>
% }
<& pager &>
<& addnew &>
<& search_form &>