X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?a=blobdiff_plain;f=yarrg%2Fweb%2Fquery_route;h=53167aca883f43943d06b3acdd543dabe3ad7ac7;hb=64f37d1c80bfd082dab4a11db206515890af6f44;hp=0f9447ac307df6c4f583fb5aed18b1f0221e04f7;hpb=18bdd63163d8af1276eb26a67ccc6e78a1f7c158;p=ypp-sc-tools.web-live.git diff --git a/yarrg/web/query_route b/yarrg/web/query_route index 0f9447a..53167ac 100644 --- a/yarrg/web/query_route +++ b/yarrg/web/query_route @@ -47,9 +47,9 @@ $emsgokorprint <%perl> my $emsg; +my @warningfs; my @archipelagoes; my @islandids; -my %islandid2; my ($max_volume, $max_mass); my $lossperleaguepct; my $capital; @@ -69,167 +69,34 @@ my $goupdate= sub { $be_post ? 'Update' : 'Go' };
-
- -Vessel or capacity: -<&| qtextstring, qa => $qa, dbh => $dbh, prefix => 'cs', - thingstring => 'capacitystring', emsgstore => \$emsg, - helpref => 'capacity', - perresult => sub { - ($max_mass,$max_volume) = @_; - } - &> - size=40 -&> - - | - - - | -Expected losses: - -<&| qtextstring, qa => $qa, dbh => $dbh, prefix => 'll', - thingstring => 'lossperleague', emsgstore => \$emsg, - helpref => 'losses', - perresult => sub { ($lossperleaguepct)= @_; } - &> - size=9 -&> - |
Available capital: - -<&| qtextstring, qa => $qa, dbh => $dbh, prefix => 'ac', - thingstring => 'capitalstring', emsgstore => \$emsg, - helpref => 'capital', - perresult => sub { ($capital)= @_; } - &> - size=9 -&> - | -
- | -% } -
- | -% } -