Lines 29-34
use warnings;
Link Here
|
29 |
use CGI qw ( -utf8 ); |
29 |
use CGI qw ( -utf8 ); |
30 |
use DateTime; |
30 |
use DateTime; |
31 |
use DateTime::Duration; |
31 |
use DateTime::Duration; |
|
|
32 |
use HTML::Entities; |
32 |
use C4::Output; |
33 |
use C4::Output; |
33 |
use C4::Print; |
34 |
use C4::Print; |
34 |
use C4::Auth qw/:DEFAULT get_session haspermission/; |
35 |
use C4::Auth qw/:DEFAULT get_session haspermission/; |
Lines 106-111
$barcodes = [ uniq @$barcodes ];
Link Here
|
106 |
|
107 |
|
107 |
my $template_name = q|circ/circulation.tt|; |
108 |
my $template_name = q|circ/circulation.tt|; |
108 |
my $borrowernumber = $query->param('borrowernumber'); |
109 |
my $borrowernumber = $query->param('borrowernumber'); |
|
|
110 |
$borrowernumber = HTML::Entities::encode($borrowernumber); |
109 |
my $patron = $borrowernumber ? Koha::Patrons->find( $borrowernumber ) : undef; |
111 |
my $patron = $borrowernumber ? Koha::Patrons->find( $borrowernumber ) : undef; |
110 |
my $batch = $query->param('batch'); |
112 |
my $batch = $query->param('batch'); |
111 |
my $batch_allowed = 0; |
113 |
my $batch_allowed = 0; |
112 |
- |
|
|