% foreach my $n ( @$columns ) { % } % foreach my $row ( @$sorted ) { % foreach my $col ( @$columns ) { {$col} ? ' class=numeric' : '' %>> % if ( ref $row->{$col} eq 'ARRAY' ) { % my $last = $#{ $row->{$col} }; % foreach ( 0 .. $last ) { <%= $row->{$col}->[$_] %> % if ( $_ < $last ) { ¶ % } % } % } elsif ( ref $row->{$col} ) {

<%= dumper $row->{$col} %>

% } else { <%= $row->{$col} %> % } % } # columns % } # sorted

% if ( session('order') ne $n ) { <%= $n %> % } else { <%= $n %> <%== session('sort') eq 'a' ? '↑' : '↓' %> % } % if ( defined $filters->{$n} ) { <%= $#{ $filters->{$n} } + 1 %> all % } else { filter % }