From d579b9602fc96f64be91747d8ac7ccba6ecb8122 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) Do not use clone Use simple copy instead of clone, see comments #15 - #17 --- patroncards/create-pdf.pl | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/patroncards/create-pdf.pl b/patroncards/create-pdf.pl index 9f21a50..8a6f0f7 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; @@ -134,7 +133,7 @@ foreach my $item (@{$items}) { #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