X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.web-live.git;a=blobdiff_plain;f=yarrg%2Fweb%2Fquery_route;h=2162e8a8bbf203c7336c561d217374c378d11043;hp=393e7a668755145d05262a56b56ed005330669c1;hb=991b38b009b25da6992e9d984cd74d0e47c3c0b6;hpb=017f4432a9bb472f61ab94c10b775e64d86ca391 diff --git a/yarrg/web/query_route b/yarrg/web/query_route index 393e7a6..2162e8a 100644 --- a/yarrg/web/query_route +++ b/yarrg/web/query_route @@ -38,15 +38,21 @@ $quri $dbh $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; @@ -63,125 +69,81 @@ my $goupdate= sub { $be_post ? 'Update' : 'Go' };
+
-while ($row=$sth->fetchrow_arrayref) { - my $arch= $row->[2]; - push @{ $islandlistdata{'none'} }, [ @$row ]; - push @{ $islandlistdata{$arch} }, [ @$row ]; - $islandid2{$row->[0]}= { Name => $row->[1], Arch => $arch }; -} +Vessel or capacity: +<&| qtextstring, qa => $qa, dbh => $dbh, prefix => 'cs', + thingstring => 'capacitystring', emsgstore => \$emsg, + helpref => 'capacity', + onresults => sub { ($max_mass,$max_volume) = @_; } + &> + size=40 +&> -my %resetislandlistdata; -foreach my $arch (keys %islandlistdata) { - $resetislandlistdata{$arch}= - $optionlistmap->($islandlistdata{$arch}, ''); -} + | + + -%perl> + |
+Expected losses:
-<&| script &>
-ms_lists= <% to_json_protecttags(\%resetislandlistdata) %>;
-function ms_Setarch(dd) {
- debug('ms_SetArch '+dd+' arch='+arch);
- var arch= document.getElementsByName('archipelago'+dd).item(0).value;
- var got= ms_lists[arch];
- if (got == undefined) return; // unknown arch ? hrm
- debug('ms_SetArch '+dd+' arch='+arch+' got ok');
- var select= document.getElementsByName('islandid'+dd).item(0);
- select.innerHTML= got;
- debug('ms_SetArch '+dd+' arch='+arch+' innerHTML set');
-}
-&script>
+<&| qtextstring, qa => $qa, dbh => $dbh, prefix => 'll',
+ thingstring => 'lossperleague', emsgstore => \$emsg,
+ helpref => 'losses',
+ onresults => sub { ($lossperleaguepct)= @_; }
+ &>
+ size=9
+&>
-
-<%perl> - } - $arch= undef; - } - push @archipelagoes, $arch; - push @islandids, $island; +foreach my $warningf (@warningfs) { + $someresults->(); + $warningf->(); } %perl> @@ -225,7 +164,11 @@ for my $dd (0..$qa->{Dropdowns}-1) { dbh => $dbh, islandids => \@islandids, archipelagoes => \@archipelagoes, - qa => $qa + qa => $qa, + max_mass => $max_mass, + max_volume => $max_volume, + lossperleaguepct => $lossperleaguepct, + max_capital => $capital &> - % } + |