From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Wed, 2 Jun 2010 20:02:26 +0000 (+0200)
Subject: dump edits
X-Git-Url: http://git.rot13.org/?p=MojoFacets.git;a=commitdiff_plain;h=84b6466cd99b88e60723222d00722b1cba39ccde

dump edits
---

diff --git a/lib/MojoFacets/Changes.pm b/lib/MojoFacets/Changes.pm
index 9c07764..3d0392e 100644
--- 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
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>
+% }