|
Lines 20-25
Link Here
|
| 20 |
use strict; |
20 |
use strict; |
| 21 |
#use warnings; FIXME - Bug 2505 |
21 |
#use warnings; FIXME - Bug 2505 |
| 22 |
use CGI qw ( -utf8 ); |
22 |
use CGI qw ( -utf8 ); |
|
|
23 |
use HTML::Entities; |
| 23 |
use C4::Output; |
24 |
use C4::Output; |
| 24 |
use C4::Auth qw/:DEFAULT/; |
25 |
use C4::Auth qw/:DEFAULT/; |
| 25 |
use C4::Members; |
26 |
use C4::Members; |
|
Lines 45-50
my $findborrower = $query->param('findborrower');
Link Here
|
| 45 |
$findborrower =~ s|,| |g; |
46 |
$findborrower =~ s|,| |g; |
| 46 |
|
47 |
|
| 47 |
my $borrowernumber = $query->param('borrowernumber'); |
48 |
my $borrowernumber = $query->param('borrowernumber'); |
|
|
49 |
$borrowernumber = HTML::Entities::encode($borrowernumber); |
| 48 |
|
50 |
|
| 49 |
my $branch = C4::Context->userenv->{'branch'}; |
51 |
my $branch = C4::Context->userenv->{'branch'}; |
| 50 |
|
52 |
|
| 51 |
- |
|
|