5 description => "Add a designated owner for shared and public lists at patron deletion",
8 my ($dbh, $out) = @$args{qw(dbh out)};
10 INSERT IGNORE INTO systempreferences (variable, value, options, explanation, type)
11 VALUES ('ListOwnerDesignated', NULL, NULL, 'Designated list owner at patron deletion', 'Free')
14 say $out "Added new system preference 'ListOwnerDesignated'";
17 UPDATE systempreferences SET explanation='Defines the action on their public or shared lists when patron is deleted'
18 WHERE variable = 'ListOwnershipUponPatronDeletion'
21 say $out "Updated system preference 'ListOwnershipUponPatronDeletion'";