'JSON' => 0,
'HTML::TableExtract' => 0,
'File::Path' => 0,
+ 'Text::Unaccent::PurePerl' => 0,
},
test => {TESTS => 't/*.t t/*/*.t t/*/*/*.t'}
);
use Storable;
use Time::HiRes qw(time);
use File::Path qw(mkpath);
+use Text::Unaccent::PurePerl;
use MojoFacets::Import::File;
use MojoFacets::Import::HTMLTable;
}
my $dir = $self->app->home->rel_dir('public') . "/export/$path";
mkpath $dir unless -e $dir;
- $dir . '/' . join('.', @_);
+ $dir . '/' . unac_string( join('.', @_) );
}
sub columns {
}
if ( $self->param('export') ) {
- my $export_path = "public/export/$path/" . join('.', @columns);
+ my $export_path = $self->_export_path( 'items', @columns);
open(my $fh, '>', $export_path) || warn "ERROR: can't open $export_path: $!";
foreach my $f ( 0 .. $#$filtered ) {
print $fh join("\t", map {
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 $url = '/export/' . $self->session('path') . '/' . unac_string( join('.', 'items', @$columns) );
my $dir = $self->app->home->rel_dir('public');
if ( -e "$dir/$url" ) {