}
my $dir = $self->app->home->rel_dir('public') . "/export/$path";
mkpath $dir unless -e $dir;
- my $name = unac_string( join('.', @_) );
- $name =~ s/\W+/_/g;
+ my $name = join('.', map { my $n = unac_string($_); $n =~ s/\W+/_/g; $n; } @_ );
$dir . '/' . $name;
}
my $columns = $self->session('columns') || $self->redirect_to('/data/columns');
- my $name = unac_string( join('.', 'items', @$columns) );
- $name =~ s/\W+/_/g;
+ my $name = join('.', 'items', map { my $n = unac_string($_); $n =~ s/\W+/_/g; $n } @$columns );
warn "# name $name\n";