Attachment #146912 for bug #33004

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




use Modern::Perl;

return {
    bug_number => "33004",
    description => "Add VENDOR_TYPE authorised value category",
    up => sub {
        my ($args) = @_;
        my ($dbh, $out) = @$args{qw(dbh out)};
        $dbh->do(q{INSERT IGNORE INTO authorised_value_categories (category_name, is_system) VALUES ('VENDOR_TYPE', 1)});
        say $out "Added new authorised value category 'VENDOR_TYPE'";
    },
};

Lines 19-25 INSERT IGNORE INTO authorised_value_categories( category_name, is_system ) Link Here

(-)a/installer/data/mysql/mandatory/auth_val_cat.sql (-2 / +2 lines)
19	('PA_CLASS', 0),	19	('PA_CLASS', 0),
20	('HOLD_CANCELLATION', 0),	20	('HOLD_CANCELLATION', 0),
21	('ROADTYPE', 0),	21	('ROADTYPE', 0),
22	('AR_CANCELLATION', 0);	22	('AR_CANCELLATION', 0),
		23	('VENDOR_TYPE', 1);
23		24
24	INSERT IGNORE INTO authorised_value_categories( category_name, is_system )	25	INSERT IGNORE INTO authorised_value_categories( category_name, is_system )
25	VALUES	26	VALUES
26	-

Return to bug 33004

Line 0 Link Here

(-)a/installer/data/mysql/atomicupdate/bug_33004_VENDOR_TYPE_AV.pl (+12 lines)
	1	use Modern::Perl;
	2
	3	return {
	4	bug_number => "33004",
	5	description => "Add VENDOR_TYPE authorised value category",
	6	up => sub {
	7	my ($args) = @_;
	8	my ($dbh, $out) = @$args{qw(dbh out)};
	9	$dbh->do(q{INSERT IGNORE INTO authorised_value_categories (category_name, is_system) VALUES ('VENDOR_TYPE', 1)});
	10	say $out "Added new authorised value category 'VENDOR_TYPE'";
	11	},
	12	};