5 % foreach my $column ( @{ session('columns') } ) {
6 % next unless defined $snippets->{$column};
7 <h2><%= $column %></h2>
9 % foreach my $desc ( keys %{ $snippets->{$column} } ) {
11 <form method=post action=/data/items>
12 <input type=submit name=test value="Load and test">
13 <a href="/code/<%= $column . '.' . $desc %>"><%= $desc %></a>
15 % my $code = $snippets->{$column}->{$desc};
16 % my $rows = scalar split(/\n/,$code);
17 <textarea name=code cols=80 rows=<%= $rows %>>
26 <tt class=debug><%= dumper stash('snippets') %></tt>