installer/data/mysql/db_revs/220600019.pl

   1 use Modern::Perl;
   2
   3 return {
   4     bug_number => 30933,
   5     description => "Add a designated owner for shared and public lists at patron deletion",
   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
  14         say $out "Added new system preference 'ListOwnerDesignated'";
  15
  16         $dbh->do(q{
  17 UPDATE systempreferences SET explanation='Defines the action on their public or shared lists when patron is deleted'
  18 WHERE variable = 'ListOwnershipUponPatronDeletion'
  19         });
  20
  21         say $out "Updated system preference 'ListOwnershipUponPatronDeletion'";
  22     },
  23 };