X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?a=blobdiff_plain;ds=sidebyside;f=yarrg%2Fweb%2Fquery_commod;h=153ea792c92e7f9abcc9eac7472d37c72bdb7fca;hb=29010a75143814a91b4f5200454bea879280e7c1;hp=c87b4400fdf9c8b690a274f9f5ce3242e53f9c32;hpb=017f4432a9bb472f61ab94c10b775e64d86ca391;p=ypp-sc-tools.db-live.git diff --git a/yarrg/web/query_commod b/yarrg/web/query_commod index c87b440..153ea79 100644 --- a/yarrg/web/query_commod +++ b/yarrg/web/query_commod @@ -50,6 +50,7 @@ my ($commodname,$cmid); my $qa= \%ARGS; %perl> +
+ | + | Prices | Quantity at price | |||||||
---|---|---|---|---|---|---|---|---|---|---|
+/-10% | Any | <% $s->[0]= $island->{'archipelago'} |h %> | <% $s->[1]= $island->{'islandname'} |h %> | <% $stallname |h %> - | <% $s->[3]= (length $bestqty ? $bestprice : '-') %> - | <% $s->[4]= $median %> - | <% $s->[5]= $bestqty %> - | <% $s->[6]= $approxqty %> - | <% $s->[7]= $cqty %> + | <% $s->[3]= (length $bestqty ? $bestprice : '-') %> + | <% $s->[4]= $median %> + | <% $s->[5]= $bestqty %> + | <% $s->[6]= $approxqty %> + | <% $s->[7]= $cqty %> % for my $cix (0..$#$s) { % $ts_sortkeys{$cix}{$rowid}= $s->[$cix]; % } % $rowix++; % } +% if ($rowix) { |