|
Lines 8-14
return {
Link Here
|
| 8 |
my ($dbh, $out) = @$args{qw(dbh out)}; |
8 |
my ($dbh, $out) = @$args{qw(dbh out)}; |
| 9 |
|
9 |
|
| 10 |
if( foreign_key_exists('borrower_attribute_types', 'category_code_fk') ) { |
10 |
if( foreign_key_exists('borrower_attribute_types', 'category_code_fk') ) { |
| 11 |
$dbh->do( q|ALTER TABLE borrower_attribute_types DROP CONSTRAINT category_code_fk| ); |
11 |
$dbh->do( q|ALTER TABLE borrower_attribute_types DROP FOREIGN KEY category_code_fk| ); |
| 12 |
if( index_exists('borrower_attribute_types', 'category_code_fk') ) { |
12 |
if( index_exists('borrower_attribute_types', 'category_code_fk') ) { |
| 13 |
$dbh->do( q|ALTER TABLE borrower_attribute_types DROP INDEX category_code_fk| ); |
13 |
$dbh->do( q|ALTER TABLE borrower_attribute_types DROP INDEX category_code_fk| ); |
| 14 |
} |
14 |
} |
| 15 |
- |
|
|