show png pictures below each export or items

[MojoFacets.git] / templates / data / export.html.ep

diff --git a/templates/data/export.html.ep b/templates/data/export.html.ep
index 2333993..05812a2 100644 (file)
--- a/templates/data/export.html.ep
+++ b/templates/data/export.html.ep
@@ -2,7 +2,17 @@
 
 <ul>
 % foreach my $e ( @$export ) {
-<li><a target="<%= $e %>" href="/export/<%= $e %>"><%= $e %></a>
+%  my $path = $e; $path =~ s{^.+/public/export/}{};
+<li>
+<tt>
+<a target="<%= $path %>" href="/export/<%= $path %>"><%= $path %></a>
+</tt>
+<%= -s $e %> bytes
+%  if ( -e $e . '.png' ) {
+<br><img src="/export/<%= $path %>.png">
+%  } elsif ( $path =~ m/filter\./ ) {
+<a href="?import=<%= $path %>">import</a>
+%  }
 % }
 </ul>