user_id => C4::Context->userenv ? C4::Context->userenv->{'number'} : undef,
library_id => C4::Context->userenv ? C4::Context->userenv->{'branch'} : undef,
interface => C4::Context->interface,
- type => 'forgiven',
+ type => 'FORGIVEN',
item_id => $item
}
);
$credit_type can be any of:
- 'CREDIT'
- 'payment'
- - 'forgiven'
+ - 'FORGIVEN'
- 'lost_item_return'
- 'writeoff'
our $offset_type = {
'CREDIT' => 'Manual Credit',
- 'forgiven' => 'Writeoff',
+ 'FORGIVEN' => 'Writeoff',
'lost_item_return' => 'Lost Item',
'payment' => 'Payment',
'writeoff' => 'Writeoff',
our $account_type_credit = {
'CREDIT' => 'CREDIT',
- 'forgiven' => 'FOR',
+ 'FORGIVEN' => 'FORGIVEN',
'lost_item_return' => 'LOST_RETURN',
'payment' => 'Pay',
'writeoff' => 'W'
"properties": {
"credit_type": {
"type": "string",
- "description": "Type of credit ('CREDIT', 'forgiven', 'lost_item_return', 'payment', 'writeoff' )"
+ "description": "Type of credit ('CREDIT', 'FORGIVEN', 'lost_item_return', 'payment', 'writeoff' )"
},
"amount": {
"type": "number",
('PAY', 'Payment', 0, 1),
('W', 'Writeoff', 0, 1),
('WO', 'Writeoff', 0, 1),
-('FOR', 'Forgiven', 1, 1),
+('FORGIVEN', 'Forgiven', 1, 1),
('CREDIT', 'Credit', 1, 1),
('LOST_RETURN', 'Lost item fee refund', 0, 1);
('PAY', 'Payment', 0, 1),
('W', 'Writeoff', 0, 1),
('WO', 'Writeoff', 0, 1),
- ('FOR', 'Forgiven', 1, 1),
+ ('FORGIVEN', 'Forgiven', 1, 1),
('CREDIT', 'Credit', 1, 1),
('LOST_RETURN', 'Lost item fee refund', 0, 1)
}
}
);
+ # Update accountype 'FOR' to 'FORGIVEN'
+ $dbh->do(
+ qq{
+ UPDATE accountlines SET accounttype = 'FORGIVEN' WHERE accounttype = 'FOR' OR accounttype = 'FORW'
+ }
+ );
+
# Populating credit_type_code
$dbh->do(
qq{
[%- SWITCH account.credit_type_code -%]
[%- CASE 'Pay' -%]Payment
[%- CASE 'W' -%]Writeoff
- [%- CASE 'FOR' -%]Forgiven
+ [%- CASE 'FORGIVEN' -%]Forgiven
[%- CASE 'PAY' -%]Payment
[%- CASE 'WO' -%]Writeoff
[%- CASE 'CREDIT' -%]Credit
[%- SWITCH account.credit_type_code -%]
[%- CASE 'Pay' -%]Payment
[%- CASE 'W' -%]Writeoff
- [%- CASE 'FOR' -%]Forgiven
+ [%- CASE 'FORGIVEN' -%]Forgiven
[%- CASE 'PAY' -%]Payment
[%- CASE 'WO' -%]Writeoff
[%- CASE 'CREDIT' -%]Credit
} elsif ($transaction_type eq 'ACT') { #Active
$whereTType = q{ AND credit_type_code IN ('Pay','CREDIT') };
} elsif ($transaction_type eq 'FORW') {
- $whereTType = q{ AND credit_type_code IN ('FOR','W') };
+ $whereTType = q{ AND credit_type_code IN ('FORGIVEN','W') };
} else {
if ( any { $transaction_type eq $_->code } @debit_types ) {
$whereTType = q{ AND debit_type_code = ? };
if($row->{credit_type_code} =~ /^C$|^CR$/){
$grantotal -= abs($row->{amount});
$row->{amount} = '-' . $row->{amount};
- }elsif($row->{credit_type_code} eq 'FORW' || $row->{credit_type_code} eq 'W'){
+ }elsif($row->{credit_type_code} eq 'FORGIVEN' || $row->{credit_type_code} eq 'W'){
}else{
$grantotal += abs($row->{amount});
}
description => 'Manual credit applied',
library_id => $patron->branchcode,
user_id => $patron->id,
- type => 'forgiven',
+ type => 'FORGIVEN',
interface => 'commandline'
}
);