% layout 'default';
-<h1>Code snippets</h1>
-% foreach my $depends ( keys %$snippets ) {
+<form>
+Show code snippets for
+% if ( ! param('all_columns') ) {
+<input name=all_columns type=submit value="any">
+% } else {
+<input type=submit value="visible">
+% }
+column in this dataset
+% if ( ! param('all_code') ) {
+·
+<input name=all_code type=submit value="all code snippets">
+% }
+</form>
+
+% foreach my $depends ( sort { lc $a cmp lc $b } keys %$snippets ) {
<h2><%= $depends %></h2>
<ul>
% foreach my $desc ( keys %{ $snippets->{$depends} } ) {
+% my $have_deps = ! exists $no_deps->{$depends}->{$desc};
<li>
<form method=post action=/data/items>
-<input type=submit name=test value="Load and test">
-% my $path = "code/$depends.$desc.pl";
-<a target=code href="/<%= $path %>"><%= $desc %></a>
+<input type=submit name=<%= $have_deps ? 'test' : 'load' %> value="<%= $have_deps ? 'Load and test' : 'Load' %>">
+% my $path = "$depends.$desc.pl";
+<a target=code href="/code/<%= $path %>"><%= $desc %></a>
+% if ( $have_deps ) {
<input type=hidden name=code_depends value="<%= $depends %>">
<input type=hidden name=code_description value="<%= $desc %>">
+% }
+<a class=remove href="<%= url_for( action => 'remove' )->query( path => $path ) %>">remove</a>
<br>
% my $code = $snippets->{$depends}->{$desc};
% my $rows = scalar split(/\n/,$code);