use Data::Dump qw(dump);
use File::Slurp;
+sub _code_dir { $_[0]->app->home->rel_dir('public') . '/code' }
+
sub index {
my $self = shift;
$self->redirect_to('/data/columns') unless $self->session('columns');
my $columns = { map { $_ => 1 } @{ $self->session('columns') } };
- my $dir = $self->app->home->rel_dir('public') . '/code';
+ my $dir = $self->_code_dir;
my $snippets;
);
}
+sub remove {
+ my $self = shift;
+ if ( my $path = $self->param('path') ) {
+ unlink $self->_code_dir . '/' . $path;
+ }
+ $self->redirect_to('/code');
+}
+
1;
<li>
<form method=post action=/data/items>
<input type=submit name=test value="Load and test">
-% my $path = "code/$depends.$desc.pl";
-<a target=code href="/<%= $path %>"><%= $desc %></a>
+% my $path = "$depends.$desc.pl";
+<a target=code href="/code/<%= $path %>"><%= $desc %></a>
<input type=hidden name=code_depends value="<%= $depends %>">
<input type=hidden name=code_description value="<%= $desc %>">
+<a class=remove href="<%= url_for( action => 'remove' )->query( path => $path ) %>">remove</a>
<br>
% my $code = $snippets->{$depends}->{$desc};
% my $rows = scalar split(/\n/,$code);