From 6ab85ad1235b0a2c187d7a50c621dcdaa5469fad Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Tue, 22 Jun 2010 22:50:23 +0200
Subject: [PATCH] show png pictures below each export or items

---
 lib/MojoFacets/Data.pm        | 2 +-
 templates/data/export.html.ep | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/lib/MojoFacets/Data.pm b/lib/MojoFacets/Data.pm
index a02a563..7344f89 100644
--- 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
--- 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>
 %  }
-- 
2.20.1