@@ -, +, @@ --- .../data/mysql/atomicupdate/bug_29605.pl | 22 ++++++++++++++++ installer/data/mysql/db_revs/210600003.pl | 26 +++++++++---------- 2 files changed, 35 insertions(+), 13 deletions(-) --- a/installer/data/mysql/atomicupdate/bug_29605.pl +++ a/installer/data/mysql/atomicupdate/bug_29605.pl @@ -62,6 +62,28 @@ return { $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"; }, } --- a/installer/data/mysql/db_revs/210600003.pl +++ a/installer/data/mysql/db_revs/210600003.pl @@ -14,19 +14,19 @@ use Modern::Perl; `branchtransfers` modify column `cancellation_reason` enum( - 'manual', - 'stockrotationadvance', - 'stockrotationrepatriation', - 'returntohome', - 'returntoholding', - 'rotatingcollection', - 'reserve', - 'lostreserve', - 'cancelreserve', - 'itemlost', - 'wrongtransfer' - ) - after `comments` + 'Manual', + 'StockrotationAdvance', + 'StockrotationRepatriation', + 'ReturnToHome', + 'ReturnToHolding', + 'RotatingCollection', + 'Reserve', + 'LostReserve', + 'CancelReserve', + 'ItemLost', + 'WrongTransfer' + ) DEFAULT NULL + after `reason` } ); }, --