installer/data/mysql/atomicupdate/bug31503.pl

   1 use Modern::Perl;
   2
   3 return {
   4     bug_number  => 31503,
   5     description => "Change patron_consent.type",
   6     up          => sub {
   7         my ($args) = @_;
   8         my ( $dbh, $out ) = @$args{qw(dbh out)};
   9
  10         $dbh->do(
  11             q{ALTER TABLE `patron_consent` MODIFY `type` tinytext COLLATE utf8mb4_unicode_ci DEFAULT NULL COMMENT 'consent type, could be custom type'}
  12         );
  13         say $out "Changed column 'patron_consent.type'";
  14     },
  15 };