move selection of visible snippets to top

[MojoFacets.git] / lib / MojoFacets / Code.pm

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;