|
Lines 20015-20023
if ( CheckVersion($DBversion) ) {
Link Here
|
| 20015 |
qq{ |
20015 |
qq{ |
| 20016 |
ALTER TABLE |
20016 |
ALTER TABLE |
| 20017 |
accountlines |
20017 |
accountlines |
| 20018 |
ADD CONSTRAINT |
20018 |
DROP CHECK |
| 20019 |
`accountlines_check_type` |
20019 |
`accountlines_check_type` |
| 20020 |
CHECK (credit_type_code IS NOT NULL OR debit_type_code IS NOT NULL) |
|
|
| 20021 |
} |
20020 |
} |
| 20022 |
); |
20021 |
); |
| 20023 |
|
20022 |
|
|
Lines 20073-20091
if ( CheckVersion($DBversion) ) {
Link Here
|
| 20073 |
# Populating credit_type_code |
20072 |
# Populating credit_type_code |
| 20074 |
$dbh->do( |
20073 |
$dbh->do( |
| 20075 |
qq{ |
20074 |
qq{ |
| 20076 |
UPDATE accountlines SET credit_type_code = accounttype, accounttype = NULL WHERE accounttype IN (SELECT code from account_credit_types) |
20075 |
UPDATE |
|
|
20076 |
accountlines |
| 20077 |
SET |
| 20078 |
credit_type_code = accounttype, accounttype = NULL |
| 20079 |
WHERE accounttype IN (SELECT code from account_credit_types) |
| 20077 |
} |
20080 |
} |
| 20078 |
); |
20081 |
); |
| 20079 |
|
20082 |
|
| 20080 |
# Adding a check constraints to accountlines |
20083 |
# Adding a check constraints to accountlines |
| 20081 |
$dbh->do( |
20084 |
$dbh->do( |
| 20082 |
qq{ |
20085 |
qq{ |
| 20083 |
ALTER TABLE accountlines ADD CONSTRAINT `accountlines_check_type` CHECK (accounttype IS NOT NULL OR credit_type_code IS NOT NULL) |
20086 |
ALTER TABLE |
|
|
20087 |
accountlines |
| 20088 |
ADD CONSTRAINT |
| 20089 |
`accountlines_check_type` |
| 20090 |
CHECK (credit_type_code IS NOT NULL OR debit_type_code IS NOT NULL) |
| 20091 |
} |
| 20092 |
); |
| 20093 |
|
| 20094 |
# Drop accounttype field |
| 20095 |
$dbh->do( |
| 20096 |
qq{ |
| 20097 |
ALTER TABLE accountlines |
| 20098 |
DROP COLUMN `accounttype` |
| 20084 |
} |
20099 |
} |
| 20085 |
); |
20100 |
); |
| 20086 |
|
20101 |
|
| 20087 |
SetVersion($DBversion); |
20102 |
SetVersion($DBversion); |
| 20088 |
print "Upgrade to $DBversion done (Bug 23049 - Add account credit_types)\n"; |
20103 |
print "Upgrade to $DBversion done (Bug 23805 - Add account credit_types)\n"; |
| 20089 |
} |
20104 |
} |
| 20090 |
|
20105 |
|
| 20091 |
# SEE bug 13068 |
20106 |
# SEE bug 13068 |
| 20092 |
- |
|
|