installer/data/mysql/db_revs/210600004.pl

   1 use Modern::Perl;
   2
   3 return {
   4     bug_number => "15788",
   5     description => "Split edit_borrowers permission",
   6     up => sub {
   7         my ($args) = @_;
   8         my $dbh = $args->{dbh};
   9
  10         $dbh->do(q{
  11             INSERT IGNORE permissions (module_bit, code, description)
  12             VALUES
  13             (4, 'delete_borrowers', 'Delete borrowers')
  14         });
  15
  16         $dbh->do(q{
  17             INSERT IGNORE INTO user_permissions (borrowernumber, module_bit, code)
  18             SELECT borrowernumber, 4, 'delete_borrowers' FROM user_permissions WHERE code = 'edit_borrowers'
  19         });
  20     },
  21 }