installer/data/mysql/atomicupdate/bug_xxxxx-add-permission.perl

   1 $DBversion = 'XXX';
   2 if( CheckVersion( $DBversion ) ) {
   3     $dbh->do(q|
   4         INSERT IGNORE INTO permissions (module_bit, code, description) VALUES
   5         (4, 'edit_borrowers', 'Add, modify and view patron information'),
   6         (4, 'view_borrower_infos_from_any_libraries', 'View patron infos from any libraries');
   7     |);
   8
   9     # We are lucky here, there is nothing else to do: flags 4-borrowers did not contain sub permissions
  10
  11     SetVersion( $DBversion );
  12     print "Upgrade to $DBversion done (Bug XXXXX - Add the view_borrower_infos_from_any_libraries permission )\n";
  13 }