|
Lines 40-46
if ( CheckVersion($DBversion) ) {
Link Here
|
| 40 |
('PAY', 'Payment', 0, 1), |
40 |
('PAY', 'Payment', 0, 1), |
| 41 |
('W', 'Writeoff', 0, 1), |
41 |
('W', 'Writeoff', 0, 1), |
| 42 |
('WO', 'Writeoff', 0, 1), |
42 |
('WO', 'Writeoff', 0, 1), |
| 43 |
('FOR', 'Forgiven', 1, 1), |
43 |
('FORGIVEN', 'Forgiven', 1, 1), |
| 44 |
('CREDIT', 'Credit', 1, 1), |
44 |
('CREDIT', 'Credit', 1, 1), |
| 45 |
('LOST_RETURN', 'Lost item fee refund', 0, 1) |
45 |
('LOST_RETURN', 'Lost item fee refund', 0, 1) |
| 46 |
} |
46 |
} |
|
Lines 82-87
if ( CheckVersion($DBversion) ) {
Link Here
|
| 82 |
} |
82 |
} |
| 83 |
); |
83 |
); |
| 84 |
|
84 |
|
|
|
85 |
# Update accountype 'FOR' to 'FORGIVEN' |
| 86 |
$dbh->do( |
| 87 |
qq{ |
| 88 |
UPDATE accountlines SET accounttype = 'FORGIVEN' WHERE accounttype = 'FOR' OR accounttype = 'FORW' |
| 89 |
} |
| 90 |
); |
| 91 |
|
| 85 |
# Populating credit_type_code |
92 |
# Populating credit_type_code |
| 86 |
$dbh->do( |
93 |
$dbh->do( |
| 87 |
qq{ |
94 |
qq{ |