From bf13ff04419a07ef59a7cf6adce29fe1bca08c8a Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Sun, 6 Jun 2010 13:44:26 +0200
Subject: [PATCH] import filters

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

diff --git a/lib/MojoFacets/Data.pm b/lib/MojoFacets/Data.pm
index 736ad74..5b26968 100644
--- 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
--- 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>
 
-- 
2.20.1