installer/data/mysql/db_revs/220600030.pl

   1 use Modern::Perl;
   2
   3 return {
   4     bug_number  => "31274",
   5     description => "OPACSuggestionAutoFill must be 1 or 0",
   6     up => sub {
   7         my ($args) = @_;
   8         my ($dbh, $out) = @$args{qw(dbh out)};
   9
  10         $dbh->do(q{
  11             UPDATE systempreferences
  12             SET value = CASE
  13                             WHEN value='no'  THEN 0
  14                             WHEN value='yes' THEN 1
  15                             ELSE value
  16                         END
  17             WHERE variable='OPACSuggestionAutoFill';
  18         });
  19     },
  20 };