}, { Name => 'Query',
Before => 'Query: ',
Values => [ [ 'route', 'Trades for route' ],
+ [ 'commod', 'Prices for commodity' ],
[ 'age', 'Data age' ] ]
});
#---------- initial checks, startup, main entry form ----------
+die if $a{Query} =~ m/[^a-z]/;
+
dbw_connect($a{Ocean});
</%perl>
<hr>
-%########### query `route' ##########
-% if ($a{Query} eq 'route') {
-
-<& query_route, %baseqf, %queryqf, quri => $quri, a => \%a &>
-
-% } elsif ($a{Query} eq 'age') {
-% ########### query `age' ##########
+<& "query_$a{Query}", %baseqf, %queryqf, quri => $quri, qa => \%a &>
-<& query_age, %baseqf, %queryqf &>
-
-% } ########## end of `age' query ##########
+<p>
%#---------- debugging and epilogue ----------