installer/data/mysql/atomicupdate/bug_22868.perl

   1 $DBversion = 'XXX'; # will be replaced by the RM
   2 if( CheckVersion( $DBversion ) ) {
   3     $dbh->do(q{
   4         INSERT IGNORE INTO `userflags` (`bit`, `flag`, `flagdesc`, `defaulton`)
   5         VALUES (12, 'suggestions', 'Suggestion management', 0)
   6     });
   7
   8     $dbh->do(q{
   9         UPDATE permissions SET module_bit=12
  10         WHERE code="suggestions_manage"
  11     });
  12
  13     $dbh->do(q{
  14         UPDATE borrowers SET flags = flags + (1<<12) WHERE flags & (1 << 11)
  15     });
  16
  17     SetVersion( $DBversion );
  18     print "Upgrade to $DBversion done (Bug 22868 - Move suggestions_manage subpermission out of acquisition permission)\n";
  19 }