Attachment #173321 for bug #38222

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




use Modern::Perl;
use Koha::Installer::Output qw(say_warning say_failure say_success say_info);

return {
    bug_number  => "38222",
    description => "Add cancellation reasons to bookings",
    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
                ('BOOKING_CANCELLATION', 1)
            }
        );
        say_success( $out, "Added BOOKING_CANCELLATION AV category" );
    },
};

Lines 101-103 INSERT IGNORE INTO authorised_value_categories (category_name, is_system) Link Here

(-)a/installer/data/mysql/mandatory/auth_val_cat.sql (-1 / +5 lines)
101	VALUES	101	VALUES
102	('TICKET_STATUS', 1),	102	('TICKET_STATUS', 1),
103	('TICKET_RESOLUTION', 1);	103	('TICKET_RESOLUTION', 1);
104	-	104
		105	-- For bookings
		106	INSERT IGNORE INTO authorised_value_categories (category_name, is_system)
		107	VALUES
		108	('BOOKING_CANCELLATION', 1);

Return to bug 38222

Line 0 Link Here

(-)a/installer/data/mysql/atomicupdate/bug_38222.pl (+20 lines)
	1	use Modern::Perl;
	2	use Koha::Installer::Output qw(say_warning say_failure say_success say_info);
	3
	4	return {
	5	bug_number => "38222",
	6	description => "Add cancellation reasons to bookings",
	7	up => sub {
	8	my ($args) = @_;
	9	my ( $dbh, $out ) = @$args{qw(dbh out)};
	10
	11	$dbh->do(
	12	q{
	13	INSERT IGNORE INTO authorised_value_categories (category_name, is_system)
	14	VALUES
	15	('BOOKING_CANCELLATION', 1)
	16	}
	17	);
	18	say_success( $out, "Added BOOKING_CANCELLATION AV category" );
	19	},
	20	};