db/00007/MetadataDelete.pm

   1 package MetadataDelete;
   2 use Moose;
   3 extends 'CXGN::Metadata::Dbpatch';
   4
   5 sub patch {
   6
   7     shift->dbh->do(<<EOSQL);
   8
   9 SET search_path=metadata,phenome;
  10
  11     GRANT delete ON  md_metadata TO web_usr;
  12     DROP TABLE phenotype_term;
  13     DROP TABLE phenome.phenotype;
  14 EOSQL
  15
  16     print "Done.\n";
  17     return 1;
  18 }
  19
  20 1;