templates/data/items/table.html.ep

   1 <table border=1>
   2
   3 <tr>
   4 % my $commit = param('commit');
   5 % foreach my $n ( @$columns ) {
   6 % if ( defined $cols_changed->{$n} && ! $commit ) {
   7 <th class=<%= $cols_changed->{$n} ? 'changed' : 'used' %>>
   8 <%= $n %>
   9 % } else {
  10 <th>
  11 % if ( $unique->{$n} ) {
  12 <span title="unique">&#9997;</span>
  13 % }
  14 % if ( session('order') ne $n ) {
  15 <a href="<%= url_for( action => 'items' )->query( order => $n, sort => 'a' ) %>"><%= $n %></a>
  16 % } else {
  17 <a href="<%= url_for( action => 'items' )->query( order => $n, sort => session('sort') eq 'a' ? 'd' : 'a' ) %>"><%= $n %></a>
  18 <%== session('sort') eq 'a' ? '&uarr;' : '&darr;' %>
  19 % }
  20 <div class="col_opts">
  21 <a title="filter by this facet" href="<%= url_for( action => 'facet' )->query( name => $n, all => 0 ) %>">
  22 % if ( defined $filters->{$n} ) {
  23 <%= $#{ $filters->{$n} } + 1 %></a>&nbsp;
  24 <a title="show all values" href="<%= url_for( action => 'facet' )->query( name => $n, all => 1 ) %>">all
  25 % } else {
  26 filter
  27 % }
  28 </a>
  29 </div>
  30
  31 % }
  32 </th>
  33 % }
  34 </tr>
  35
  36 % foreach my $row ( @$sorted ) {
  37 <tr title="<%= $row->{_row_id} %>">
  38 % foreach my $col ( @$columns ) {
  39 %  my @class ;
  40 %  push @class, 'numeric' if $numeric->{$col};
  41 %  if ( defined $cols_changed->{$col} ) {
  42 %   push @class, $cols_changed->{$col} ? 'changed' : 'used';
  43 %  }
  44 <td class="<%= join(' ',@class) %>">
  45 %  if ( ref $row->{$col} eq 'ARRAY' ) {
  46 %   my $last = $#{ $row->{$col} };
  47 %   foreach ( 0 .. $last ) {
  48 <%= $row->{$col}->[$_] %>
  49 %    if ( $_ < $last ) {
  50 <span class=d>&para;</span>
  51 %    }
  52 %   }
  53 %  } elsif ( ref $row->{$col} ) {
  54 <pre class=debug><%= dumper $row->{$col} %></pre>
  55 %  } else {
  56 <%= $row->{$col} %>
  57 %  }
  58 </td>
  59 % } # columns
  60 </tr>
  61 % } # sorted
  62
  63 </table>
  64 <form id=eval method=post style="<%= $code ? '' : 'display:none' %>">
  65
  66 % my $error = stash('eval_error');
  67 % if ( $error ) {
  68 <tt class=error><%= $error %></tt>
  69 % }
  70
  71 % if ( $out ) {
  72 <pre id=out><%= dumper $out %></pre>
  73 % }
  74
  75 % my $rows = scalar split(/\n/,$code);
  76 <textarea name=code rows=<%= $rows %>><%= $code %></textarea>
  77 <input name=test   type=submit value="Test code">
  78
  79 % if ( param('test') ) {
  80 <a href="">reload original</a>
  81 %   if ( ! $error ) {
  82 <input name=commit type=submit value="Commit changes" style="color:red">
  83 %   }
  84 % }
  85
  86 % if ( $code_depends ) {
  87 <input name=code_depends value="<%= $code_depends %>">.<input name=code_description type=text value="<%= $code_description %>">.pl
  88 %  my $path = "$code_path/$code_depends.$code_description.pl";
  89 %  if ( -e $path ) {
  90 <input type=checkbox name=overwrite value=1 title="Overwrite old version of this code">
  91 %  }
  92 % }
  93
  94 <input id=close name=close  type=button value="Close" style="float: right">
  95 </form>
  96
  97 <script type="text/javascript" src="/js/eval_console.js"></script>
  98 <script type="text/javascript" src="/edit_table.js"></script>
  99