only load code

leaving dependencies and description unset

diff --git a/lib/MojoFacets/Data.pm b/lib/MojoFacets/Data.pm
index eff5f2a..cdbdb83 100644 (file)
--- a/lib/MojoFacets/Data.pm
+++ b/lib/MojoFacets/Data.pm
@@ -895,33 +895,39 @@ sub items {
                warn "export $export_path ", -s $export_path, " bytes\n";
        }
 
                warn "export $export_path ", -s $export_path, " bytes\n";
        }
 

-       warn "# test_changed ",dump( $test_changed );
-       my $c = { map { $_ => 1 } @columns };
-       my @added_columns = sort grep { ! $c->{$_} } keys %$test_changed;
-       unshift @columns, @added_columns;
+       my ( $code_depends, $code_description );

 
 

-       warn "# sorted_items ", $#$sorted_items + 1, " offset $offset limit $limit order $sort";
+       if ( $test ) {

 
 

-       my $depends_on;
-       my $tmp = $code; $tmp =~ s/\$row->{(['"]?)(\w+)\1/$depends_on->{$2}++/gse;
-       warn "# depends_on ",dump $depends_on;
+               warn "# test_changed ",dump( $test_changed );
+               my $c = { map { $_ => 1 } @columns };
+               my @added_columns = sort grep { ! $c->{$_} } keys %$test_changed;
+               unshift @columns, @added_columns;

 
 

-       my $test_added = Storable::dclone $test_changed;
-       delete $test_added->{$_} foreach keys %$depends_on;
+               warn "# sorted_items ", $#$sorted_items + 1, " offset $offset limit $limit order $sort";

 
 

-       my $code_depends = $self->param('code_depends')
-       || join(',', keys %$depends_on);
+               my $depends_on;
+               my $tmp = $code; $tmp =~ s/\$row->{(['"]?)(\w+)\1/$depends_on->{$2}++/gse;
+               warn "# depends_on ",dump $depends_on;

 
 

-       my $code_description = $self->param('code_description') ||
-       join(',', keys %$test_added);
+               my $test_added = Storable::dclone $test_changed;
+               delete $test_added->{$_} foreach keys %$depends_on;

 
 

-       $code_depends ||= $code_description; # self-modifing
-       if ( ! $code_depends && $out ) {
-               $code_depends = $key;
-               $code_description = $value;
-       }
+               $code_depends = $self->param('code_depends')
+               || join(',', keys %$depends_on);
+
+               $code_description = $self->param('code_description') ||
+               join(',', keys %$test_added);
+
+               $code_depends ||= $code_description; # self-modifing
+               if ( ! $code_depends && $out ) {
+                       $code_depends = $key;
+                       $code_description = $value;
+               }
+
+               warn "# test_changed ",dump( $test_changed, $code_depends, $code_description );

 
 

-       warn "# test_changed ",dump( $test_changed, $code_depends, $code_description );
+       } # test?

 
        $self->render(
                order => $order,
 
        $self->render(
                order => $order,

diff --git a/templates/code/index.html.ep b/templates/code/index.html.ep
index 8be7d3d..54f958c 100644 (file)
--- a/templates/code/index.html.ep
+++ b/templates/code/index.html.ep
@@ -21,7 +21,7 @@ column in this dataset
 %    my $have_deps = ! exists $no_deps->{$depends}->{$desc};
 <li>
 <form method=post action=/data/items>
 %    my $have_deps = ! exists $no_deps->{$depends}->{$desc};
 <li>
 <form method=post action=/data/items>

-<input type=submit name=test value="<%= $have_deps ? 'Load and test' : 'Load' %>">
+<input type=submit name=<%= $have_deps ? 'test' : 'load' %> value="<%= $have_deps ? 'Load and test' : 'Load' %>">

 % my $path = "$depends.$desc.pl";
 <a target=code href="/code/<%= $path %>"><%= $desc %></a>
 % if ( $have_deps ) {
 % my $path = "$depends.$desc.pl";
 <a target=code href="/code/<%= $path %>"><%= $desc %></a>
 % if ( $have_deps ) {