|
Lines 19894-19906
if ( CheckVersion($DBversion) ) {
Link Here
|
| 19894 |
); |
19894 |
); |
| 19895 |
} |
19895 |
} |
| 19896 |
|
19896 |
|
| 19897 |
# Adding a check constraints to accountlines |
|
|
| 19898 |
$dbh->do( |
| 19899 |
qq{ |
| 19900 |
ALTER TABLE accountlines ADD CONSTRAINT `accountlines_check_type` CHECK (accounttype IS NOT NULL OR debit_type_code IS NOT NULL) |
| 19901 |
} |
| 19902 |
); |
| 19903 |
|
| 19904 |
# Populating debit_type_code |
19897 |
# Populating debit_type_code |
| 19905 |
$dbh->do( |
19898 |
$dbh->do( |
| 19906 |
qq{ |
19899 |
qq{ |
|
Lines 20010-20044
if ( CheckVersion($DBversion) ) {
Link Here
|
| 20010 |
); |
20003 |
); |
| 20011 |
} |
20004 |
} |
| 20012 |
|
20005 |
|
| 20013 |
# Dropping the check constraint in accountlines |
|
|
| 20014 |
my ($raise_error) = $dbh->{RaiseError}; |
| 20015 |
$dbh->{AutoCommit} = 0; |
| 20016 |
$dbh->{RaiseError} = 1; |
| 20017 |
eval { |
| 20018 |
# MariaDB Specific Drop |
| 20019 |
$dbh->do( |
| 20020 |
qq{ |
| 20021 |
ALTER TABLE |
| 20022 |
accountlines |
| 20023 |
DROP CONSTRAINT |
| 20024 |
`accountlines_check_type` |
| 20025 |
} |
| 20026 |
); |
| 20027 |
}; |
| 20028 |
if ($@) { |
| 20029 |
# MySQL Specific Drop |
| 20030 |
$dbh->do( |
| 20031 |
qq{ |
| 20032 |
ALTER TABLE |
| 20033 |
accountlines |
| 20034 |
DROP CHECK |
| 20035 |
`accountlines_check_type` |
| 20036 |
} |
| 20037 |
); |
| 20038 |
} |
| 20039 |
$dbh->{AutoCommit} = 1; |
| 20040 |
$dbh->{RaiseError} = $raise_error; |
| 20041 |
|
| 20042 |
# Update accountype 'C' to 'CREDIT' |
20006 |
# Update accountype 'C' to 'CREDIT' |
| 20043 |
$dbh->do( |
20007 |
$dbh->do( |
| 20044 |
qq{ |
20008 |
qq{ |
|
Lines 20099-20115
if ( CheckVersion($DBversion) ) {
Link Here
|
| 20099 |
} |
20063 |
} |
| 20100 |
); |
20064 |
); |
| 20101 |
|
20065 |
|
| 20102 |
# Adding a check constraints to accountlines |
|
|
| 20103 |
$dbh->do( |
| 20104 |
qq{ |
| 20105 |
ALTER TABLE |
| 20106 |
accountlines |
| 20107 |
ADD CONSTRAINT |
| 20108 |
`accountlines_check_type` |
| 20109 |
CHECK (credit_type_code IS NOT NULL OR debit_type_code IS NOT NULL) |
| 20110 |
} |
| 20111 |
); |
| 20112 |
|
| 20113 |
# Drop accounttype field |
20066 |
# Drop accounttype field |
| 20114 |
$dbh->do( |
20067 |
$dbh->do( |
| 20115 |
qq{ |
20068 |
qq{ |
| 20116 |
- |
|
|