|
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 |
- |
|
|