Line 0
Link Here
|
|
|
1 |
$DBversion = 'XXX'; # will be replaced by the RM |
2 |
if( CheckVersion( $DBversion ) ) { |
3 |
|
4 |
$dbh->do( " |
5 |
CREATE TABLE IF NOT EXISTS account_debit_types ( |
6 |
type_code varchar(5) NOT NULL, |
7 |
default_amount decimal(28,6) NULL, |
8 |
description varchar(200) NULL, |
9 |
can_be_deleted tinyint NOT NULL DEFAULT '1', |
10 |
can_be_added_manually tinyint(4) NOT NULL DEFAULT '1', |
11 |
PRIMARY KEY (type_code) |
12 |
) COMMENT='' ENGINE='InnoDB' COLLATE 'utf8_unicode_ci' |
13 |
" ); |
14 |
|
15 |
$dbh->do( " |
16 |
CREATE TABLE IF NOT EXISTS account_credit_types ( |
17 |
type_code varchar(5) NOT NULL, |
18 |
description varchar(200) NULL, |
19 |
can_be_deleted tinyint NOT NULL DEFAULT '1', |
20 |
can_be_added_manually tinyint(4) NOT NULL DEFAULT '1', |
21 |
PRIMARY KEY (type_code) |
22 |
) COMMENT='' ENGINE='InnoDB' COLLATE 'utf8_unicode_ci' |
23 |
" ); |
24 |
|
25 |
$dbh->do( " |
26 |
INSERT IGNORE INTO account_debit_types (type_code, default_amount, description, can_be_deleted, can_be_added_manually) VALUES |
27 |
('A', NULL, 'Account management fee', 0, 1), |
28 |
('F', NULL, 'Overdue fine', 0, 1), |
29 |
('FU', NULL, 'Accruing overdue fine', 0, 0), |
30 |
('L', NULL, 'Lost item', 0, 1), |
31 |
('LR', NULL, 'Lost and returned', 0, 0), |
32 |
('M', NULL, 'Sundry', 0, 1), |
33 |
('N', NULL, 'New card', 0, 1), |
34 |
('O', NULL, 'Overdue fine', 0, 0), |
35 |
('Rent', NULL, 'Rental fee', 0, 1), |
36 |
('Rep', NULL, 'Replacement', 0, 0), |
37 |
('Res', NULL, 'Reserve charge', 0, 1) |
38 |
" ); |
39 |
|
40 |
$dbh->do( " |
41 |
INSERT IGNORE INTO account_debit_types (type_code, default_amount, description, can_be_deleted, can_be_added_manually) |
42 |
SELECT SUBSTR(authorised_value,1,5), lib, authorised_value, 1, 1 |
43 |
FROM authorised_values WHERE category='MANUAL_INV' |
44 |
" ); |
45 |
|
46 |
$dbh->do( " |
47 |
INSERT IGNORE INTO account_credit_types (type_code, description, can_be_deleted, can_be_added_manually) VALUES |
48 |
('C', 'Credit', 0, 1), |
49 |
('CC', 'Credit card', 0, 0), |
50 |
('CR', 'Refunded found lost item', 0, 0), |
51 |
('FFOR', 'Forgiven overdue fine', 0, 0), |
52 |
('FOR', 'Forgiven', 0, 1), |
53 |
('OL', 'Other online payment service', 0, 0), |
54 |
('Pay', 'Cash', 0, 0), |
55 |
('Pay00', 'Cash via SIP2', 0, 0), |
56 |
('Pay01', 'VISA via SIP2', 0, 0), |
57 |
('Pay02', 'Credit card via SIP2', 0, 0), |
58 |
('PayPa', 'PayPal', 0, 0), |
59 |
('W', 'Write Off', 0, 0) |
60 |
" ); |
61 |
|
62 |
$dbh->do( " |
63 |
ALTER IGNORE TABLE `accountlines` ADD `paymenttype` varchar(5) COLLATE 'utf8_unicode_ci' NULL AFTER `accounttype` |
64 |
" ); |
65 |
|
66 |
SetVersion( $DBversion ); |
67 |
print "Upgrade to $DBversion done (Bug XXXXX - description)\n"; |
68 |
} |