From bb26213f6f7f9f7b9a8670450f6b6920901bbeb5 Mon Sep 17 00:00:00 2001 From: Colin Campbell Date: Fri, 17 Mar 2017 12:17:22 +0000 Subject: [PATCH 1/7] 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. --- C4/Acquisition.pm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/C4/Acquisition.pm b/C4/Acquisition.pm index ebbe44b106..f71a1b3829 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.13.3