Attachment #149999 for bug #33478

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




use Modern::Perl;

return {
    bug_number => "33478",
    description => "Customise the format of notices when they are printed",
    up => sub {
        my ($args) = @_;
        my ($dbh, $out) = @$args{qw(dbh out)};

        if( !column_exists( 'letter', 'font_size' ) ) {
          $dbh->do(q{
              ALTER TABLE letter ADD COLUMN `font_size` int(4) NOT NULL DEFAULT 14 AFTER `updated_on`
          });

          say $out "Added column 'letter.font_size'";
        }

        if( !column_exists( 'letter', 'text_justify' ) ) {
          $dbh->do(q{
              ALTER TABLE letter ADD COLUMN `text_justify` char(1) NOT NULL DEFAULT 'L' AFTER `font_size`
          });

          say $out "Added column 'letter.text_justify'";
        }

        if( !column_exists( 'letter', 'units' ) ) {
          $dbh->do(q{
              ALTER TABLE letter ADD COLUMN `units` char(20) NOT NULL DEFAULT 'INCH' AFTER `text_justify`
          });

          say $out "Added column 'letter.units'";
        }

        if( !column_exists( 'letter', 'notice_width' ) ) {
          $dbh->do(q{
              ALTER TABLE letter ADD COLUMN `notice_width` float NOT NULL DEFAULT 8.5 AFTER `units`
          });

          say $out "Added column 'letter.notice_width'";
        }

        if( !column_exists( 'letter', 'top_margin' ) ) {
          $dbh->do(q{
              ALTER TABLE letter ADD COLUMN `top_margin` float NOT NULL DEFAULT 0 AFTER `notice_width`
          });

          say $out "Added column 'letter.top_margin'";
        }

        if( !column_exists( 'letter', 'left_margin' ) ) {
          $dbh->do(q{
              ALTER TABLE letter ADD COLUMN `left_margin` float NOT NULL DEFAULT 0 AFTER `top_margin`
          });

          say $out "Added column 'letter.left_margin'";
        }
    },
};

Lines 3872-3877 CREATE TABLE `letter` ( Link Here

(-)a/installer/data/mysql/kohastructure.sql (-1 / +6 lines)
3872	`message_transport_type` varchar(20) NOT NULL DEFAULT 'email' COMMENT 'transport type for this notice',	3872	`message_transport_type` varchar(20) NOT NULL DEFAULT 'email' COMMENT 'transport type for this notice',
3873	`lang` varchar(25) NOT NULL DEFAULT 'default' COMMENT 'lang of the notice',	3873	`lang` varchar(25) NOT NULL DEFAULT 'default' COMMENT 'lang of the notice',
3874	`updated_on` timestamp NOT NULL DEFAULT current_timestamp() ON UPDATE current_timestamp() COMMENT 'last modification',	3874	`updated_on` timestamp NOT NULL DEFAULT current_timestamp() ON UPDATE current_timestamp() COMMENT 'last modification',
		3875	`font_size` int(4) NOT NULL DEFAULT 14 COMMENT 'font size used when notice is printed',
		3876	`text_justify` char(1) NOT NULL DEFAULT 'L' COMMENT 'text justification used when notice is printed',
		3877	`units` char(20) NOT NULL DEFAULT 'INCH' COMMENT 'units to use for print measurements',
		3878	`notice_width` float NOT NULL DEFAULT 8.5 COMMENT 'width of notice',
		3879	`top_margin` float NOT NULL DEFAULT 0 COMMENT 'top margin for notice',
		3880	`left_margin` float NOT NULL DEFAULT 0 COMMENT 'left margin for notice',
3875	PRIMARY KEY (`id`),	3881	PRIMARY KEY (`id`),
3876	UNIQUE KEY `letter_uniq_1` (`module`,`code`,`branchcode`,`message_transport_type`,`lang`),	3882	UNIQUE KEY `letter_uniq_1` (`module`,`code`,`branchcode`,`message_transport_type`,`lang`),
3877	KEY `message_transport_type_fk` (`message_transport_type`),	3883	KEY `message_transport_type_fk` (`message_transport_type`),
3878	-

Return to bug 33478

Line 0 Link Here

(-)a/installer/data/mysql/atomicupdate/bug_33478-add_letter_columns.pl (+58 lines)
	1	use Modern::Perl;
	2
	3	return {
	4	bug_number => "33478",
	5	description => "Customise the format of notices when they are printed",
	6	up => sub {
	7	my ($args) = @_;
	8	my ($dbh, $out) = @$args{qw(dbh out)};
	9
	10	if( !column_exists( 'letter', 'font_size' ) ) {
	11	$dbh->do(q{
	12	ALTER TABLE letter ADD COLUMN `font_size` int(4) NOT NULL DEFAULT 14 AFTER `updated_on`
	13	});
	14
	15	say $out "Added column 'letter.font_size'";
	16	}
	17
	18	if( !column_exists( 'letter', 'text_justify' ) ) {
	19	$dbh->do(q{
	20	ALTER TABLE letter ADD COLUMN `text_justify` char(1) NOT NULL DEFAULT 'L' AFTER `font_size`
	21	});
	22
	23	say $out "Added column 'letter.text_justify'";
	24	}
	25
	26	if( !column_exists( 'letter', 'units' ) ) {
	27	$dbh->do(q{
	28	ALTER TABLE letter ADD COLUMN `units` char(20) NOT NULL DEFAULT 'INCH' AFTER `text_justify`
	29	});
	30
	31	say $out "Added column 'letter.units'";
	32	}
	33
	34	if( !column_exists( 'letter', 'notice_width' ) ) {
	35	$dbh->do(q{
	36	ALTER TABLE letter ADD COLUMN `notice_width` float NOT NULL DEFAULT 8.5 AFTER `units`
	37	});
	38
	39	say $out "Added column 'letter.notice_width'";
	40	}
	41
	42	if( !column_exists( 'letter', 'top_margin' ) ) {
	43	$dbh->do(q{
	44	ALTER TABLE letter ADD COLUMN `top_margin` float NOT NULL DEFAULT 0 AFTER `notice_width`
	45	});
	46
	47	say $out "Added column 'letter.top_margin'";
	48	}
	49
	50	if( !column_exists( 'letter', 'left_margin' ) ) {
	51	$dbh->do(q{
	52	ALTER TABLE letter ADD COLUMN `left_margin` float NOT NULL DEFAULT 0 AFTER `top_margin`
	53	});
	54
	55	say $out "Added column 'letter.left_margin'";
	56	}
	57	},
	58	};