X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.db-live.git;a=blobdiff_plain;f=yarrg%2Fweb%2Fquery_route;h=a4e9a067e1b4c40b9c31215ad1bcc9abaee3f2fb;hp=62c2aab9ee55c664f0c19f4bf992cafcc009e552;hb=ae926461ebeb67c806caa7be5d85d18a02a08177;hpb=872e647cac241531e4599c8b8b330d8772020253 diff --git a/yarrg/web/query_route b/yarrg/web/query_route index 62c2aab..a4e9a06 100644 --- a/yarrg/web/query_route +++ b/yarrg/web/query_route @@ -50,9 +50,6 @@ my $emsg; my @warningfs; my @archipelagoes; my @islandids; -my ($max_volume, $max_mass); -my $lossperleaguepct; -my $capital; my $qa= \%ARGS; @@ -67,8 +64,6 @@ my $goupdate= sub { $be_post ? 'Update' : 'Go' }; %perl> -
-
- -Vessel or capacity: -<&| qtextstring, qa => $qa, dbh => $dbh, prefix => 'cs', - thingstring => 'capacitystring', emsgstore => \$emsg, - helpref => 'capacity', - onresults => sub { ($max_mass,$max_volume) = @_; } - &> - size=40 -&> - - | - - - - | -Expected losses: - -<&| qtextstring, qa => $qa, dbh => $dbh, prefix => 'll', - thingstring => 'lossperleague', emsgstore => \$emsg, - helpref => 'losses', - onresults => sub { ($lossperleaguepct)= @_; } - &> - size=9 -&> - - |
Available capital: - -<&| qtextstring, qa => $qa, dbh => $dbh, prefix => 'ac', - thingstring => 'capitalstring', emsgstore => \$emsg, - helpref => 'capital', - onresults => sub { ($capital)= @_; } - &> - size=9 -&> - - |