Further refactoring to make query_commod small

[ypp-sc-tools.db-test.git] / yarrg / web / lookup

diff --git a/yarrg/web/lookup b/yarrg/web/lookup
index 64860fd5f9db94e83105e83b50ad43e433b286db..1b85ecc8b9d06b9dc5ba96b14b63e4cac99501c0 100755 (executable)
--- a/yarrg/web/lookup
+++ b/yarrg/web/lookup
@@ -162,6 +162,13 @@ die if $styles{Query} =~ m/[^a-z]/;
 
 dbw_connect($styles{Ocean});
 
+my $results_head_done=0;
+my $someresults= sub {
+       return if $results_head_done;
+       $results_head_done=1;
+       print "\n<h1>Results</h1>\n";
+};
+
 </%perl>
 <%args>
 $debug => 0
@@ -169,7 +176,16 @@ $debug => 0
 
 <hr>
 
-<& "query_$styles{Query}", %baseqf, %queryqf, %styles, quri => $quri &>
+<& "query_$styles{Query}", %baseqf, %queryqf, %styles, quri => $quri,
+    someresults => $someresults,
+    emsgokorprint => sub {
+       my ($emsg) = @_;
+       return 1 unless defined $emsg and length $emsg;
+       $someresults->();
+       print $emsg;
+       return 0;
+    }
+ &>
 
 <p>