From 765a969362cad56a49cf8f11f5d521db2a7faacb Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Marc=20V=C3=A9ron?= Date: Fri, 23 Jun 2017 18:48:00 +0200 Subject: [PATCH] Bug 18465: (followup) Fix issue with patron lists an do not use clone This followup fixes duplex printing with patron lists. Additionaly, it uses simple copy instead of clone and removes a superfluous line, see comments #15 - #17 Signed-off-by: Nick Clemens --- koha-tmpl/intranet-tmpl/prog/en/modules/patroncards/print.tt | 2 +- patroncards/create-pdf.pl | 5 +---- 2 files changed, 2 insertions(+), 5 deletions(-) diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/patroncards/print.tt b/koha-tmpl/intranet-tmpl/prog/en/modules/patroncards/print.tt index 950cf4e..f2ab3c6 100644 --- a/koha-tmpl/intranet-tmpl/prog/en/modules/patroncards/print.tt +++ b/koha-tmpl/intranet-tmpl/prog/en/modules/patroncards/print.tt @@ -49,7 +49,7 @@ [% ELSIF ( patronlist_id && template_id && layout_id ) %]

Click on the link to download the patron cards from the patron list.

- label_patronlist_[% patronlist_id %].pdf + label_patronlist_[% patronlist_id %].pdf

[% ELSE %]

diff --git a/patroncards/create-pdf.pl b/patroncards/create-pdf.pl index 9f21a50..05cfcbd 100755 --- a/patroncards/create-pdf.pl +++ b/patroncards/create-pdf.pl @@ -26,7 +26,6 @@ use Graphics::Magick; use XML::Simple; use POSIX qw(ceil); use autouse 'Data::Dumper' => qw(Dumper); -use Clone qw(clone); use C4::Debug; use C4::Context; @@ -131,10 +130,8 @@ if ($layout_xml->{'page_side'} eq 'B') { # rearrange items on backside of page t CARD_ITEMS: foreach my $item (@{$items}) { if ($item) { - -#my $print_layout_xml = $layout_back_xml; my $print_layout_xml = (( ($cardscount % 2 == 1) && ( $layout_back_id ) ) ? - clone($layout_back_xml) : clone($layout_xml) ); + $layout_back_xml : $layout_xml ); $cardscount ++; my $borrower_number = $item->{'borrower_number'}; -- 2.1.4