installer/data/mysql/db_revs/220600049.pl

   1 use Modern::Perl;
   2
   3 return {
   4     bug_number => 30490,
   5     description => "Adjust FK constraint for parent item type",
   6     up => sub {
   7         my ($args) = @_;
   8         my ($dbh, $out) = @$args{qw(dbh out)};
   9         if( foreign_key_exists('itemtypes', 'itemtypes_ibfk_1') ) {
  10             $dbh->do(q{
  11 alter table itemtypes drop foreign key itemtypes_ibfk_1;
  12             });
  13         }
  14         $dbh->do(q{
  15 alter table itemtypes add foreign key itemtypes_ibfk_1 (`parent_type`) REFERENCES `itemtypes` (`itemtype`);
  16         });
  17     },
  18 };