Bug 21853: (follow-up) to solve printpdf error

[koha.git] / acqui / basketgroup.pl

diff --git a/acqui/basketgroup.pl b/acqui/basketgroup.pl
index e1cba84..4cb1be1 100755 (executable)
--- 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;