use Modern::Perl; return { bug_number => "24434", description => "Add 'WrongTransfer' to branchtransfers.cancellation_reason enum", up => sub { my ($args) = @_; my $dbh = $args->{dbh}; # add 'wrongtransfer' to branchtransfers cancellation_reason enum $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` } ); }, }