Lines 20011-20024
if ( CheckVersion($DBversion) ) {
Link Here
|
20011 |
} |
20011 |
} |
20012 |
|
20012 |
|
20013 |
# Dropping the check constraint in accountlines |
20013 |
# Dropping the check constraint in accountlines |
20014 |
$dbh->do( |
20014 |
my ($raise_error) = $dbh->{RaiseError}; |
20015 |
qq{ |
20015 |
$dbh->{AutoCommit} = 0; |
20016 |
ALTER TABLE |
20016 |
$dbh->{RaiseError} = 1; |
20017 |
accountlines |
20017 |
eval { |
20018 |
DROP CHECK |
20018 |
# MariaDB Specific Drop |
20019 |
`accountlines_check_type` |
20019 |
$dbh->do( |
20020 |
} |
20020 |
qq{ |
20021 |
); |
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; |
20022 |
|
20041 |
|
20023 |
# Update accountype 'C' to 'CREDIT' |
20042 |
# Update accountype 'C' to 'CREDIT' |
20024 |
$dbh->do( |
20043 |
$dbh->do( |
20025 |
- |
|
|