Attachment #128445 for bug #29605

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




        $dbh->do(q{ALTER TABLE search_marc_map MODIFY `marc_type` enum('marc21','unimarc') NOT NULL COMMENT 'what MARC type this map is for'});
        say $out "Ensure NOT NULL on search_marc_map.marc_type";

        $dbh->do(
            q{
                alter table
                    `branchtransfers`
                modify column
                    `cancellation_reason` enum(
                        'Manual',
                        'StockrotationAdvance',
                        'StockrotationRepatriation',
                        'ReturnToHome',
                        'ReturnToHolding',
                        'RotatingCollection',
                        'Reserve',
                        'LostReserve',
                        'CancelReserve',
                        'ItemLost',
                        'WrongTransfer'
                    ) DEFAULT NULL
                after `reason`
              }
        );
        say $out "Ensure branchtransfers.cancellation_reason enum values are uppercase";
    },

}




                    `branchtransfers`
                modify column
                    `cancellation_reason` enum(
                        'Manual',
                        'StockrotationAdvance',
                        'StockrotationRepatriation',
                        'ReturnToHome',
                        'ReturnToHolding',
                        'RotatingCollection',
                        'Reserve',
                        'LostReserve',
                        'CancelReserve',
                        'ItemLost',
                        'WrongTransfer'
                    ) DEFAULT NULL
                after `reason`
              }
        );
    },
- 

Return to bug 29605

Lines 62-67 return { Link Here

(-)a/installer/data/mysql/atomicupdate/bug_29605.pl (+22 lines)
62	$dbh->do(q{ALTER TABLE search_marc_map MODIFY `marc_type` enum('marc21','unimarc') NOT NULL COMMENT 'what MARC type this map is for'});	62	$dbh->do(q{ALTER TABLE search_marc_map MODIFY `marc_type` enum('marc21','unimarc') NOT NULL COMMENT 'what MARC type this map is for'});
63	say $out "Ensure NOT NULL on search_marc_map.marc_type";	63	say $out "Ensure NOT NULL on search_marc_map.marc_type";
64		64
		65	$dbh->do(
		66	q{
		67	alter table
		68	`branchtransfers`
		69	modify column
		70	`cancellation_reason` enum(
		71	'Manual',
		72	'StockrotationAdvance',
		73	'StockrotationRepatriation',
		74	'ReturnToHome',
		75	'ReturnToHolding',
		76	'RotatingCollection',
		77	'Reserve',
		78	'LostReserve',
		79	'CancelReserve',
		80	'ItemLost',
		81	'WrongTransfer'
		82	) DEFAULT NULL
		83	after `reason`
		84	}
		85	);
		86	say $out "Ensure branchtransfers.cancellation_reason enum values are uppercase";
65	},	87	},
66		88
67	}	89	}

Lines 14-32 use Modern::Perl; Link Here

(-)a/installer/data/mysql/db_revs/210600003.pl (-14 / +13 lines)
14	`branchtransfers`	14	`branchtransfers`
15	modify column	15	modify column
16	`cancellation_reason` enum(	16	`cancellation_reason` enum(
17	'manual',	17	'Manual',
18	'stockrotationadvance',	18	'StockrotationAdvance',
19	'stockrotationrepatriation',	19	'StockrotationRepatriation',
20	'returntohome',	20	'ReturnToHome',
21	'returntoholding',	21	'ReturnToHolding',
22	'rotatingcollection',	22	'RotatingCollection',
23	'reserve',	23	'Reserve',
24	'lostreserve',	24	'LostReserve',
25	'cancelreserve',	25	'CancelReserve',
26	'itemlost',	26	'ItemLost',
27	'wrongtransfer'	27	'WrongTransfer'
28	)	28	) DEFAULT NULL
29	after `comments`	29	after `reason`
30	}	30	}
31	);	31	);
32	},	32	},
33	-