chiark / gitweb /
Sort deliveries by price in decreasing order
authorIan Jackson <ijackson@chiark.greenend.org.uk>
Mon, 24 Aug 2009 15:16:03 +0000 (16:16 +0100)
committerIan Jackson <ijackson@chiark.greenend.org.uk>
Mon, 24 Aug 2009 15:16:03 +0000 (16:16 +0100)
yarrg/web/routetrade

index e4e583a..62286eb 100644 (file)
@@ -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= {