%#<pre class=debug><%= dumper $cols_changed %></pre>
<table border=1>

<tr>
% my $commit = param('commit');
% foreach my $n ( @$columns ) {
% if ( defined $cols_changed->{$n} && ! $commit ) {
<th class=<%= $cols_changed->{$n} ? 'changed' : 'used' %>>
<%= $n %>
% } else {
<th>
% if ( $unique->{$n} ) {
<span title="unique">&#9997;</span>
% }
% if ( session('order') ne $n ) {
<a href="<%= url_for( action => 'order' )->query( order => $n, sort => 'a' ) %>"><%= $n %></a>
% } else {
<a href="<%= url_for( action => 'order' )->query( order => $n, sort => session('sort') eq 'a' ? 'd' : 'a' ) %>"><%= $n %></a>
<%== session('sort') eq 'a' ? '&uarr;' : '&darr;' %>
% }
<div class="col_opts">
<a title="filter by this facet" href="<%= url_for( action => 'facet' )->query( name => $n, all => 0 ) %>">
% if ( defined $filters->{$n} ) {
<%= $#{ $filters->{$n} } + 1 %></a>&nbsp;
<a title="show all values" href="<%= url_for( action => 'facet' )->query( name => $n, all => 1 ) %>">all
% } else {
filter
% }
</a>
</div>

% }
</th>
% }
</tr>

% foreach my $row ( @$sorted ) {
<tr title="<%= $row->{_row_id} %>">
% foreach my $col ( @$columns ) {
%  my @class ;
%  push @class, 'numeric' if $numeric->{$col};
%  if ( defined $cols_changed->{$col} ) {
%   push @class, $cols_changed->{$col} ? 'changed' : 'used';
%  }
<td class="<%= join(' ',@class) %>">
%  if ( ref $row->{$col} eq 'ARRAY' ) {
%   my $last = $#{ $row->{$col} };
%   foreach ( 0 .. $last ) {
<%= $row->{$col}->[$_] %>
%    if ( $_ < $last ) {
<span class=d>&para;</span>
%    }
%   }
%  } elsif ( ref $row->{$col} ) {
<pre class=debug><%= dumper $row->{$col} %></pre>
%  } else {
<%= $row->{$col} %>
%  }
</td>
% } # columns
</tr>
% } # sorted

</table>
<form id=eval method=post style="<%= $code ? '' : 'display:none' %>">

% my $error = stash('eval_error');
% if ( $error ) {
<tt class=error><%= $error %></tt>
% }

% if ( $out ) {
<pre id=out><%= dumper $out %></pre>
% }

% my $rows = scalar split(/\n/,$code);
<textarea name=code rows=<%= $rows %>><%= $code %></textarea>
<input name=test   type=submit value="Test code">

% if ( param('test') ) {
<a href="">reload original</a>
%   if ( ! $error ) {
<input name=commit type=submit value="Commit changes" style="color:red">
%   }
% }

% if ( $code_depends ) {
<input name=code_depends value="<%= $code_depends %>">.<input name=code_description type=text value="<%= $code_description %>">.pl
%  my $path = "$code_path/$code_depends.$code_description.pl";
%  if ( -e $path ) {
<input type=checkbox name=overwrite value=1 title="Overwrite old version of this code">
%  }
% }

<input id=close name=close  type=button value="Close" style="float: right">
</form>

<script type="text/javascript" src="/js/eval_console.js"></script>
<script type="text/javascript" src="/edit_table.js"></script>