installer/data/mysql/atomicupdate/bug_35169.pl

   1 use Modern::Perl;
   2
   3 return {
   4     bug_number  => "35169",
   5     description => "Add new system preferences for longoverdue.pl borrowers categories",
   6     up          => sub {
   7         my ($args) = @_;
   8         my ( $dbh, $out ) = @$args{qw(dbh out)};
   9
  10         # Do you stuffs here
  11         $dbh->do(
  12             q{
  13             INSERT IGNORE INTO systempreferences (variable, value, options, explanation, type) VALUES
  14             ('DefaultLongOverdueBorrowerCategories', '', NULL, 'Set the borrower categories that will be listed when longoverdue cronjob is executed', 'choice'),
  15             ('DefaultLongOverdueSkipBorrowerCategories', '', NULL, 'Set the borrower categories that will not be listed when longoverdue cronjob is executed', 'choice');
  16         }
  17         );
  18
  19         # sysprefs
  20         say $out "Added new system preference 'DefaultLongOverdueBorrowerCategories'";
  21         say $out "Added new system preference 'DefaultLongOverdueSkipBorrowerCategories'";
  22     },
  23 };