% my $commit = param('commit'); % foreach my $n ( @$columns ) { % if ( $cols_changed->{$n} == 2 && ! $commit ) { % } % foreach my $row ( @$sorted ) { % foreach my $col ( @$columns ) { % my $class = ''; % $class .= ' numeric' if $numeric->{$col}; % $class .= ' changed' if $cols_changed->{$col}; % $class =~ s/^ / class="/ && $class =~ s/$/"/; > % 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
<%= $n %> % } else { % if ( session('order') ne $n ) { <%= $n %> % } else { <%= $n %> <%== session('sort') eq 'a' ? '↑' : '↓' %> % }
% if ( defined $filters->{$n} ) { <%= $#{ $filters->{$n} } + 1 %>  all % } else { filter % }
% }
% if ( $code ) {
% my $error = stash('eval_error'); % if ( $error ) {
<%= $error %>
% } % my $rows = scalar split(/\n/,$code); % if ( param('test') ) { reload original % if ( ! $error ) { % } % } % if ( $code_depends ) { <%= $code_depends %>..pl % my $path = "$code_path/$code_depends.$code_description.pl"; % if ( -e $path ) { % } % }
% }