From ace8b7e1933e7da5e615a837cd47aeea1a4a23a2 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ian@liberator.relativity.greenend.org.uk>
Date: Mon, 21 Sep 2009 02:01:31 +0100
Subject: [PATCH] Right-justify numerical columns in Prices for commodity

---
 yarrg/web/query_commod | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

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];
-- 
2.30.2