From b2388ae53d67c2ecd3b025721f7f0c3ea5fa6b27 Mon Sep 17 00:00:00 2001
From: Katrin Fischer <katrin.fischer@bsz-bw.de>
Date: Mon, 4 Jul 2022 15:27:05 +0000
Subject: [PATCH] Bug 15348: (follow-up) Fix imports in moddeliverydate.pl
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

Signed-off-by: Christian Stelzenmüller <christian.stelzenmueller@bsz-bw.de>
Signed-off-by: Katrin Fischer <katrin.fischer@bsz-bw.de>
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>
---
 acqui/moddeliverydate.pl | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/acqui/moddeliverydate.pl b/acqui/moddeliverydate.pl
index 239a0fc43e..5eb698ad86 100755
--- a/acqui/moddeliverydate.pl
+++ b/acqui/moddeliverydate.pl
@@ -31,9 +31,9 @@ its basket is closed.
 use Modern::Perl;
 
 use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Output;
-use C4::Acquisition;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
+use C4::Acquisition qw( GetOrder GetBasket );
 
 use Koha::Acquisition::Booksellers;
 use Koha::DateUtils;
@@ -44,7 +44,6 @@ my ($template, $loggedinuser, $cookie, $flags) = get_template_and_user( {
     query           => $input,
     type            => 'intranet',
     flagsrequired   => { 'acquisition' => 'order_manage' },
-    debug           => 1,
 } );
 
 my $op = $input->param('op');
-- 
2.39.5