redirect to load without session path

diff --git a/lib/MojoFacets/Data.pm b/lib/MojoFacets/Data.pm
index 2d30a0b..69d4349 100644 (file)
--- a/lib/MojoFacets/Data.pm
+++ b/lib/MojoFacets/Data.pm
@@ -1052,7 +1052,9 @@ sub export {
                unlink $path if -e $path;
        }
 
-       my @files = grep { ! /\.png$/ } glob( $self->_export_path . '*' );
+       my $path = $self->_export_path || $self->redirect_to('/data/index');
+
+       my @files = grep { ! /\.png$/ } glob "$path/*";
        my $mtime = { map { $_ => (stat($_))[9] } @files };
        @files = sort { $mtime->{$b} <=> $mtime->{$a} } @files;
        $self->render( export => [ @files ] );