X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?a=blobdiff_plain;ds=sidebyside;f=yarrg%2Fweb%2Fquery_route;h=2162e8a8bbf203c7336c561d217374c378d11043;hb=991b38b009b25da6992e9d984cd74d0e47c3c0b6;hp=a65ef1c5723d9360e4566152d294ac0fd1350112;hpb=099cd920655c1db6da4a1a57ec3baa30d16321d7;p=ypp-sc-tools.web-live.git diff --git a/yarrg/web/query_route b/yarrg/web/query_route index a65ef1c..2162e8a 100644 --- a/yarrg/web/query_route +++ b/yarrg/web/query_route @@ -40,17 +40,19 @@ $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 $capital; my $qa= \%ARGS; @@ -67,38 +69,42 @@ my $goupdate= sub { $be_post ? 'Update' : 'Go' };
-Vessel capacity: +Vessel or capacity: <&| qtextstring, qa => $qa, dbh => $dbh, prefix => 'cs', thingstring => 'capacitystring', emsgstore => \$emsg, - perresult => sub { - ($max_volume,$max_mass) = @_; - } + helpref => 'capacity', + onresults => sub { ($max_mass,$max_volume) = @_; } &> + size=40 &> | @@ -106,115 +112,37 @@ Vessel capacity: | -Estimated loss per league: +Expected losses: <&| qtextstring, qa => $qa, dbh => $dbh, prefix => 'll', thingstring => 'lossperleague', emsgstore => \$emsg, - perresult => sub { ($lossperleaguepct)= @_; } + 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 +&> +