filter changes can be applied back to dataset

This is significant improvement, because it turns changes (dump
everything as Storable on disk) to time-travel feature. Most
improtantly, you can keep your changes between server restarts.

diff --git a/lib/MojoFacets/Changes.pm b/lib/MojoFacets/Changes.pm
index ad8ce60..0588c19 100644 (file)
--- a/lib/MojoFacets/Changes.pm
+++ b/lib/MojoFacets/Changes.pm
@@ -27,7 +27,7 @@ sub index {
 sub view {
        my $self = shift;
        my $uid = $self->param('uid');
-       $self->render( change => retrieve( "/tmp/changes/$uid" ) );
+       $self->render( change => retrieve( "/tmp/changes/$uid" ), uid => $uid );
 }
 
 1;

diff --git a/templates/changes/view.html.ep b/templates/changes/view.html.ep
index 8076e6d..f86274a 100644 (file)
--- a/templates/changes/view.html.ep
+++ b/templates/changes/view.html.ep
@@ -1,2 +1,22 @@
-%# layout 'default';
+% layout 'default';
+
+% my $action = $uid;
+% $action =~ s/^.+\.([^\.]+)$/$1/;
+% $action = url_for( controller => 'data', action => $action );
+<form action=<%= $action %>>
+<input type=submit value="<%= $action %>">
+% my $params = $change->{params};
+<ul>
+% while ( @$params ) {
+%      my $n = shift @$params;
+%      my $v = shift @$params;
+<li><label>
+<%= $n %>
+<input type=checkbox name="<%= $n %>" value="<%= $v %>" checked>
+<%= $v %>
+</label>
+% }
+</ul>
+</form>
+
 <pre class=debug><%= dumper $change %></pre>