installer/data/mysql/atomicupdate/bug20128_add_permission_for_advanced_editor.perl

   1 $DBversion = 'XXX';
   2 if( CheckVersion( $DBversion ) ) {
   3     $dbh->do(q{
   4         INSERT IGNORE permissions (module_bit, code, description)
   5         VALUES
   6         (9,'advanced_editor','Use the advanced cataloging editor')
   7     });
   8     if( C4::Context->preference('EnableAdvancedCatalogingEditor') ){
   9         $dbh->do(q{
  10             INSERT INTO user_permissions (borrowernumber, module_bit, code)
  11             SELECT borrowernumber, 9, 'advanced_editor' FROM borrowers WHERE borrowernumber IN (SELECT DISTINCT borrowernumber FROM user_permissions WHERE code = 'edit_catalogue');
  12         });
  13     }
  14     SetVersion( $DBversion );
  15     print "Upgrade to $DBversion done (Bug 20128: Add permission for Advanced Cataloging Editor)\n";
  16 }