Attachment #124063 for bug #27947

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




use Modern::Perl;

return {
    bug_number => "27947",
    description => "Add authorised values list in article requests cancellation",
    up => sub {
        my ($args) = @_;
        my ($dbh, $out) = @$args{qw(dbh out column_exists)};
        # Do you stuffs here
        $dbh->do(q{
            INSERT IGNORE INTO authorised_value_categories( category_name, is_system )
            VALUES ('AR_CANCELLATION', 0)
        });
        # Print useful stuff here
        say $out "Add AR_CANCELLATION category for authorised values";

        $dbh->do(q{
            ALTER TABLE `article_requests` ADD COLUMN `cancellation_reason` varchar(80) COLLATE utf8mb4_unicode_ci DEFAULT NULL COMMENT 'optional authorised value AR_CANCELLATION' AFTER `urls`
        }) unless column_exists('article_requests', 'cancellation_reason');

        # Print useful stuff here
        say $out "Add cancellation_reason column in article_requests table";
    },
}




        - category: "HOLD_CANCELLATION"
          authorised_value: "DAMAGED"
          lib: "Item was found to be too damaged to fill hold"

        # article request cancellations
        - category: "AR_CANCELLATION"
          authorised_value: "NOT_FOUND"
          lib: "Item could not be located on shelves"

        - category: "AR_CANCELLATION"
          authorised_value: "DAMAGED"
          lib: "Item was found to be too damaged to fill article request"

Lines 753-758 CREATE TABLE `article_requests` ( Link Here

(-)a/installer/data/mysql/kohastructure.sql (+1 lines)
753	`notes` mediumtext COLLATE utf8mb4_unicode_ci DEFAULT NULL,	753	`notes` mediumtext COLLATE utf8mb4_unicode_ci DEFAULT NULL,
754	`format` enum('PHOTOCOPY', 'SCAN') NOT NULL DEFAULT 'PHOTOCOPY',	754	`format` enum('PHOTOCOPY', 'SCAN') NOT NULL DEFAULT 'PHOTOCOPY',
755	`urls` MEDIUMTEXT,	755	`urls` MEDIUMTEXT,
		756	`cancellation_reason` varchar(80) COLLATE utf8mb4_unicode_ci DEFAULT NULL COMMENT 'optional authorised value AR_CANCELLATION',
756	`created_on` timestamp NULL DEFAULT NULL COMMENT 'Be careful with two timestamps in one table not allowing NULL',	757	`created_on` timestamp NULL DEFAULT NULL COMMENT 'Be careful with two timestamps in one table not allowing NULL',
757	`updated_on` timestamp NOT NULL DEFAULT current_timestamp() ON UPDATE current_timestamp(),	758	`updated_on` timestamp NOT NULL DEFAULT current_timestamp() ON UPDATE current_timestamp(),
758	PRIMARY KEY (`id`),	759	PRIMARY KEY (`id`),

Lines 18-24 INSERT IGNORE INTO authorised_value_categories( category_name, is_system ) Link Here

(-)a/installer/data/mysql/mandatory/auth_val_cat.sql (-2 / +2 lines)
18	('PAYMENT_TYPE', 0),	18	('PAYMENT_TYPE', 0),
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		23
23	INSERT IGNORE INTO authorised_value_categories( category_name, is_system )	24	INSERT IGNORE INTO authorised_value_categories( category_name, is_system )
24	VALUES	25	VALUES
25	-

Return to bug 27947

Lines 300-302 tables: Link Here

(-)a/installer/data/mysql/en/optional/auth_val.yml (+9 lines)
300	- category: "HOLD_CANCELLATION"	300	- category: "HOLD_CANCELLATION"
301	authorised_value: "DAMAGED"	301	authorised_value: "DAMAGED"
302	lib: "Item was found to be too damaged to fill hold"	302	lib: "Item was found to be too damaged to fill hold"
		303
		304	# article request cancellations
		305	- category: "AR_CANCELLATION"
		306	authorised_value: "NOT_FOUND"
		307	lib: "Item could not be located on shelves"
		308
		309	- category: "AR_CANCELLATION"
		310	authorised_value: "DAMAGED"
		311	lib: "Item was found to be too damaged to fill article request"

Line 0 Link Here

(-)a/installer/data/mysql/atomicupdate/bug_27947.pl (+24 lines)
	1	use Modern::Perl;
	2
	3	return {
	4	bug_number => "27947",
	5	description => "Add authorised values list in article requests cancellation",
	6	up => sub {
	7	my ($args) = @_;
	8	my ($dbh, $out) = @$args{qw(dbh out column_exists)};
	9	# Do you stuffs here
	10	$dbh->do(q{
	11	INSERT IGNORE INTO authorised_value_categories( category_name, is_system )
	12	VALUES ('AR_CANCELLATION', 0)
	13	});
	14	# Print useful stuff here
	15	say $out "Add AR_CANCELLATION category for authorised values";
	16
	17	$dbh->do(q{
	18	ALTER TABLE `article_requests` ADD COLUMN `cancellation_reason` varchar(80) COLLATE utf8mb4_unicode_ci DEFAULT NULL COMMENT 'optional authorised value AR_CANCELLATION' AFTER `urls`
	19	}) unless column_exists('article_requests', 'cancellation_reason');
	20
	21	# Print useful stuff here
	22	say $out "Add cancellation_reason column in article_requests table";
	23	},
	24	}