X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=patroncards%2Fcreate-pdf.pl;h=56a32e60f71212ea6f357a006ef74df2ed4a2d92;hb=6bad4db6a76d719ad6ac7fec2d4c7ec87ec8aa95;hp=961dfbfc055e9cf90abbcb38e97997921102d966;hpb=a7a4d39697bf52ad805fadd53d388b4530568774;p=koha_fer

diff --git a/patroncards/create-pdf.pl b/patroncards/create-pdf.pl
index 961dfbfc05..56a32e60f7 100755
--- a/patroncards/create-pdf.pl
+++ b/patroncards/create-pdf.pl
@@ -30,8 +30,8 @@ use autouse 'Data::Dumper' => qw(Dumper);
 use C4::Debug;
 use C4::Context;
 use autouse 'C4::Members' => qw(GetPatronImage GetMember);
-use C4::Creators 1.000000;
-use C4::Patroncards 1.000000;
+use C4::Creators;
+use C4::Patroncards;
 
 my $cgi = new CGI;
 
@@ -145,7 +145,7 @@ foreach my $item (@{$items}) {
                     next PROCESS_IMAGES;
                 }
                 elsif ($images->{$_}->{'data_source'}->[0]->{'image_source'} eq 'patronimages') {
-                    ($image_data, $error) = GetPatronImage($card_number);
+                    ($image_data, $error) = GetPatronImage($borrower_number);
                     warn sprintf('No image exists for borrower number %s.', $borrower_number) if !$image_data;
                     next PROCESS_IMAGES if !$image_data;
                 }