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