installer/data/mysql/atomicupdate/bug_12133.pl

   1 use Modern::Perl;
   2
   3 return {
   4     bug_number => "12133",
   5     description => "Add system preference ChildNeedsGuarantor",
   6     up => sub {
   7         my ($args) = @_;
   8         my ($dbh, $out) = @$args{qw(dbh out)};
   9
  10         $dbh->do( q{
  11             INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type)
  12             VALUES('ChildNeedsGuarantor', 0, 'If ON, a child patron must have a guarantor when adding the patron.', '', 'YesNo');
  13         } );
  14
  15         say $out "Added new system preference 'ChildNeedsGuarantor')\n";
  16     },
  17 };