View | Details | Raw Unified | Return to bug 19086
Collapse All | Expand All

(-)a/members/mancredit.pl (-2 / +2 lines)
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, updatecharges => 1 };
41
my $flagsrequired = { borrowers => 1, updatecharges => 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
- 

Return to bug 19086