move selection of visible snippets to top

diff --git a/lib/MojoFacets/Code.pm b/lib/MojoFacets/Code.pm
index 8111c36..703008d 100644 (file)
--- a/lib/MojoFacets/Code.pm
+++ b/lib/MojoFacets/Code.pm
@@ -15,7 +15,10 @@ sub index {
 
        $self->redirect_to('/data/columns') unless $self->session('columns');
        my $columns = { map { $_ => 1 } @{ $self->session('columns') } };
-       $columns->{$_} = 1 foreach @{ $self->session('header') };
+
+       if ( $self->param('all_columns') ) {
+               $columns->{$_} = 1 foreach @{ $self->session('header') }
+       }
 
        my $dir = $self->_code_dir;
 

diff --git a/templates/code/index.html.ep b/templates/code/index.html.ep
index d524780..b634c74 100644 (file)
--- a/templates/code/index.html.ep
+++ b/templates/code/index.html.ep
@@ -1,6 +1,19 @@
 % layout 'default';
 
-<h1>Code snippets</h1>
+<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') ) {
+&middot;
+<input name=all_code type=submit value="all code snippets">
+% }
+</form>
+
 % foreach my $depends ( keys %$snippets ) {
 <h2><%= $depends %></h2>
 <ul>
@@ -25,13 +38,4 @@
 </ul>
 % }
 
-<form>
-% if ( param('all_code') ) {
-<input type=hidden name=all_code value=0>
-<input type=submit value="Show just dependent code snippets">
-% } else {
-<input type=submit name=all_code value="Show all code snippets">
-% }
-</form>
-
 <tt class=debug><%= dumper stash('snippets') %></tt>