installer/data/mysql/db_revs/211200016.pl

   1 use Modern::Perl;
   2
   3 return {
   4     bug_number => "30060",
   5     description => "Update user_permissions to add primary key and remove null option from code column",
   6     up => sub {
   7         my ($args) = @_;
   8         my ($dbh, $out) = @$args{qw(dbh out)};
   9         unless(
  10             primary_key_exists( 'user_permissions', 'borrowernumber') &&
  11             primary_key_exists( 'user_permissions', 'module_bit' ) &&
  12             primary_key_exists( 'user_permissions', 'code')
  13         ){
  14             $dbh->do(q{
  15                 ALTER TABLE user_permissions DROP INDEX IF EXISTS `PRIMARY`
  16             });
  17             say $out "Dropped any previously created primary key";
  18
  19             $dbh->do(q{ALTER TABLE user_permissions ADD COLUMN temp SERIAL PRIMARY KEY});
  20             $dbh->do(q{DELETE t1 FROM user_permissions t1 INNER JOIN user_permissions t2 WHERE t1.temp < t2.temp AND t1.borrowernumber = t2.borrowernumber AND t1.module_bit = t2.module_bit AND t1.code = t2.code});
  21             $dbh->do(q{ALTER TABLE user_permissions DROP COLUMN temp});
  22             say $out "Removed any duplicate rows";
  23
  24             if ( foreign_key_exists('user_permissions', 'user_permissions_ibfk_2') ) {
  25                 $dbh->do(q{
  26                     ALTER TABLE user_permissions DROP FOREIGN KEY user_permissions_ibfk_2
  27                 });
  28             }
  29             $dbh->do(q{
  30                 ALTER TABLE user_permissions ADD CONSTRAINT PK_borrowernumber_module_code PRIMARY KEY (borrowernumber,module_bit,code)
  31             });
  32             $dbh->do(q{
  33                 ALTER TABLE user_permissions
  34                 ADD CONSTRAINT `user_permissions_ibfk_2` FOREIGN KEY (`module_bit`, `code`) REFERENCES `permissions` (`module_bit`, `code`) ON DELETE CASCADE ON UPDATE CASCADE;
  35             });
  36             say $out "Added a primary key on user_permissions on borrowernumber, module_bit, code";
  37         }
  38     },
  39 };