X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?a=blobdiff_plain;f=yarrg%2Fweb%2Fquery_route;h=7871c3d54dbb6eed20e97fcfcfb99fb86a127610;hb=5df1a21a8f7ad18ade3a97b9ccf26bdcf335edd2;hp=ea483578d565d6df529dffcfddf7d1c6a5c1e9cf;hpb=6335baf49c849e16ae7845016d97bcb76d4b7cf6;p=ypp-sc-tools.db-test.git diff --git a/yarrg/web/query_route b/yarrg/web/query_route index ea48357..7871c3d 100644 --- a/yarrg/web/query_route +++ b/yarrg/web/query_route @@ -40,17 +40,16 @@ $prselector $routestring => ''; $capacitystring => ''; $lossperleague => ''; +$capitalstring => ''; $someresults $emsgokorprint %args> <%perl> my $emsg; +my @warningfs; my @archipelagoes; my @islandids; -my %islandid2; -my ($max_volume, $max_mass); -my $lossperleaguepct; my $qa= \%ARGS; @@ -67,158 +66,40 @@ my $goupdate= sub { $be_post ? 'Update' : 'Go' };
-
- -Vessel or capacity: -<&| qtextstring, qa => $qa, dbh => $dbh, prefix => 'cs', - thingstring => 'capacitystring', emsgstore => \$emsg, - perresult => sub { - ($max_volume,$max_mass) = @_; - } - &> - size=30 -&> - - | - - - - | -Expected losses: - -<&| qtextstring, qa => $qa, dbh => $dbh, prefix => 'll', - thingstring => 'lossperleague', emsgstore => \$emsg, - perresult => sub { ($lossperleaguepct)= @_; } - &> - size=10 -&> - - |
- | -% } -
- | -% } -