% foreach my $n ( @$columns ) { % } % foreach my $row ( @$sorted ) { % foreach my $col ( @$columns ) { {$col} ? ' class=numeric' : '' %>><%= ref $row->{$col} eq 'ARRAY' ? join(', ',@{ $row->{$col} }) : $row->{$col} %> % } % }
<%== $filters->{$n} ? '♦' : '◊' %> % if ( session('order') ne $n ) { <%= $n %> % } else { <%= $n %> <%== session('sort') eq 'a' ? '↑' : '↓' %> % }