import filters

diff --git a/lib/MojoFacets/Data.pm b/lib/MojoFacets/Data.pm
index 736ad74..5b26968 100644 (file)
--- a/lib/MojoFacets/Data.pm
+++ b/lib/MojoFacets/Data.pm
@@ -831,8 +831,24 @@ sub save {
 
 sub export {
        my $self = shift;
+
+       if ( my $import = $self->param('import') ) {
+
+               if ( $import =~ m{/filter\.(\w+)\.} ) {
+                       my $name = $1;
+                       my @vals = map { chomp; $_ }
+                               read_file $self->app->home->rel_dir('public') . "/export/$import";
+warn dump(@vals);
+                       $self->_remove_filter( $name );
+                       $self->_filter_on_data( $name, @vals );
+                       $self->session( 'offset' => 0 );
+                       $self->redirect_to('/data/items');
+               } else {
+                       warn "UNKNOWN IMPORT $import";
+               }
+       }
+
        $self->render( export => [
-               map { s{^.+/public/export/}{}; $_ }
                glob( $self->_export_path . '*' )
        ] );
 }

diff --git a/templates/data/export.html.ep b/templates/data/export.html.ep
index 2333993..75eccd9 100644 (file)
--- a/templates/data/export.html.ep
+++ b/templates/data/export.html.ep
@@ -2,7 +2,13 @@
 
 <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
+<a href="?import=<%= $path %>">import</a>
 % }
 </ul>