dump edits

diff --git a/lib/MojoFacets/Changes.pm b/lib/MojoFacets/Changes.pm
index 9c07764..3d0392e 100644 (file)
--- a/lib/MojoFacets/Changes.pm
+++ b/lib/MojoFacets/Changes.pm
@@ -40,4 +40,15 @@ sub view {
        $self->render( change => retrieve( "/tmp/changes/$uid" ), uid => $uid );
 }
 
+sub edits {
+       my ( $self ) = @_;
+       my $path = $self->param('path') || $self->session('path');
+       my $edit_path = $self->app->home->rel_dir('data') . '/' . $path . '.edits';
+       my $edits;
+       foreach my $t ( sort { $b <=> $a } glob $edit_path . '/*' ) {
+               push @$edits, retrieve("$t");
+       }
+       $self->render( edits => $edits );
+}
+
 1;

diff --git a/templates/changes/edits.html.ep b/templates/changes/edits.html.ep
new file mode 100644 (file)
index 0000000..fc721b8
--- /dev/null
+++ b/templates/changes/edits.html.ep
@@ -0,0 +1,5 @@
+% layout 'default';
+
+% foreach my $e ( @$edits ) {
+<pre class=debug><%= dumper $e %></pre>
+% }