10 mx-run ThisPackageName [options] -H hostname -D dbname -u username [-F]
12 this is a subclass of L<CXGN::Metadata::Dbpatch>
13 see the perldoc of parent class for more details.
17 Add null option for allele mode_of_inheritance field
18 This subclass uses L<Moose>. The parent class uses L<MooseX::Runnable>
22 Naama Menda<nm249@cornell.edu>
24 =head1 COPYRIGHT & LICENSE
26 Copyright 2011 Boyce Thompson Institute for Plant Research
28 This program is free software; you can redistribute it and/or modify
29 it under the same terms as Perl itself.
34 package AlterAlleleMode
;
37 extends
'CXGN::Metadata::Dbpatch';
42 my $name = __PACKAGE__
;
43 print "dbpatch name is ':" . $name . "\n\n";
44 my $description = 'Altering allele mode_of_inheritance check constraint';
45 my @previous_requested_patches = (); #ADD HERE
48 $self->description($description);
49 $self->prereq(\
@previous_requested_patches);
54 print STDOUT
"Executing the patch:\n " . $self->name . ".\n\nDescription:\n ". $self->description . ".\n\nExecuted by:\n " . $self->username . " .";
56 print STDOUT
"\nChecking if this db_patch was executed before or if previous db_patches have been executed.\n";
58 print STDOUT
"\nExecuting the SQL commands.\n";
59 $self->dbh->do(<<EOSQL);
62 SET search_path TO phenome;
63 alter table allele drop CONSTRAINT chk_allele_mode_of_inheritance;
65 alter table allele add CONSTRAINT chk_allele_mode_of_inheritance check (mode_of_inheritance::text = 'recessive'::text OR mode_of_inheritance::text = 'partially dominant'::text OR mode_of_inheritance::text = 'dominant'::text OR mode_of_inheritance::text = '') ;
69 print "You're done!\n";