normalize JUST column names

[MojoFacets.git] / lib / MojoFacets / Gnuplot.pm

diff --git a/lib/MojoFacets/Gnuplot.pm b/lib/MojoFacets/Gnuplot.pm
index a33e82f..6a13051 100644 (file)
--- a/lib/MojoFacets/Gnuplot.pm
+++ b/lib/MojoFacets/Gnuplot.pm
@@ -7,13 +7,18 @@ use base 'Mojolicious::Controller';
 
 use Data::Dump qw(dump);
 use Digest::MD5 qw(md5_hex);
+use Text::Unaccent::PurePerl;
 
 sub index {
        my $self = shift;
 
        my $columns = $self->session('columns') || $self->redirect_to('/data/columns');
 
-       my $url = '/export/' . $self->session('path') . '/' . join('.', @$columns);
+       my $name = join('.', 'items', map { my $n = unac_string($_); $n =~ s/\W+/_/g; $n } @$columns );
+
+       warn "# name $name\n";
+
+       my $url = '/export/' . $self->session('path') . '/' . $name;
        my $dir = $self->app->home->rel_dir('public');
 
        if ( -e "$dir/$url" ) {
@@ -31,7 +36,7 @@ set output '$dir/$url.png'
 
                |;
 
-               if ( my $timefmt = $self->session('timefmt') ) {
+               if ( my $timefmt = $self->param('timefmt') ) {
                        $g .= qq|
 
 set xdata time