installer/data/mysql/db_revs/211200042.pl

   1 use Modern::Perl;
   2
   3 return {
   4     bug_number => 30572,
   5     description => "Adjust search_marc_to_field.sort",
   6     up => sub {
   7         my ($args) = @_;
   8         my ($dbh, $out) = @$args{qw(dbh out)};
   9         # Do you stuffs here
  10         $dbh->do(q|
  11 ALTER TABLE search_marc_to_field MODIFY COLUMN sort tinyint(1) DEFAULT 1 NOT NULL COMMENT 'Sort defaults to 1 (Yes) and creates sort fields in the index, 0 (no) will prevent this';
  12         |);
  13     },
  14 };