Attachment #127938 for bug #29495

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




use Modern::Perl;

return {
    bug_number => "29495",
    description => "Drop issue_id contraint from return_claims table",
    up => sub {
        my ($args) = @_;
        my ($dbh, $out) = @$args{qw(dbh out)};
        if ( foreign_key_exists( 'return_claims', 'issue_id' ) ) {
            $dbh->do(q{
                ALTER TABLE return_claims DROP FOREIGN KEY issue_id
            });
        }
    },
}

Lines 4385-4391 CREATE TABLE `return_claims` ( Link Here

(-)a/installer/data/mysql/kohastructure.sql (-2 lines)
4385	KEY `rc_created_by_ibfk` (`created_by`),	4385	KEY `rc_created_by_ibfk` (`created_by`),
4386	KEY `rc_updated_by_ibfk` (`updated_by`),	4386	KEY `rc_updated_by_ibfk` (`updated_by`),
4387	KEY `rc_resolved_by_ibfk` (`resolved_by`),	4387	KEY `rc_resolved_by_ibfk` (`resolved_by`),
4388	CONSTRAINT `issue_id` FOREIGN KEY (`issue_id`) REFERENCES `issues` (`issue_id`) ON DELETE SET NULL ON UPDATE CASCADE,
4389	CONSTRAINT `rc_borrowers_ibfk` FOREIGN KEY (`borrowernumber`) REFERENCES `borrowers` (`borrowernumber`) ON DELETE CASCADE ON UPDATE CASCADE,	4388	CONSTRAINT `rc_borrowers_ibfk` FOREIGN KEY (`borrowernumber`) REFERENCES `borrowers` (`borrowernumber`) ON DELETE CASCADE ON UPDATE CASCADE,
4390	CONSTRAINT `rc_created_by_ibfk` FOREIGN KEY (`created_by`) REFERENCES `borrowers` (`borrowernumber`) ON DELETE SET NULL ON UPDATE CASCADE,	4389	CONSTRAINT `rc_created_by_ibfk` FOREIGN KEY (`created_by`) REFERENCES `borrowers` (`borrowernumber`) ON DELETE SET NULL ON UPDATE CASCADE,
4391	CONSTRAINT `rc_items_ibfk` FOREIGN KEY (`itemnumber`) REFERENCES `items` (`itemnumber`) ON DELETE CASCADE ON UPDATE CASCADE,	4390	CONSTRAINT `rc_items_ibfk` FOREIGN KEY (`itemnumber`) REFERENCES `items` (`itemnumber`) ON DELETE CASCADE ON UPDATE CASCADE,
4392	-

Return to bug 29495

Line 0 Link Here

(-)a/installer/data/mysql/atomicupdate/bug_29495.pl (+15 lines)
	1	use Modern::Perl;
	2
	3	return {
	4	bug_number => "29495",
	5	description => "Drop issue_id contraint from return_claims table",
	6	up => sub {
	7	my ($args) = @_;
	8	my ($dbh, $out) = @$args{qw(dbh out)};
	9	if ( foreign_key_exists( 'return_claims', 'issue_id' ) ) {
	10	$dbh->do(q{
	11	ALTER TABLE return_claims DROP FOREIGN KEY issue_id
	12	});
	13	}
	14	},
	15	}