|
Lines 7-16
return {
Link Here
|
| 7 |
my ($args) = @_; |
7 |
my ($args) = @_; |
| 8 |
my ($dbh, $out) = @$args{qw(dbh out)}; |
8 |
my ($dbh, $out) = @$args{qw(dbh out)}; |
| 9 |
# Do you stuffs here |
9 |
# Do you stuffs here |
|
|
10 |
$dbh->do(q{ |
| 11 |
ALTER TABLE illrequests DROP FOREIGN KEY illrequests_safk; |
| 12 |
}); |
| 10 |
$dbh->do(q{ |
13 |
$dbh->do(q{ |
| 11 |
ALTER TABLE authorised_values MODIFY COLUMN authorised_value varchar(255) COLLATE utf8mb4_unicode_ci NOT NULL DEFAULT '' COMMENT 'code use to identify the authorized value'; |
14 |
ALTER TABLE authorised_values MODIFY COLUMN authorised_value varchar(255) COLLATE utf8mb4_unicode_ci NOT NULL DEFAULT '' COMMENT 'code use to identify the authorized value'; |
| 12 |
}); |
15 |
}); |
| 13 |
# Print useful stuff here |
16 |
$dbh->do(q{ |
|
|
17 |
ALTER TABLE illrequests ADD CONSTRAINT `illrequests_safk` FOREIGN KEY (`status_alias`) REFERENCES `authorised_values` (`authorised_value`) ON DELETE SET NULL ON UPDATE CASCADE |
| 18 |
}); |
| 14 |
say $out "Column enlarged"; |
19 |
say $out "Column enlarged"; |
| 15 |
}, |
20 |
}, |
| 16 |
}; |
21 |
}; |
| 17 |
- |
|
|