From 38b4bb0047fd845f1f7c078501b948a29f3b2cbc Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Wed, 12 May 2010 20:44:45 +0200 Subject: [PATCH] reset columns on load of .txt file This allow us to peresent user always with exact order of columns from file --- lib/MojoFacets/Data.pm | 1 + 1 file changed, 1 insertion(+) diff --git a/lib/MojoFacets/Data.pm b/lib/MojoFacets/Data.pm index 50d8419..2cd2d5a 100644 --- 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; -- 2.20.1