installer/data/mysql/db_revs/220600065.pl

   1 use Modern::Perl;
   2
   3 return {
   4     bug_number => "25426",
   5     description => "Add new syspref CircControlReturnsBranch",
   6     up => sub {
   7         my ($args) = @_;
   8         my ($dbh, $out) = @$args{qw(dbh out)};
   9
  10         $dbh->do(q{
  11             INSERT IGNORE INTO systempreferences VALUES (
  12               'CircControlReturnsBranch','ItemHomeLibrary','ItemHomeLibrary|ItemHoldingLibrary|CheckInLibrary',
  13               'Specify the agency that controls the return policy','Choice'
  14             )
  15         });
  16
  17         say $out "Added new system preference 'CircControlReturnsBranch'";
  18     },
  19 };