installer/data/mysql/db_revs/221103002.pl

   1 use Modern::Perl;
   2
   3 return {
   4     bug_number => "22428",
   5     description => "Changes the datatype of the field value column to text to stop input being cut short",
   6     up => sub {
   7         my ($args) = @_;
   8         my ($dbh, $out) = @$args{qw(dbh out)};
   9
  10         $dbh->do(q{
  11             ALTER TABLE marc_modification_template_actions MODIFY COLUMN field_value text;
  12         });
  13
  14         say $out "Amended dataype of column field_value in table marc_modification_template_actions.";
  15     },
  16 };