Attachment #156033 for bug #34843

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




use Modern::Perl;

return {
    bug_number  => 34843,
    description => "Restore comment on article_requests.toc_request",
    up          => sub {
        my ($args) = @_;
        my ( $dbh, $out ) = @$args{qw(dbh out)};
        $dbh->do(
            q{
                ALTER TABLE article_requests MODIFY COLUMN toc_request tinyint(4) NOT NULL DEFAULT 0
                COMMENT 'borrower requested table of contents'
                AFTER updated_on
        }
        );
    },
};


Lines 8-14 return { Link Here

(-)a/installer/data/mysql/db_revs/210600033.pl (-2 / +3 lines)
8	my ($dbh, $out) = @$args{qw(dbh out)};	8	my ($dbh, $out) = @$args{qw(dbh out)};
9	if( !column_exists('article_requests', 'toc_request') ) {	9	if( !column_exists('article_requests', 'toc_request') ) {
10	$dbh->do( q\|	10	$dbh->do( q\|
11	ALTER TABLE article_requests ADD COLUMN toc_request tinyint(4) NOT NULL DEFAULT 0 AFTER updated_on	11	ALTER TABLE article_requests ADD COLUMN toc_request tinyint(4) NOT NULL DEFAULT 0
		12	COMMENT 'borrower requested table of contents'
		13	AFTER updated_on
12	\|);	14	\|);
13	}	15	}
14	},	16	},
15	-

Return to bug 34843

Line 0 Link Here

(-)a/installer/data/mysql/atomicupdate/bug_34843.pl (+18 lines)
	1	use Modern::Perl;
	2
	3	return {
	4	bug_number => 34843,
	5	description => "Restore comment on article_requests.toc_request",
	6	up => sub {
	7	my ($args) = @_;
	8	my ( $dbh, $out ) = @$args{qw(dbh out)};
	9	$dbh->do(
	10	q{
	11	ALTER TABLE article_requests MODIFY COLUMN toc_request tinyint(4) NOT NULL DEFAULT 0
	12	COMMENT 'borrower requested table of contents'
	13	AFTER updated_on
	14	}
	15	);
	16	},
	17	};
	18