Lines 34-40
Link Here
|
34 |
use Modern::Perl; |
34 |
use Modern::Perl; |
35 |
|
35 |
|
36 |
use CGI qw ( -utf8 ); |
36 |
use CGI qw ( -utf8 ); |
37 |
use Digest::MD5 qw(md5_base64); |
37 |
use Digest::MD5 qw(md5_hex); |
38 |
|
38 |
|
39 |
use C4::Auth qw(get_template_and_user checkpw); |
39 |
use C4::Auth qw(get_template_and_user checkpw); |
40 |
use C4::Koha; |
40 |
use C4::Koha; |
Lines 47-53
use C4::Items;
Link Here
|
47 |
use Koha::DateUtils qw( dt_from_string ); |
47 |
use Koha::DateUtils qw( dt_from_string ); |
48 |
use Koha::Acquisition::Currencies; |
48 |
use Koha::Acquisition::Currencies; |
49 |
use Koha::Patron::Images; |
49 |
use Koha::Patron::Images; |
50 |
use Koha::Patrons; |
|
|
51 |
use Koha::Patron::Messages; |
50 |
use Koha::Patron::Messages; |
52 |
|
51 |
|
53 |
my $query = new CGI; |
52 |
my $query = new CGI; |
Lines 300-312
if ($borrower->{cardnumber}) {
Link Here
|
300 |
); |
299 |
); |
301 |
if (C4::Context->preference('ShowPatronImageInWebBasedSelfCheck')) { |
300 |
if (C4::Context->preference('ShowPatronImageInWebBasedSelfCheck')) { |
302 |
my $patron_image = Koha::Patron::Images->find($borrower->{borrowernumber}); |
301 |
my $patron_image = Koha::Patron::Images->find($borrower->{borrowernumber}); |
303 |
my $patron = Koha::Patrons->find($borrower->{borrowernumber}); |
|
|
304 |
my $hash = md5_base64($patron->cardnumber()); |
305 |
|
306 |
$template->param( |
302 |
$template->param( |
307 |
display_patron_image => 1, |
303 |
display_patron_image => 1, |
308 |
cardnumber => $borrower->{cardnumber}, |
304 |
cardnumber => $borrower->{cardnumber}, |
309 |
ck => md5_base64($patron->cardnumber()), |
305 |
ck => md5_hex($patron_image->imagefile), |
310 |
) if $patron_image; |
306 |
) if $patron_image; |
311 |
} |
307 |
} |
312 |
} else { |
308 |
} else { |