From: Dobrica Pavlinusic Date: Wed, 12 May 2010 18:44:45 +0000 (+0200) Subject: reset columns on load of .txt file X-Git-Url: http://git.rot13.org/?a=commitdiff_plain;ds=sidebyside;h=38b4bb0047fd845f1f7c078501b948a29f3b2cbc;p=MojoFacets.git 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 --- 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;