From 027926527bdf00e761b13a7db7192f1dedee5cdd Mon Sep 17 00:00:00 2001 From: Colin Campbell Date: Fri, 17 Mar 2017 12:17:22 +0000 Subject: [PATCH 1/3] Bug 18267 Allow populate_order_with_prices to be exported Although routine is used in acqui scripts access to it is by backdoor methods allow it to be exported in a standard way --- C4/Acquisition.pm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/C4/Acquisition.pm b/C4/Acquisition.pm index 3fca9eb..1cebc85 100644 --- a/C4/Acquisition.pm +++ b/C4/Acquisition.pm @@ -41,7 +41,7 @@ use MARC::Record; use Time::localtime; -use vars qw(@ISA @EXPORT); +use vars qw(@ISA @EXPORT @EXPORT_OK); BEGIN { require Exporter; @@ -91,12 +91,14 @@ BEGIN { &FillWithDefaultValues ); + @EXPORT_OK = qw( populate_order_with_prices ); } + sub GetOrderFromItemnumber { my ($itemnumber) = @_; my $dbh = C4::Context->dbh; -- 2.9.3