installer/data/mysql/db_revs/210600003.pl

   1 use Modern::Perl;
   2
   3 {
   4     bug_number => "24434",
   5     description => "Add 'WrongTransfer' to branchtransfers.cancellation_reason enum",
   6     up => sub {
   7         my ($args) = @_;
   8         my $dbh = $args->{dbh};
   9
  10         # add 'wrongtransfer' to branchtransfers cancellation_reason enum
  11         $dbh->do(
  12             q{
  13                 alter table
  14                     `branchtransfers`
  15                 modify column
  16                     `cancellation_reason` enum(
  17                         'manual',
  18                         'stockrotationadvance',
  19                         'stockrotationrepatriation',
  20                         'returntohome',
  21                         'returntoholding',
  22                         'rotatingcollection',
  23                         'reserve',
  24                         'lostreserve',
  25                         'cancelreserve',
  26                         'itemlost',
  27                         'wrongtransfer'
  28                     )
  29                 after `comments`
  30               }
  31         );
  32     },
  33 }