installer/data/mysql/atomicupdate/bug_24474.perl

   1 $DBversion = 'XXX'; # will be replaced by the RM
   2 if ( CheckVersion($DBversion) ) {
   3     $dbh->do(q{
   4         UPDATE
   5           systempreferences
   6         SET
   7           options = "batchmod|moredetail|cronjob|additem|pendingreserves|onpayment"
   8         WHERE
   9           variable = "MarkLostItemsAsReturned"
  10     });
  11
  12     my $lost_item_returned = C4::Context->preference("MarkLostItemsAsReturned");
  13     my @set = split( ",", $lost_item_returned );
  14     push @set, 'onpayment';
  15     $lost_item_returned = join( ",", @set );
  16
  17     $dbh->do(qq{
  18         UPDATE
  19           systempreferences
  20         SET
  21           value = "$lost_item_returned"
  22         WHERE
  23           variable = "MarkLostItemsAsReturned"
  24     });
  25
  26     SetVersion($DBversion);
  27     print "Upgrade to $DBversion done (Bug 24474 - Add `onpayment` option to MarkLostItemsAsReturned)\n";
  28 }