reset columns on load of .txt file

This allow us to peresent user always with exact order of columns from file

diff --git a/lib/MojoFacets/Data.pm b/lib/MojoFacets/Data.pm
index 50d8419..2cd2d5a 100644 (file)
--- a/lib/MojoFacets/Data.pm
+++ b/lib/MojoFacets/Data.pm
@@ -57,6 +57,7 @@ sub load {
                my @header = split(/\|/, shift @lines);
                warn "# header ", dump( @header );
                $self->session( 'header' => [ @header ] );
+               $self->session( 'columns' => [ @header ] );
                foreach my $line ( @lines ) {
                        my @v = split(/\|/, $line);
                        my $item;