|
Lines 24-30
Link Here
|
| 24 |
|
24 |
|
| 25 |
use strict; |
25 |
use strict; |
| 26 |
use warnings; |
26 |
use warnings; |
| 27 |
|
27 |
use HTML::Entities; |
| 28 |
use C4::Auth; |
28 |
use C4::Auth; |
| 29 |
use C4::Output; |
29 |
use C4::Output; |
| 30 |
use CGI qw ( -utf8 ); |
30 |
use CGI qw ( -utf8 ); |
|
Lines 41-46
my $input=new CGI;
Link Here
|
| 41 |
my $flagsrequired = { borrowers => 1 }; |
41 |
my $flagsrequired = { borrowers => 1 }; |
| 42 |
|
42 |
|
| 43 |
my $borrowernumber=$input->param('borrowernumber'); |
43 |
my $borrowernumber=$input->param('borrowernumber'); |
|
|
44 |
$borrowernumber = HTML::Entities::encode($borrowernumber); |
| 44 |
|
45 |
|
| 45 |
my $patron = Koha::Patrons->find( $borrowernumber ); |
46 |
my $patron = Koha::Patrons->find( $borrowernumber ); |
| 46 |
my $add=$input->param('add'); |
47 |
my $add=$input->param('add'); |
| 47 |
- |
|
|