<%= dumper $cols_changed %>
% my $commit = param('commit');
% foreach my $n ( @$columns ) {
% if ( defined $cols_changed->{$n} && ! $commit ) {
{$n} ? 'changed' : 'used' %>>
<%= $n %>
% } else {
|
% if ( $unique->{$n} ) {
✍
% }
% if ( session('order') ne $n ) {
<%= $n %>
% } else {
<%= $n %>
<%== session('sort') eq 'a' ? '↑' : '↓' %>
% }
% }
|
% }
% foreach my $row ( @$sorted ) {
% foreach my $col ( @$columns ) {
% my @class ;
% push @class, 'numeric' if $numeric->{$col};
% if ( defined $cols_changed->{$col} ) {
% push @class, $cols_changed->{$col} ? 'changed' : 'used';
% }
% 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