Lines 76-84
sub pay {
Link Here
|
76 |
my $account_type = $params->{account_type}; |
76 |
my $account_type = $params->{account_type}; |
77 |
my $offset_type = $params->{offset_type} || $type eq 'writeoff' ? 'Writeoff' : 'Payment'; |
77 |
my $offset_type = $params->{offset_type} || $type eq 'writeoff' ? 'Writeoff' : 'Payment'; |
78 |
|
78 |
|
79 |
$library_id ||= C4::Context->userenv ? C4::Context->userenv->{'branch'} : undef; |
|
|
80 |
|
81 |
my $userenv = C4::Context->userenv; |
79 |
my $userenv = C4::Context->userenv; |
|
|
80 |
$library_id ||= $userenv ? $userenv->{'branch'} : undef; |
82 |
|
81 |
|
83 |
# We should remove accountno, it is no longer needed |
82 |
# We should remove accountno, it is no longer needed |
84 |
my $last = Koha::Account::Lines->search( |
83 |
my $last = Koha::Account::Lines->search( |
85 |
- |
|
|