show png pictures below each export or items

diff --git a/lib/MojoFacets/Data.pm b/lib/MojoFacets/Data.pm
index a02a563..7344f89 100644 (file)
--- a/lib/MojoFacets/Data.pm
+++ b/lib/MojoFacets/Data.pm
@@ -1043,7 +1043,7 @@ sub export {
                }
        }
 
-       my @files = glob( $self->_export_path . '*' );
+       my @files = grep { ! /\.png$/ } glob( $self->_export_path . '*' );
        my $mtime = { map { $_ => (stat($_))[9] } @files };
        @files = sort { $mtime->{$b} <=> $mtime->{$a} } @files;
        $self->render( export => [ @files ] );

diff --git a/templates/data/export.html.ep b/templates/data/export.html.ep
index adb628f..05812a2 100644 (file)
--- a/templates/data/export.html.ep
+++ b/templates/data/export.html.ep
@@ -8,8 +8,8 @@
 <a target="<%= $path %>" href="/export/<%= $path %>"><%= $path %></a>
 </tt>
 <%= -s $e %> bytes
-%  if ( $path =~ m/\.png$/ ) {
-<img src="/export/<%= $path %>">
+%  if ( -e $e . '.png' ) {
+<br><img src="/export/<%= $path %>.png">
 %  } elsif ( $path =~ m/filter\./ ) {
 <a href="?import=<%= $path %>">import</a>
 %  }