[Patches] [PATCH] Bug 7138: Can't print basket group order pdf

koha-patchbot at kohaaloha.com koha-patchbot at kohaaloha.com
Fri Nov 4 19:56:24 NZDT 2011


From: Katrin Fischer <Katrin.Fischer.83 at web.de>
Date: Thu, 3 Nov 2011 00:44:36 +0100
Subject: [PATCH] Bug 7138: Can't print basket group order pdf

PDF print of basket groups is broken.

To test:

1) Make sure OrderPdfFormat is set to pdfformat::layout2pages or pdfformat::layout3pages
2) Create a basket with orders
3) Close the basket and create a basket group checking the checkbox
4) Print the basket group as PDF

Before patch the file is broken and when opened in an editor contains an error message.
After the patch the PDF should be generated correctly again.

Thx to Chris for helping me to fix the problem.
---
 acqui/basketgroup.pl |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/acqui/basketgroup.pl b/acqui/basketgroup.pl
index fbcad0f..d2e1856 100755
--- a/acqui/basketgroup.pl
+++ b/acqui/basketgroup.pl
@@ -187,7 +187,7 @@ sub printbasketgrouppdf{
     my $pdfformat = C4::Context->preference("OrderPdfFormat");
     if ($pdfformat eq 'pdfformat::layout3pages' || $pdfformat eq 'pdfformat::layout2pages'){
 	eval {
-	    require $pdfformat;
+        eval "require $pdfformat";
 	    import $pdfformat;
 	};
 	if ($@){
-- 
1.7.5.4


More information about the Patches mailing list