installer/data/mysql/db_revs/220600074.pl

   1 use Modern::Perl;
   2
   3 return {
   4     bug_number => "30407",
   5     description => "Add ability to syspref UpdateNotForLoanStatusOnCheckin to show only the notforloan values message",
   6     up => sub {
   7         my ($args) = @_;
   8         my ($dbh, $out) = @$args{qw(dbh out)};
   9         # Do you stuffs here
  10         $dbh->do(q{UPDATE IGNORE systempreferences SET explanation = "This is a list of value pairs. When an item is checked in, if the not for loan value on the left matches the items not for loan value it will be updated to the right-hand value. E.g. '-1: 0' will cause an item that was set to 'Ordered' to now be available for loan. Can be used for showing only the not for loan description. E.g. '-1: ONLYMESSAGE'. Each pair of values should be on a separate line." WHERE variable = "UpdateNotForLoanStatusOnCheckin"});
  11         say $out "Update is going well so far";
  12     },
  13 };