Attachment #153799 for bug #30451

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




use Modern::Perl;

return {
    bug_number  => "30451",
    description => "Update FK constraint on aqorders.subscriptionid to ON DELETE SET NULL",
    up          => sub {
        my ($args) = @_;
        my ( $dbh, $out ) = @$args{qw(dbh out)};

        if ( foreign_key_exists('aqorders', 'aqorders_subscriptionid') ) {
            $dbh->do(q{ALTER TABLE aqorders DROP FOREIGN KEY aqorders_subscriptionid});
        }
        $dbh->do(
            q{ALTER TABLE aqorders ADD CONSTRAINT `aqorders_subscriptionid` FOREIGN KEY (`subscriptionid`) REFERENCES subscription(`subscriptionid`) ON DELETE SET NULL ON UPDATE CASCADE}
        );
        say $out "Update FK constraint on subscriptionid";
    },
};

Lines 773-779 CREATE TABLE `aqorders` ( Link Here

(-)a/installer/data/mysql/kohastructure.sql (-2 / +1 lines)
773	CONSTRAINT `aqorders_ibfk_2` FOREIGN KEY (`biblionumber`) REFERENCES `biblio` (`biblionumber`) ON DELETE SET NULL ON UPDATE CASCADE,	773	CONSTRAINT `aqorders_ibfk_2` FOREIGN KEY (`biblionumber`) REFERENCES `biblio` (`biblionumber`) ON DELETE SET NULL ON UPDATE CASCADE,
774	CONSTRAINT `aqorders_ibfk_3` FOREIGN KEY (`invoiceid`) REFERENCES `aqinvoices` (`invoiceid`) ON DELETE SET NULL ON UPDATE CASCADE,	774	CONSTRAINT `aqorders_ibfk_3` FOREIGN KEY (`invoiceid`) REFERENCES `aqinvoices` (`invoiceid`) ON DELETE SET NULL ON UPDATE CASCADE,
775	CONSTRAINT `aqorders_invoice_currency` FOREIGN KEY (`invoice_currency`) REFERENCES `currency` (`currency`) ON DELETE SET NULL ON UPDATE SET NULL,	775	CONSTRAINT `aqorders_invoice_currency` FOREIGN KEY (`invoice_currency`) REFERENCES `currency` (`currency`) ON DELETE SET NULL ON UPDATE SET NULL,
776	CONSTRAINT `aqorders_subscriptionid` FOREIGN KEY (`subscriptionid`) REFERENCES `subscription` (`subscriptionid`) ON DELETE CASCADE ON UPDATE CASCADE	776	CONSTRAINT `aqorders_subscriptionid` FOREIGN KEY (`subscriptionid`) REFERENCES `subscription` (`subscriptionid`) ON DELETE SET NULL ON UPDATE CASCADE
777	) ENGINE=InnoDB DEFAULT CHARSET=utf8mb4 COLLATE=utf8mb4_unicode_ci;	777	) ENGINE=InnoDB DEFAULT CHARSET=utf8mb4 COLLATE=utf8mb4_unicode_ci;
778	/!40101 SET character_set_client = @saved_cs_client /;	778	/!40101 SET character_set_client = @saved_cs_client /;
779		779
780	-

Return to bug 30451

Line 0 Link Here

(-)a/installer/data/mysql/atomicupdate/bug_30451_do_not_delete_orders_with_subscription.pl (+18 lines)
	1	use Modern::Perl;
	2
	3	return {
	4	bug_number => "30451",
	5	description => "Update FK constraint on aqorders.subscriptionid to ON DELETE SET NULL",
	6	up => sub {
	7	my ($args) = @_;
	8	my ( $dbh, $out ) = @$args{qw(dbh out)};
	9
	10	if ( foreign_key_exists('aqorders', 'aqorders_subscriptionid') ) {
	11	$dbh->do(q{ALTER TABLE aqorders DROP FOREIGN KEY aqorders_subscriptionid});
	12	}
	13	$dbh->do(
	14	q{ALTER TABLE aqorders ADD CONSTRAINT `aqorders_subscriptionid` FOREIGN KEY (`subscriptionid`) REFERENCES subscription(`subscriptionid`) ON DELETE SET NULL ON UPDATE CASCADE}
	15	);
	16	say $out "Update FK constraint on subscriptionid";
	17	},
	18	};