projects
/
MojoFacets.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
added remove profile link
[MojoFacets.git]
/
lib
/
MojoFacets
/
Profile.pm
diff --git
a/lib/MojoFacets/Profile.pm
b/lib/MojoFacets/Profile.pm
index
ecdd77e
..
c28e2c5
100644
(file)
--- a/
lib/MojoFacets/Profile.pm
+++ b/
lib/MojoFacets/Profile.pm
@@
-30,4
+30,15
@@
warn "XXX profile $profile\n";
);
}
);
}
+sub remove {
+ my $self = shift;
+
+ if ( my $profile = $self->param('profile') ) {
+ unlink "/tmp/MojoFacets.profile.$profile";
+ rmtree $self->app->home->rel_dir('public') . "/profile/$profile";
+ }
+
+ $self->redirect_to('/profile');
+}
+
1
1