Attachment #160097 for bug #35610

View | Details | Raw Unified | Return to bug 35610
Collapse All | Expand All




use Modern::Perl;

return {
    bug_number  => "35610",
    description => "Add FK on old_reserves.branchcode",
    up          => sub {
        my ($args) = @_;
        my ( $dbh, $out ) = @$args{qw(dbh out)};

        unless ( foreign_key_exists('old_reserves', 'old_reserves_ibfk_branchcode') ) {
            $dbh->do(q{
                ALTER TABLE old_reserves
                ADD CONSTRAINT `old_reserves_ibfk_branchcode` FOREIGN KEY (`branchcode`) REFERENCES `branches` (`branchcode`) ON DELETE SET NULL ON UPDATE CASCADE;
            });
            say $out "Added foreign key on 'old_reserves.branchcode'"
        }
    },
};

Lines 4917-4922 CREATE TABLE `old_reserves` ( Link Here

(-)a/installer/data/mysql/kohastructure.sql (-1 / +1 lines)
4917	CONSTRAINT `old_reserves_ibfk_3` FOREIGN KEY (`itemnumber`) REFERENCES `items` (`itemnumber`) ON DELETE SET NULL ON UPDATE SET NULL,	4917	CONSTRAINT `old_reserves_ibfk_3` FOREIGN KEY (`itemnumber`) REFERENCES `items` (`itemnumber`) ON DELETE SET NULL ON UPDATE SET NULL,
4918	CONSTRAINT `old_reserves_ibfk_4` FOREIGN KEY (`itemtype`) REFERENCES `itemtypes` (`itemtype`) ON DELETE SET NULL ON UPDATE SET NULL,	4918	CONSTRAINT `old_reserves_ibfk_4` FOREIGN KEY (`itemtype`) REFERENCES `itemtypes` (`itemtype`) ON DELETE SET NULL ON UPDATE SET NULL,
4919	CONSTRAINT `old_reserves_ibfk_ig` FOREIGN KEY (`item_group_id`) REFERENCES `item_groups` (`item_group_id`) ON DELETE SET NULL ON UPDATE SET NULL	4919	CONSTRAINT `old_reserves_ibfk_ig` FOREIGN KEY (`item_group_id`) REFERENCES `item_groups` (`item_group_id`) ON DELETE SET NULL ON UPDATE SET NULL
		4920	CONSTRAINT `old_reserves_ibfk_branchcode` FOREIGN KEY (`branchcode`) REFERENCES `branches` (`branchcode`) ON DELETE SET NULL ON UPDATE CASCADE,
4920	) ENGINE=InnoDB DEFAULT CHARSET=utf8mb4 COLLATE=utf8mb4_unicode_ci;	4921	) ENGINE=InnoDB DEFAULT CHARSET=utf8mb4 COLLATE=utf8mb4_unicode_ci;
4921	/!40101 SET character_set_client = @saved_cs_client /;	4922	/!40101 SET character_set_client = @saved_cs_client /;
4922		4923
4923	-

Return to bug 35610

Line 0 Link Here

(-)a/installer/data/mysql/atomicupdate/bug_35610.pl (+18 lines)
	1	use Modern::Perl;
	2
	3	return {
	4	bug_number => "35610",
	5	description => "Add FK on old_reserves.branchcode",
	6	up => sub {
	7	my ($args) = @_;
	8	my ( $dbh, $out ) = @$args{qw(dbh out)};
	9
	10	unless ( foreign_key_exists('old_reserves', 'old_reserves_ibfk_branchcode') ) {
	11	$dbh->do(q{
	12	ALTER TABLE old_reserves
	13	ADD CONSTRAINT `old_reserves_ibfk_branchcode` FOREIGN KEY (`branchcode`) REFERENCES `branches` (`branchcode`) ON DELETE SET NULL ON UPDATE CASCADE;
	14	});
	15	say $out "Added foreign key on 'old_reserves.branchcode'"
	16	}
	17	},
	18	};