chiark
/
gitweb
/
~yarrgweb
/
ypp-sc-tools.web-test.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
Sort deliveries by price in decreasing order
[ypp-sc-tools.web-test.git]
/
yarrg
/
web
/
routetrade
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= {