|
Lines 24-30
use strict;
Link Here
|
| 24 |
use warnings; |
24 |
use warnings; |
| 25 |
|
25 |
|
| 26 |
use CGI qw ( -utf8 ); |
26 |
use CGI qw ( -utf8 ); |
| 27 |
|
27 |
use HTML::Entities; |
| 28 |
use C4::Auth; |
28 |
use C4::Auth; |
| 29 |
use C4::Output; |
29 |
use C4::Output; |
| 30 |
use C4::Members; |
30 |
use C4::Members; |
|
Lines 59-65
if ($input->param('cardnumber')) {
Link Here
|
| 59 |
$borrowernumber = $data->{'borrowernumber'}; # we must define this as it is used to retrieve other data about the patron |
59 |
$borrowernumber = $data->{'borrowernumber'}; # we must define this as it is used to retrieve other data about the patron |
| 60 |
} |
60 |
} |
| 61 |
if ($input->param('borrowernumber')) { |
61 |
if ($input->param('borrowernumber')) { |
| 62 |
$borrowernumber = $input->param('borrowernumber'); |
62 |
$borrowernumber = HTML::Entities::encode($input->param('borrowernumber')); |
| 63 |
$patron = Koha::Patrons->find( $borrowernumber ); |
63 |
$patron = Koha::Patrons->find( $borrowernumber ); |
| 64 |
$data = $patron->unblessed; |
64 |
$data = $patron->unblessed; |
| 65 |
} |
65 |
} |
| 66 |
- |
|
|