X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=lib%2FMojoFacets%2FChanges.pm;fp=lib%2FMojoFacets%2FChanges.pm;h=9028236a486314b64ae20d907ca15c07a8d7a315;hb=2194c3da3473ea1e9003f72b9ee8cf558df76ab0;hp=e9c2fdf8c94c8479aac042722807358dcefd7d8c;hpb=fa8c651284f68489c3575e84b95447e14377c4eb;p=MojoFacets.git

diff --git a/lib/MojoFacets/Changes.pm b/lib/MojoFacets/Changes.pm
index e9c2fdf..9028236 100644
--- a/lib/MojoFacets/Changes.pm
+++ b/lib/MojoFacets/Changes.pm
@@ -40,15 +40,31 @@ sub view {
 	$self->render( change => retrieve( "/tmp/changes/$uid" ), uid => $uid );
 }
 
+sub _edit_path {
+	my $self = shift;
+	my $path = $self->param('path') || $self->session('path');
+	$self->app->home->rel_dir('data') . '/' . $path . '.edits';
+}
+
 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 cmp $a } glob $edit_path . '/*' ) {
+	my $glob = $self->_edit_path . '/*';
+	foreach my $t ( sort { $b cmp $a } glob $glob ) {
 		push @$edits, retrieve("$t");
 	}
 	$self->render( edits => $edits );
 }
 
+sub edit {
+	my $self = shift;
+
+	if ( my $t = $self->param('remove') ) {
+		unlink $self->_edit_path . '/' . $t;
+	}
+
+	$self->redirect_to('/changes/edits');
+}
+
 1;