installer/data/mysql/db_revs/220600007.pl

   1 use Modern::Perl;
   2
   3 return {
   4     bug_number  => "29129",
   5     description => "Update the DisplayClearnScreenButton system pref to allow for a choice between ISSUESLIP and ISSUEQSLIP",
   6     up => sub {
   7         my ($args) = @_;
   8         my ($dbh, $out) = @$args{qw(dbh out)};
   9
  10         $dbh->do(q{
  11             UPDATE systempreferences
  12             SET
  13                 options = 'no|issueslip|issueqslip',
  14                    type = 'Choice',
  15                   value = CASE value
  16                               WHEN 1 THEN 'issueslip'
  17                               ELSE 'no'
  18                           END
  19             WHERE variable = 'DisplayClearScreenButton';
  20         });
  21     },
  22 };