<%= dumper $cols_added %>
% foreach my $n ( @$columns ) {
% if ( session('order') ne $n ) {
<%= $n %>
% } else {
<%= $n %>
<%== session('sort') eq 'a' ? '↑' : '↓' %>
% }
|
% }
% foreach my $row ( @$sorted ) {
% foreach my $col ( @$columns ) {
{$col} ? ' class=numeric' : $cols_added->{$col} ? ' class=changed' : '' %>>
% 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 ( $code ) {
% }