installer/data/mysql/atomicupdate/bug_37216.pl

   1 use Modern::Perl;
   2 use Koha::Installer::Output qw(say_warning say_failure say_success say_info);
   3
   4 return {
   5     bug_number  => "37216",
   6     description => "Ensure EmailFieldSelection options are correct",
   7     up          => sub {
   8         my ($args) = @_;
   9         my ( $dbh, $out ) = @$args{qw(dbh out)};
  10
  11         # Fix options field on EmailFieldSelection
  12         $dbh->do(
  13             q{ UPDATE systempreferences SET options = 'email|emailpro|B_email' WHERE variable = 'EmailFieldSelection' }
  14         );
  15
  16         # Clear invalid value from EmailFieldSelection
  17         $dbh->do(
  18             q{ UPDATE systempreferences SET value = '' WHERE variable = 'EmailFieldSelection' AND value='email|emailpro|B_email' }
  19         );
  20
  21         say_success( $out, "Updated system preference 'EmailFieldSelection'" );
  22     },
  23 };