projects
/
MojoFacets.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
remove link added to each export
[MojoFacets.git]
/
lib
/
MojoFacets
/
Data.pm
diff --git
a/lib/MojoFacets/Data.pm
b/lib/MojoFacets/Data.pm
index
7344f89
..
2d30a0b
100644
(file)
--- a/
lib/MojoFacets/Data.pm
+++ b/
lib/MojoFacets/Data.pm
@@
-1028,12
+1028,14
@@
sub save {
sub export {
my $self = shift;
sub export {
my $self = shift;
+ my $dir = $self->app->home->rel_dir('public');
+
if ( my $import = $self->param('import') ) {
if ( $import =~ m{/filter\.(.+?)\..+} ) {
my $name = $1;
my @vals = map { chomp; $_ }
if ( my $import = $self->param('import') ) {
if ( $import =~ m{/filter\.(.+?)\..+} ) {
my $name = $1;
my @vals = map { chomp; $_ }
- read_file
$self->app->home->rel_dir('public') . "
/export/$import", binmode => ':utf8';
+ read_file
"$dir
/export/$import", binmode => ':utf8';
$self->_remove_filter( $name );
$self->_filter_on_data( $name, @vals );
$self->session( 'offset' => 0 );
$self->_remove_filter( $name );
$self->_filter_on_data( $name, @vals );
$self->session( 'offset' => 0 );
@@
-1043,6
+1045,13
@@
sub export {
}
}
}
}
+ if ( my $remove = $self->param('remove') ) {
+ my $path = "$dir/export/$remove";
+ unlink $path if -e $path;
+ $path .= '.png';
+ unlink $path if -e $path;
+ }
+
my @files = grep { ! /\.png$/ } glob( $self->_export_path . '*' );
my $mtime = { map { $_ => (stat($_))[9] } @files };
@files = sort { $mtime->{$b} <=> $mtime->{$a} } @files;
my @files = grep { ! /\.png$/ } glob( $self->_export_path . '*' );
my $mtime = { map { $_ => (stat($_))[9] } @files };
@files = sort { $mtime->{$b} <=> $mtime->{$a} } @files;