load code depends and description

[MojoFacets.git] / templates / code / index.html.ep

diff --git a/templates/code/index.html.ep b/templates/code/index.html.ep
index 7512beb..305b662 100644 (file)
--- a/templates/code/index.html.ep
+++ b/templates/code/index.html.ep
@@ -2,12 +2,26 @@
 
 <h1>Code snippets</h1>
 
-% foreach my $column ( keys %$snippets ) {
+% foreach my $column ( @{ session('columns') } ) {
+%   next unless defined $snippets->{$column};
 <h2><%= $column %></h2>
 <ul>
 %   foreach my $desc ( keys %{ $snippets->{$column} } ) {
-<li><a href="/code/<%= $column . '.' . $desc %>"><%= $desc %></a>
-<pre><%= $snippets->{$column}->{$desc} %></pre>
+<li>
+<form method=post action=/data/items>
+<input type=submit name=test value="Load and test">
+% my $path = "code/$column.$desc.pl";
+<a target=code href="/<%= $path %>"><%= $desc %></a>
+<input name=code_depends value="<%= $column %>">
+<input name=code_description value="<%= $desc %>">
+<br>
+% my $code = $snippets->{$column}->{$desc};
+% my $rows = scalar split(/\n/,$code);
+<textarea name=code cols=80 rows=<%= $rows %> style="overflow:hidden">
+<%= $code %>
+</textarea>
+</form>
+
 %   }
 </ul>
 % }