Fix stupid optimisation bug (typoed variable name)

diff --git a/yarrg/web/routetrade b/yarrg/web/routetrade
index 496156be5ca5576f473586ca627f64c9db55870a..58f21a1a581a45ab3ae28a2d6caf4e8d991e07f1 100644 (file)
--- a/yarrg/web/routetrade
+++ b/yarrg/web/routetrade
@@ -234,7 +234,7 @@ $addcols->({ DoReverse => 1 },
 
        $f->{ExpectedUnitProfit}=
                $f->{'dst_price'} * (1.0 - $loss_per_league) ** $f->{'dist'}
-               - $f->{'src_price'};
+               - $f->{'org_price'};
 
        my @uid= $f->{commodid};
        foreach my $od (qw(org dst)) {