From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Mon, 24 Aug 2009 15:16:03 +0000 (+0100)
Subject: Sort deliveries by price in decreasing order
X-Git-Tag: 3.4~106^2~3
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.db-test.git;a=commitdiff_plain;h=5214d54d76b9e81411d1ad9d8bf0a5b8430ff220

Sort deliveries by price in decreasing order
---

diff --git a/yarrg/web/routetrade b/yarrg/web/routetrade
index e4e583a..62286eb 100644
--- a/yarrg/web/routetrade
+++ b/yarrg/web/routetrade
@@ -587,7 +587,8 @@ Sail to <% $islandname |h %>
 		my $stallname= $f->{"${od}_stallname"};
 		my $todo= \$flowlists{$od}{
 				$f->{'commodname'},
-				(sprintf "%07d", $price),
+				(sprintf "%07d", ($od eq 'dst' ?
+						9999999-$price : $price)),
 				$stallname
 			};
 		$$todo= {