db/00064/AddNdprotocolDescriptionChado.pm

   1 #!/usr/bin/env perl
   2
   3
   4 =head1 NAME
   5
   6  AddNdprotocolDescriptionChado
   7
   8 =head1 SYNOPSIS
   9
  10 mx-run ThisPackageName [options] -H hostname -D dbname -u username [-F]
  11
  12 this is a subclass of L<CXGN::Metadata::Dbpatch>
  13 see the perldoc of parent class for more details.
  14
  15 =head1 DESCRIPTION
  16
  17 Add a description column to the Chado table nd_protocol
  18 This change will go into Chado version 1.4. See GMOD git repo for details.
  19 DO NOT ALTER CHADO TABLES WITHOUT COORDINATING WITH GMOD FIRST!
  20
  21 This subclass uses L<Moose>. The parent class uses L<MooseX::Runnable>
  22
  23 =head1 AUTHOR
  24
  25  Naama Menda<nm249@cornell.edu>
  26
  27 =head1 COPYRIGHT & LICENSE
  28
  29 Copyright 2010 Boyce Thompson Institute for Plant Research
  30
  31 This program is free software; you can redistribute it and/or modify
  32 it under the same terms as Perl itself.
  33
  34 =cut
  35
  36
  37 package AddNdprotocolDescriptionChado;
  38
  39 use Moose;
  40 extends 'CXGN::Metadata::Dbpatch';
  41
  42
  43 has '+description' => ( default => <<'' );
  44 patch for adding descriotion column to chado table nd_protocol. This change will go into Chado version 1.4. DO NOT ALTER CHADO TABLES WITHOUT COORDINATING FIRST WITH GMOD!
  45
  46
  47 sub patch {
  48     my $self=shift;
  49
  50     print STDOUT "Executing the patch:\n " .   $self->name . ".\n\nDescription:\n  ".  $self->description . ".\n\nExecuted by:\n " .  $self->username . " .";
  51
  52     print STDOUT "\nChecking if this db_patch was executed before or if previous db_patches have been executed.\n";
  53
  54     print STDOUT "\nExecuting the SQL commands.\n";
  55
  56     $self->dbh->do(<<EOSQL);
  57 --do your SQL here
  58 --
  59
  60 ALTER TABLE nd_protocol ADD COLUMN description varchar(255) DEFAULT null;
  61
  62
  63 EOSQL
  64
  65 print "You're done!\n";
  66 }
  67
  68
  69 ####
  70 1; #
  71 ####