</%perl>
<h2>Offers to <% uc $bs |h %> <% $commodname |h %></h2>
-
+% $islands->execute($cmid);
+% my $island;
+% my %ts_sortkeys;
+% my $rowix= 0;
+% while ($island= $islands->fetchrow_hashref) {
+% if (!$rowix) {
<table id="<% $bs %>_table">
<tr>
<th colspan=3>
<th>+/-10%
<th>Any
</tr>
-% $islands->execute($cmid);
-% my $island;
-% my %ts_sortkeys;
-% my $rowix= 0;
-% while ($island= $islands->fetchrow_hashref) {
+% }
% my $islandid= $island->{'islandid'};
% $offers->execute($cmid, $islandid);
% my ($offer, $bestprice, $marginal, @beststalls);
% }
% $rowix++;
% }
+% if ($rowix) {
</table>
<&| tabsort, table => "${bs}_table", sortkeys => "${bs}_sortkeys",
return price;
}
</&tabsort>
+% } else {
+No offers.
+% }
<%perl>
}