5 description => "Add new /ill_requests endopoint",
8 my ($dbh, $out) = @$args{qw(dbh out)};
10 unless ( foreign_key_exists( 'illrequests', 'illrequests_bibfk' ) ) {
12 ALTER TABLE illrequests
13 ADD KEY `illrequests_bibfk` (`biblio_id`),
14 ADD FOREIGN KEY illrequests_bibfk (`biblio_id`) REFERENCES `biblio` (`biblionumber`) ON DELETE SET NULL ON UPDATE CASCADE;
17 say $out "Added foreign key constraint 'illrequests.illrequests_bibfk'";