Bug 30952: Fix position shift when hovering .linktools links

[koha-ffzg.git] / patroncards / create-pdf.pl

diff --git a/patroncards/create-pdf.pl b/patroncards/create-pdf.pl
index 1ffaa00..e994ddb 100755 (executable)
--- a/patroncards/create-pdf.pl
+++ b/patroncards/create-pdf.pl
@@ -19,18 +19,17 @@
 
 use Modern::Perl;
 use CGI qw ( -utf8 );
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
 use Graphics::Magick;
-use XML::Simple;
-use POSIX qw(ceil);
-use Storable qw(dclone);
+use XML::Simple qw( XMLin );
+use POSIX qw( ceil );
+use Storable qw( dclone );
 use autouse 'Data::Dumper' => qw(Dumper);
 
-use C4::Debug;
 use C4::Context;
 use C4::Creators;
 use C4::Patroncards;
-use Koha::List::Patron;
+use Koha::List::Patron qw( GetPatronLists );
 use Koha::Patrons;
 use Koha::Patron::Images;
 
@@ -41,7 +40,6 @@ my ( $template, $loggedinuser, $cookie ) = get_template_and_user({
                                                                      query           => $cgi,
                                                                      type            => "intranet",
                                                                      flagsrequired   => { tools => 'label_creator' },
-                                                                     debug           => 1,
                                                                      });
 my $batch_id    = $cgi->param('batch_id') || undef;
 my $template_id = $cgi->param('template_id') || undef;