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 <nick@bywatersolutions.com>

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
This commit is contained in:
Marc Véron 2017-06-23 18:48:00 +02:00 committed by Jonathan Druart
parent 65c32eee8e
commit 29a1f0fd9c
2 changed files with 2 additions and 5 deletions

View File

@ -49,7 +49,7 @@
[% ELSIF ( patronlist_id && template_id && layout_id ) %]
<h3>Click on the link to download the patron cards from the patron list.</h3>
<p>
<a class="document pdf" href="/cgi-bin/koha/patroncards/create-pdf.pl?patronlist_id=[% patronlist_id %]&amp;template_id=[% template_id %]&amp;layout_id=[% layout_id %]&amp;start_card=[% start_card %]">label_patronlist_[% patronlist_id %].pdf</a>
<a class="document pdf" href="/cgi-bin/koha/patroncards/create-pdf.pl?patronlist_id=[% patronlist_id %]&amp;template_id=[% template_id %]&amp;layout_id=[% layout_id %]&amp;layout_back_id=[% layout_back_id %]&amp;start_card=[% start_card %]">label_patronlist_[% patronlist_id %].pdf</a>
</p>
[% ELSE %]
<h3>

View File

@ -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'};