my $path = $self->session('path') || return $self->redirect_to('/data/load');
my $with = $self->param('with') || 'points';
+ my $hide_columns;
+ if ( $self->param('gnuplot_hide') ) {
+ $hide_columns->{$_}++ foreach $self->param('gnuplot_hide');
+ warn "## hide_columns ", dump $hide_columns;
+ }
+
# my $name = join('.', 'items', map { my $n = unac_string($_); $n =~ s/\W+/_/g; $n } @$columns );
my $name = MojoFacets::Data::__export_path_name( $path, 'items', @$columns );
warn "# name $name\n";
my $url = "/export/$path/$name";
- my $dir = $self->app->home->rel_dir('public');
+ my $dir = $self->app->home->rel_file('public');
if ( -e "$dir/$url" ) {
+ my $timefmt = $self->param('timefmt');
+
+ my $spaces = $timefmt;
+ $spaces =~ s/\S//g;
+ $spaces = length( $spaces );
+
my @plot;
foreach ( 1 .. $#$columns ) {
- my $n = $_ + 1;
- push @plot, qq|"$dir/$url" using 1:$n title "$columns->[$_]" with $with|;
+ my $title = $columns->[$_];
+ $title =~ s/_/ /g;
+ my $n = $_ + 1 + $spaces;
+ push @plot, qq|"$dir/$url" using 1:$n title "$title" with $with| unless $hide_columns->{ $title };
}
my $g = qq|
|;
- if ( my $timefmt = $self->param('timefmt') ) {
+ if ( $timefmt ) {
$g .= qq|
set xdata time