From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Sat, 15 Jan 2011 14:09:10 +0000 (+0100)
Subject: only load code
X-Git-Url: http://git.rot13.org/?p=MojoFacets.git;a=commitdiff_plain;h=271eca937494804cc1fcdbb14c4f04c066ed24b6

only load code

leaving dependencies and description unset
---

diff --git a/lib/MojoFacets/Data.pm b/lib/MojoFacets/Data.pm
index eff5f2a..cdbdb83 100644
--- 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 "# 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,
diff --git a/templates/code/index.html.ep b/templates/code/index.html.ep
index 8be7d3d..54f958c 100644
--- 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>
-<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 ) {