From aa2ecb58d5a298a705d8b783bfa8b57834296048 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 Signed-off-by: Benjamin Daeuber Signed-off-by: Kyle M Hall Signed-off-by: Nick Clemens Signed-off-by: Kyle M Hall --- acqui/addorderiso2709.pl | 12 ++++++++++++ 1 file changed, 12 insertions(+) diff --git a/acqui/addorderiso2709.pl b/acqui/addorderiso2709.pl index ce57113c7e..b0a74d115d 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; } } -- 2.39.5