koha-dev.rot13.org Git - srvgit/blob - installer/data/mysql/db_revs/220600019.pl

   1 use Modern::Perl;
   2
   3 return {
   4     bug_number => 30933,
   5     description => "Add pref ListOwnerDesignated",
   6     up => sub {
   7         my ($args) = @_;
   8         my ($dbh, $out) = @$args{qw(dbh out)};
   9         $dbh->do(q{
  10 INSERT IGNORE INTO systempreferences (variable, value, options, explanation, type)
  11 VALUES ('ListOwnerDesignated', NULL, NULL, 'Designated list owner at patron deletion', 'Free')
  12         });
  13         $dbh->do(q{
  14 UPDATE systempreferences SET explanation='Defines the action on their public or shared lists when patron is deleted'
  15 WHERE variable = 'ListOwnershipUponPatronDeletion'
  16         });
  17     },
  18 };