X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?a=blobdiff_plain;f=yarrg%2Fweb%2Fquery_commod;h=3b2bf3554533f40a334d63690dac86f023b16764;hb=2193f00e651a9c9cfc1130e1ba4d32dd050b437f;hp=5db6330c6cb2df4999c7c4bac682a301745be79d;hpb=13b9f206d92634f4e6f4a940ed31690c1235d827;p=ypp-sc-tools.db-live.git

diff --git a/yarrg/web/query_commod b/yarrg/web/query_commod
index 5db6330..3b2bf35 100644
--- a/yarrg/web/query_commod
+++ b/yarrg/web/query_commod
@@ -109,9 +109,14 @@ foreach my $bs (split /_/, $ARGS{BuySell}) {
 %	my $rowix= 0;
 %	while ($island= $islands->fetchrow_hashref) {
 %		if (!$rowix) {
-<table id="<% $bs %>_table">
+<table id="<% $bs %>_table" rules=groups>
+<colgroup span=2>
+<colgroup span=1>
+<colgroup span=2>
+<colgroup span=3>
 <tr>
-<th colspan=3>
+<th colspan=2>
+<th colspan=1>
 <th colspan=2>Prices
 <th colspan=3>Quantity at price
 <tr id="<% $bs %>_table_thr">
@@ -170,11 +175,11 @@ foreach my $bs (split /_/, $ARGS{BuySell}) {
      <td><% $s->[0]= $island->{'archipelago'} |h %>
      <td><% $s->[1]= $island->{'islandname'} |h %>
      <td><%          $stallname |h %>
-     <td><% $s->[3]= (length $bestqty ? $bestprice : '-') %>
-     <td><% $s->[4]= $median %>
-     <td><% $s->[5]= $bestqty %>
-     <td><% $s->[6]= $approxqty %>
-     <td><% $s->[7]= $cqty %>
+     <td align=right><% $s->[3]= (length $bestqty ? $bestprice : '-') %>
+     <td align=right><% $s->[4]= $median %>
+     <td align=right><% $s->[5]= $bestqty %>
+     <td align=right><% $s->[6]= $approxqty %>
+     <td align=right><% $s->[7]= $cqty %>
 </tr>
 %		for my $cix (0..$#$s) {
 %			$ts_sortkeys{$cix}{$rowid}= $s->[$cix];