Merge branch 'master' of github.com:dpavlin/mojo_facets
authorDobrica Pavlinusic <dpavlin@rot13.org>
Thu, 13 May 2010 22:19:42 +0000 (00:19 +0200)
committerDobrica Pavlinusic <dpavlin@rot13.org>
Thu, 13 May 2010 22:19:42 +0000 (00:19 +0200)
1  2 
lib/MojoFacets/Data.pm

@@@ -62,11 -55,14 +62,12 @@@ sub _load_path 
                my @lines = split(/\r?\n/, $data);
                $data = { items => [] };
  
 -              my $headers = shift @lines;
 -              my $multiline = $headers =~ s/\^//g;
 -              my @header = split(/\|/, $headers );
 +              my $header_line = shift @lines;
 +              my $multiline = $header_line =~ s/\^//g;
 +              @header = split(/\|/, $header_line );
                warn "# header ", dump( @header );
 -              $self->session( 'header' => [ @header ] );
 -              $self->session( 'columns' => [ @header ] );
                while ( my $line = shift @lines ) {
+                       $line =~ s/\^//g;
                        chomp $line;
                        my @v = split(/\|/, $line);
                        while ( @lines && $#v < $#header ) {