From 9f12f06afcc163e7505b6a2e9c874b8cade280bf Mon Sep 17 00:00:00 2001
From: Mark Tompsett <mtompset@hotmail.com>
Date: Sun, 18 Nov 2018 05:36:44 +0000
Subject: [PATCH] Bug 21853: Follow-up to solve printpdf error

---
 acqui/basketgroup.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/acqui/basketgroup.pl b/acqui/basketgroup.pl
index e1cba8495b..4cb1be1478 100755
--- a/acqui/basketgroup.pl
+++ b/acqui/basketgroup.pl
@@ -131,7 +131,7 @@ sub printbasketgrouppdf{
         $pdfformat = "Koha::$pdfformat";
         my $pdfformat_filepath = File::Spec->catfile(split /::/, $pdfformat) . '.pm';
         require $pdfformat_filepath;
-        import $pdfformat;
+        import $pdfformat qw(printpdf);
     }
     else {
         print $input->header;
-- 
2.11.0