Attachment #155880 for bug #12532

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





return {
    bug_number  => "12532",
    description => "Add new system preference RedirectGuaranteeEmail and cc_address field",
    up          => sub {
        my ($args) = @_;
        my ( $dbh, $out ) = @$args{qw(dbh out)};

            VALUES ('RedirectGuaranteeEmail', '0', 'Enable the ability to redirect guarantee email messages to guarantor.', NULL, 'YesNo')
        }
        );

        say $out "Added system preference 'RedirectGuaranteeEmail'";

        unless ( column_exists( 'message_queue', 'cc_address' ) ) {
            $dbh->do(q{
                ALTER TABLE `message_queue`
                ADD COLUMN `cc_address` longtext DEFAULT NULL
                AFTER `to_address`
            });
            say $out "Added column 'cc_address'";
        }
    },
};

Lines 4300-4305 CREATE TABLE `message_queue` ( Link Here

(-)a/installer/data/mysql/kohastructure.sql (-1 / +1 lines)
4300	`time_queued` timestamp NULL DEFAULT NULL,	4300	`time_queued` timestamp NULL DEFAULT NULL,
4301	`updated_on` timestamp NOT NULL DEFAULT current_timestamp() ON UPDATE current_timestamp(),	4301	`updated_on` timestamp NOT NULL DEFAULT current_timestamp() ON UPDATE current_timestamp(),
4302	`to_address` longtext DEFAULT NULL,	4302	`to_address` longtext DEFAULT NULL,
		4303	`cc_address` longtext DEFAULT NULL,
4303	`from_address` longtext DEFAULT NULL,	4304	`from_address` longtext DEFAULT NULL,
4304	`reply_address` longtext DEFAULT NULL,	4305	`reply_address` longtext DEFAULT NULL,
4305	`content_type` mediumtext DEFAULT NULL,	4306	`content_type` mediumtext DEFAULT NULL,
4306	-

Return to bug 12532

Lines 2-8 use Modern::Perl; Link Here

(-)a/installer/data/mysql/atomicupdate/bug_12532-RedirectGuaranteeEmail_syspref.pl (-2 / +10 lines)
2		2
3	return {	3	return {
4	bug_number => "12532",	4	bug_number => "12532",
5	description => "Add new system preference RedirectGuaranteeEmail",	5	description => "Add new system preference RedirectGuaranteeEmail and cc_address field",
6	up => sub {	6	up => sub {
7	my ($args) = @_;	7	my ($args) = @_;
8	my ( $dbh, $out ) = @$args{qw(dbh out)};	8	my ( $dbh, $out ) = @$args{qw(dbh out)};
Lines 13-19 return { Link Here
13	VALUES ('RedirectGuaranteeEmail', '0', 'Enable the ability to redirect guarantee email messages to guarantor.', NULL, 'YesNo')	13	VALUES ('RedirectGuaranteeEmail', '0', 'Enable the ability to redirect guarantee email messages to guarantor.', NULL, 'YesNo')
14	}	14	}
15	);	15	);
16
17	say $out "Added system preference 'RedirectGuaranteeEmail'";	16	say $out "Added system preference 'RedirectGuaranteeEmail'";
		17
		18	unless ( column_exists( 'message_queue', 'cc_address' ) ) {
		19	$dbh->do(q{
		20	ALTER TABLE `message_queue`
		21	ADD COLUMN `cc_address` longtext DEFAULT NULL
		22	AFTER `to_address`
		23	});
		24	say $out "Added column 'cc_address'";
		25	}
18	},	26	},
19	};	27	};