X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?a=blobdiff_plain;f=yarrg%2Fweb%2Fquery_route;h=ee457f57abd41502ad3d54f58385b16638e8ced5;hb=f3fdcfd6d9e7d88fbc97f9294c302c338d2500b5;hp=b2c52b158f3b7c6531b48fbf9b0b34677ed56df8;hpb=2007f48bd68be9218b8f41acd9ba32d378a1b22c;p=ypp-sc-tools.db-live.git diff --git a/yarrg/web/query_route b/yarrg/web/query_route index b2c52b1..ee457f5 100644 --- a/yarrg/web/query_route +++ b/yarrg/web/query_route @@ -49,6 +49,16 @@ my @islandids; my %islandid2; my $qa= \%ARGS; + +my $be_post; +my $startform= sub { + ($be_post)= @_; +%perl> +
<%perl> #========== results ========== @@ -206,11 +220,12 @@ for my $dd (0..$qa->{Dropdowns}-1) { %perl> % if (@islandids) { -% $someresults->(); +% $someresults->('Relevant trades'); <& routetrade, dbh => $dbh, islandids => \@islandids, archipelagoes => \@archipelagoes, qa => $qa &> + % }