Lines 341-347
sub cancel {
Link Here
|
341 |
# A 'cancellation' is a 'credit' |
341 |
# A 'cancellation' is a 'credit' |
342 |
$cancellation = Koha::Account::Line->new( |
342 |
$cancellation = Koha::Account::Line->new( |
343 |
{ |
343 |
{ |
344 |
date => \'NOW()', |
344 |
date => dt_from_string, |
345 |
amount => 0 - $self->amount, |
345 |
amount => 0 - $self->amount, |
346 |
credit_type_code => 'CANCELLATION', |
346 |
credit_type_code => 'CANCELLATION', |
347 |
status => 'ADDED', |
347 |
status => 'ADDED', |
Lines 465-471
sub reduce {
Link Here
|
465 |
# A 'reduction' is a 'credit' |
465 |
# A 'reduction' is a 'credit' |
466 |
$reduction = Koha::Account::Line->new( |
466 |
$reduction = Koha::Account::Line->new( |
467 |
{ |
467 |
{ |
468 |
date => \'NOW()', |
468 |
date => dt_from_string, |
469 |
amount => 0 - $params->{amount}, |
469 |
amount => 0 - $params->{amount}, |
470 |
credit_type_code => $params->{reduction_type}, |
470 |
credit_type_code => $params->{reduction_type}, |
471 |
status => 'ADDED', |
471 |
status => 'ADDED', |
Lines 687-693
sub payout {
Link Here
|
687 |
# A 'payout' is a 'debit' |
687 |
# A 'payout' is a 'debit' |
688 |
$payout = Koha::Account::Line->new( |
688 |
$payout = Koha::Account::Line->new( |
689 |
{ |
689 |
{ |
690 |
date => \'NOW()', |
690 |
date => dt_from_string, |
691 |
amount => $amount, |
691 |
amount => $amount, |
692 |
debit_type_code => 'PAYOUT', |
692 |
debit_type_code => 'PAYOUT', |
693 |
payment_type => $params->{payout_type}, |
693 |
payment_type => $params->{payout_type}, |
Lines 801-807
sub adjust {
Link Here
|
801 |
# Update the account line |
801 |
# Update the account line |
802 |
$self->set( |
802 |
$self->set( |
803 |
{ |
803 |
{ |
804 |
date => \'NOW()', |
804 |
date => dt_from_string, |
805 |
amount => $amount, |
805 |
amount => $amount, |
806 |
amountoutstanding => $new_outstanding, |
806 |
amountoutstanding => $new_outstanding, |
807 |
} |
807 |
} |
808 |
- |
|
|