From 80b820c5ecff87d2eaaf9cb53d232e0323b34b81 Mon Sep 17 00:00:00 2001 From: Colin Campbell Date: Fri, 17 Mar 2017 12:17:22 +0000 Subject: [PATCH] Bug 18267 populate_order_with_prices should 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 to allow more maintainable code. Effectively this patch merely documents that this routine is part of C4/Acquisition's interface and allows users to import it in the standard way. Signed-off-by: Kyle M Hall --- C4/Acquisition.pm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/C4/Acquisition.pm b/C4/Acquisition.pm index 441afb7..5bb00b0 100644 --- a/C4/Acquisition.pm +++ b/C4/Acquisition.pm @@ -44,7 +44,7 @@ use MARC::Record; use Time::localtime; -use vars qw(@ISA @EXPORT); +use vars qw(@ISA @EXPORT @EXPORT_OK); BEGIN { require Exporter; @@ -94,12 +94,14 @@ BEGIN { &FillWithDefaultValues ); + @EXPORT_OK = qw( populate_order_with_prices ); } + sub GetOrderFromItemnumber { my ($itemnumber) = @_; my $dbh = C4::Context->dbh; -- 2.10.2