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 |
- |
|
|