installer/data/mysql/atomicupdate/bug_19974.perl

   1 $DBversion = 'XXX';  # will be replaced by the RM
   2 if( CheckVersion( $DBversion ) ) {
   3     my ( $original_value ) = $dbh->selectrow_array(q|
   4         SELECT value FROM systempreferences WHERE variable="MarkLostItemsAsReturned"
   5     |);
   6     if ( $original_value and $original_value eq '1' ) {
   7         $dbh->do(q{
   8             UPDATE systempreferences
   9             SET type="multiple",
  10                 options="batchmod|moredetail|cronjob|additem",
  11                 value="batchmod|moredetail|cronjob|additem"
  12             WHERE variable="MarkLostItemsAsReturned"
  13         });
  14     } else {
  15         $dbh->do(q{
  16             UPDATE systempreferences
  17             SET type="multiple",
  18                 options="batchmod|moredetail|cronjob|additem",
  19                 value=""
  20             WHERE variable="MarkLostItemsAsReturned"
  21         });
  22     }
  23
  24     SetVersion( $DBversion );
  25     print "Upgrade to $DBversion done (Bug 19974 - Make MarkLostItemsAsReturned multiple)\n";
  26 }