From: Ian Jackson <ian@liberator.relativity.greenend.org.uk>
Date: Mon, 21 Sep 2009 01:01:31 +0000 (+0100)
Subject: Right-justify numerical columns in Prices for commodity
X-Git-Tag: 5.0^2~123
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?a=commitdiff_plain;h=ace8b7e1933e7da5e615a837cd47aeea1a4a23a2;p=ypp-sc-tools.db-test.git

Right-justify numerical columns in Prices for commodity
---

diff --git a/yarrg/web/query_commod b/yarrg/web/query_commod
index 5db6330..574f373 100644
--- a/yarrg/web/query_commod
+++ b/yarrg/web/query_commod
@@ -170,11 +170,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];