installer/data/mysql/db_revs/210600025.pl

   1 use Modern::Perl;
   2
   3 return {
   4     bug_number => "28826",
   5     description => "A system preference FacetOrder",
   6     up => sub {
   7         my ($args) = @_;
   8         my ($dbh, $out) = @$args{qw(dbh out)};
   9
  10         $dbh->do(q{
  11             INSERT IGNORE INTO systempreferences
  12             ( variable, value, options, explanation, type ) VALUES
  13             ('FacetOrder','Alphabetical','Alphabetical|Usage','Specify the order of facets within each category','Choice')
  14         });
  15     },
  16 }