From aa2ecb58d5a298a705d8b783bfa8b57834296048 Mon Sep 17 00:00:00 2001
From: Kyle M Hall <kyle@bywatersolutions.com>
Date: Tue, 24 Jan 2017 08:15:35 -0800
Subject: [PATCH] Bug 15503 - Populate the order prices

Signed-off-by: Benjamin Daeuber <bdaeuber@cityoffargo.com>

Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>

Signed-off-by: Nick Clemens <nick@bywatersolutions.com>

Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
---
 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