From d0a4351af11d3fdb3e9e9f90739acab7a4aa2a79 Mon Sep 17 00:00:00 2001 From: Kyle M Hall Date: Tue, 24 Jan 2017 08:15:35 -0800 Subject: [PATCH] Bug 15503 - Populate the order prices --- acqui/addorderiso2709.pl | 12 ++++++++++++ 1 file changed, 12 insertions(+) diff --git a/acqui/addorderiso2709.pl b/acqui/addorderiso2709.pl index ce57113..b0a74d1 100755 --- a/acqui/addorderiso2709.pl +++ b/acqui/addorderiso2709.pl @@ -287,6 +287,18 @@ if ($op eq ""){ # remove uncertainprice flag if we have found a price in the MARC record $orderinfo{uncertainprice} = 0 if $orderinfo{listprice}; + + %orderinfo = %{ + C4::Acquisition::populate_order_with_prices( + { + order => \%orderinfo, + booksellerid => $booksellerid, + ordering => 1, + receiving => 1, + } + ) + }; + my $order = Koha::Acquisition::Order->new( \%orderinfo )->insert; } } -- 1.7.10.4