chiark
/
gitweb
/
~yarrgweb
/
ypp-sc-tools.web-test.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
2cf70ba
)
Sort deliveries by price in decreasing order
author
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Mon, 24 Aug 2009 15:16:03 +0000
(16:16 +0100)
committer
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Mon, 24 Aug 2009 15:16:03 +0000
(16:16 +0100)
yarrg/web/routetrade
patch
|
blob
|
history
diff --git
a/yarrg/web/routetrade
b/yarrg/web/routetrade
index e4e583a83a190f1f33a77411c8533fdf50b505a8..62286eb3c6f4f77e8401ed06e1cc29ea4a184985 100644
(file)
--- 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= {