X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?a=blobdiff_plain;f=yarrg%2Fcommod-results-processor;h=f9fdedfa5f6c0c5419ccf826b10db106aa9cfaea;hb=847492a8eebac261fb3ffa5e97391b486a73d336;hp=e53bbb58c1351283043d6371abfc4bc0589fe9d5;hpb=1c640671a7ee8d30ee80c393822fa02ef3da0031;p=ypp-sc-tools.web-live.git diff --git a/yarrg/commod-results-processor b/yarrg/commod-results-processor index e53bbb5..f9fdedf 100755 --- a/yarrg/commod-results-processor +++ b/yarrg/commod-results-processor @@ -135,10 +135,12 @@ sub main__arbitrage () { sub arb_subtract_qty (\@) { my ($verbs) = @_; my $verb= shift @$verbs; + my $vqty= $verb->{Qty}; + $vqty =~ s/^\>//; unshift @$verbs, { Stall => $verb->{Stall}, Price => $verb->{Price}, - Qty => $verb->{Qty} - $qty + Qty => $vqty - $qty }; } arb_subtract_qty(@buys);