|
Lines 64-70
Koha::Account->new( { patron_id => $borrowernumber } )->pay(
Link Here
|
| 64 |
library_id => $branchcode, |
64 |
library_id => $branchcode, |
| 65 |
lines => $lines, # Arrayref of Koha::Account::Line objects to pay |
65 |
lines => $lines, # Arrayref of Koha::Account::Line objects to pay |
| 66 |
credit_type => $type, # credit_type_code code |
66 |
credit_type => $type, # credit_type_code code |
| 67 |
offset_type => $offset_type, # offset type code |
|
|
| 68 |
item_id => $itemnumber, # pass the itemnumber if this is a credit pertianing to a specific item (i.e LOST_FOUND) |
67 |
item_id => $itemnumber, # pass the itemnumber if this is a credit pertianing to a specific item (i.e LOST_FOUND) |
| 69 |
} |
68 |
} |
| 70 |
); |
69 |
); |
|
Lines 81-87
sub pay {
Link Here
|
| 81 |
my $lines = $params->{lines}; |
80 |
my $lines = $params->{lines}; |
| 82 |
my $type = $params->{type} || 'PAYMENT'; |
81 |
my $type = $params->{type} || 'PAYMENT'; |
| 83 |
my $payment_type = $params->{payment_type} || undef; |
82 |
my $payment_type = $params->{payment_type} || undef; |
| 84 |
my $offset_type = $params->{offset_type} || $type eq 'WRITEOFF' ? 'Writeoff' : 'Payment'; |
|
|
| 85 |
my $cash_register = $params->{cash_register}; |
83 |
my $cash_register = $params->{cash_register}; |
| 86 |
my $item_id = $params->{item_id}; |
84 |
my $item_id = $params->{item_id}; |
| 87 |
|
85 |
|
|
Lines 239-246
sub add_credit {
Link Here
|
| 239 |
my $account_offset = Koha::Account::Offset->new( |
237 |
my $account_offset = Koha::Account::Offset->new( |
| 240 |
{ |
238 |
{ |
| 241 |
credit_id => $line->id, |
239 |
credit_id => $line->id, |
| 242 |
type => $Koha::Account::offset_type->{$credit_type} // $Koha::Account::offset_type->{CREDIT}, |
240 |
type => 'CREATE', |
| 243 |
amount => $amount |
241 |
amount => $amount |
| 244 |
} |
242 |
} |
| 245 |
)->store(); |
243 |
)->store(); |
| 246 |
|
244 |
|
|
Lines 456-462
sub add_debit {
Link Here
|
| 456 |
my $transaction_type = $params->{transaction_type}; |
454 |
my $transaction_type = $params->{transaction_type}; |
| 457 |
my $item_id = $params->{item_id}; |
455 |
my $item_id = $params->{item_id}; |
| 458 |
my $issue_id = $params->{issue_id}; |
456 |
my $issue_id = $params->{issue_id}; |
| 459 |
my $offset_type = $Koha::Account::offset_type->{$debit_type} // 'Manual Debit'; |
|
|
| 460 |
|
457 |
|
| 461 |
my $line; |
458 |
my $line; |
| 462 |
my $schema = Koha::Database->new->schema; |
459 |
my $schema = Koha::Database->new->schema; |
|
Lines 493-499
sub add_debit {
Link Here
|
| 493 |
my $account_offset = Koha::Account::Offset->new( |
490 |
my $account_offset = Koha::Account::Offset->new( |
| 494 |
{ |
491 |
{ |
| 495 |
debit_id => $line->id, |
492 |
debit_id => $line->id, |
| 496 |
type => $offset_type, |
493 |
type => 'CREATE', |
| 497 |
amount => $amount |
494 |
amount => $amount |
| 498 |
} |
495 |
} |
| 499 |
)->store(); |
496 |
)->store(); |
|
Lines 771-803
sub reconcile_balance {
Link Here
|
| 771 |
|
768 |
|
| 772 |
1; |
769 |
1; |
| 773 |
|
770 |
|
| 774 |
=head2 Name mappings |
|
|
| 775 |
|
| 776 |
=head3 $offset_type |
| 777 |
|
| 778 |
=cut |
| 779 |
|
| 780 |
our $offset_type = { |
| 781 |
'CREDIT' => 'Manual Credit', |
| 782 |
'FORGIVEN' => 'Writeoff', |
| 783 |
'LOST_FOUND' => 'Lost Item Found', |
| 784 |
'OVERPAYMENT' => 'Overpayment', |
| 785 |
'PAYMENT' => 'Payment', |
| 786 |
'WRITEOFF' => 'Writeoff', |
| 787 |
'ACCOUNT' => 'Account Fee', |
| 788 |
'ACCOUNT_RENEW' => 'Account Fee', |
| 789 |
'RESERVE' => 'Reserve Fee', |
| 790 |
'PROCESSING' => 'Processing Fee', |
| 791 |
'LOST' => 'Lost Item', |
| 792 |
'RENT' => 'Rental Fee', |
| 793 |
'RENT_DAILY' => 'Rental Fee', |
| 794 |
'RENT_RENEW' => 'Rental Fee', |
| 795 |
'RENT_DAILY_RENEW' => 'Rental Fee', |
| 796 |
'OVERDUE' => 'OVERDUE', |
| 797 |
'RESERVE_EXPIRED' => 'Hold Expired', |
| 798 |
'PAYOUT' => 'PAYOUT', |
| 799 |
}; |
| 800 |
|
| 801 |
=head1 AUTHORS |
771 |
=head1 AUTHORS |
| 802 |
|
772 |
|
| 803 |
=encoding utf8 |
773 |
=encoding utf8 |
| 804 |
- |
|
|