From 5214d54d76b9e81411d1ad9d8bf0a5b8430ff220 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Mon, 24 Aug 2009 16:16:03 +0100
Subject: [PATCH] Sort deliveries by price in decreasing order

---
 yarrg/web/routetrade | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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= {
-- 
2.30.2