Lines 41-47
use C4::Overdues;
Link Here
|
41 |
use C4::Branch; |
41 |
use C4::Branch; |
42 |
use C4::Members::Attributes qw(GetBorrowerAttributes); |
42 |
use C4::Members::Attributes qw(GetBorrowerAttributes); |
43 |
|
43 |
|
44 |
my $input = CGI->new; |
44 |
our $input = CGI->new; |
45 |
|
45 |
|
46 |
our ( $template, $loggedinuser, $cookie ) = get_template_and_user( |
46 |
our ( $template, $loggedinuser, $cookie ) = get_template_and_user( |
47 |
{ template_name => 'members/pay.tmpl', |
47 |
{ template_name => 'members/pay.tmpl', |
Lines 55-72
our ( $template, $loggedinuser, $cookie ) = get_template_and_user(
Link Here
|
55 |
|
55 |
|
56 |
my @names = $input->param; |
56 |
my @names = $input->param; |
57 |
|
57 |
|
58 |
my $borrowernumber = $input->param('borrowernumber'); |
58 |
our $borrowernumber = $input->param('borrowernumber'); |
59 |
if ( !$borrowernumber ) { |
59 |
if ( !$borrowernumber ) { |
60 |
$borrowernumber = $input->param('borrowernumber0'); |
60 |
$borrowernumber = $input->param('borrowernumber0'); |
61 |
} |
61 |
} |
62 |
|
62 |
|
63 |
# get borrower details |
63 |
# get borrower details |
64 |
my $borrower = GetMember( borrowernumber => $borrowernumber ); |
64 |
our $borrower = GetMember( borrowernumber => $borrowernumber ); |
65 |
my $user = $input->remote_user; |
65 |
our $user = $input->remote_user; |
66 |
$user ||= q{}; |
66 |
$user ||= q{}; |
67 |
|
67 |
|
68 |
my $branches = GetBranches(); |
68 |
my $branches = GetBranches(); |
69 |
my $branch = GetBranch( $input, $branches ); |
69 |
our $branch = GetBranch( $input, $branches ); |
70 |
|
70 |
|
71 |
my $writeoff_item = $input->param('confirm_writeoff'); |
71 |
my $writeoff_item = $input->param('confirm_writeoff'); |
72 |
my $paycollect = $input->param('paycollect'); |
72 |
my $paycollect = $input->param('paycollect'); |
73 |
- |
|
|