From f59561af0ed202f4b636e739a521bf19a3626e5e Mon Sep 17 00:00:00 2001 From: titima15 Date: Mon, 14 Oct 2024 15:39:24 -0400 Subject: [PATCH] removed old files --- db/00187/AddAutogeneratedNamesCvterm.pm | 89 ------------------------------- db/00187/AddDefaultPlantMaterialCvterm.pm | 85 ----------------------------- db/00187/AddTrackingRelatedCvterms.pm | 88 ------------------------------ 3 files changed, 262 deletions(-) delete mode 100644 db/00187/AddAutogeneratedNamesCvterm.pm delete mode 100644 db/00187/AddDefaultPlantMaterialCvterm.pm delete mode 100644 db/00187/AddTrackingRelatedCvterms.pm diff --git a/db/00187/AddAutogeneratedNamesCvterm.pm b/db/00187/AddAutogeneratedNamesCvterm.pm deleted file mode 100644 index 13371fab13..0000000000 --- a/db/00187/AddAutogeneratedNamesCvterm.pm +++ /dev/null @@ -1,89 +0,0 @@ -#!/usr/bin/env perl - -=head1 NAME - -AddAutogeneratedNamesCvterm.pm - -=head1 SYNOPSIS - -mx-run ThisPackageName [options] -H hostname -D dbname -u username [-F] - -this is a subclass of L -see the perldoc of parent class for more details. - -=head1 DESCRIPTION -This patch adds autogenerated_name_ids_json project_property cvterm. -This subclass uses L. The parent class uses L - -=head1 AUTHOR - -Titima Tantikanjana - -=head1 COPYRIGHT & LICENSE - -Copyright 2010 Boyce Thompson Institute for Plant Research - -This program is free software; you can redistribute it and/or modify -it under the same terms as Perl itself. - -=cut - - -package AddAutogeneratedNamesCvterm; - -use Moose; -use Bio::Chado::Schema; -use Try::Tiny; -extends 'CXGN::Metadata::Dbpatch'; - - -has '+description' => ( default => <<'' ); -Description of this patch goes here - -has '+prereq' => ( - default => sub { - [], - }, - - ); - -sub patch { - my $self=shift; - - print STDOUT "Executing the patch:\n " . $self->name . ".\n\nDescription:\n ". $self->description . ".\n\nExecuted by:\n " . $self->username . " ."; - - print STDOUT "\nChecking if this db_patch was executed before or if previous db_patches have been executed.\n"; - - print STDOUT "\nExecuting the SQL commands.\n"; - my $schema = Bio::Chado::Schema->connect( sub { $self->dbh->clone } ); - - - print STDERR "INSERTING CV TERMS...\n"; - - my $terms = { - 'project_property' => [ - 'autogenerated_name_metadata', - 'autogenerated_name_prefix' - ], - 'stock_property' => [ - 'tracking_transformation_json', - ] - }; - - foreach my $t (keys %$terms){ - foreach (@{$terms->{$t}}){ - $schema->resultset("Cv::Cvterm")->create_with({ - name => $_, - cv => $t - }); - } - } - - print "You're done!\n"; - -} - - -#### -1; # -#### diff --git a/db/00187/AddDefaultPlantMaterialCvterm.pm b/db/00187/AddDefaultPlantMaterialCvterm.pm deleted file mode 100644 index 5fc1fb2da6..0000000000 --- a/db/00187/AddDefaultPlantMaterialCvterm.pm +++ /dev/null @@ -1,85 +0,0 @@ -#!/usr/bin/env perl - -=head1 NAME - -AddDefaultPlantMaterialCvterm.pm - -=head1 SYNOPSIS - -mx-run ThisPackageName [options] -H hostname -D dbname -u username [-F] - -this is a subclass of L -see the perldoc of parent class for more details. - -=head1 DESCRIPTION -This patch adds default_plant_material project_property cvterm. -This subclass uses L. The parent class uses L - -=head1 AUTHOR - -Titima Tantikanjana - -=head1 COPYRIGHT & LICENSE - -Copyright 2010 Boyce Thompson Institute for Plant Research - -This program is free software; you can redistribute it and/or modify -it under the same terms as Perl itself. - -=cut - - -package AddDefaultPlantMaterialCvterm; - -use Moose; -use Bio::Chado::Schema; -use Try::Tiny; -extends 'CXGN::Metadata::Dbpatch'; - - -has '+description' => ( default => <<'' ); -Description of this patch goes here - -has '+prereq' => ( - default => sub { - [], - }, - - ); - -sub patch { - my $self=shift; - - print STDOUT "Executing the patch:\n " . $self->name . ".\n\nDescription:\n ". $self->description . ".\n\nExecuted by:\n " . $self->username . " ."; - - print STDOUT "\nChecking if this db_patch was executed before or if previous db_patches have been executed.\n"; - - print STDOUT "\nExecuting the SQL commands.\n"; - my $schema = Bio::Chado::Schema->connect( sub { $self->dbh->clone } ); - - - print STDERR "INSERTING CV TERMS...\n"; - - my $terms = { - 'project_property' => [ - 'default_plant_material', - ], - }; - - foreach my $t (keys %$terms){ - foreach (@{$terms->{$t}}){ - $schema->resultset("Cv::Cvterm")->create_with({ - name => $_, - cv => $t - }); - } - } - - print "You're done!\n"; - -} - - -#### -1; # -#### diff --git a/db/00187/AddTrackingRelatedCvterms.pm b/db/00187/AddTrackingRelatedCvterms.pm deleted file mode 100644 index 539b0dbcc7..0000000000 --- a/db/00187/AddTrackingRelatedCvterms.pm +++ /dev/null @@ -1,88 +0,0 @@ -#!/usr/bin/env perl - -=head1 NAME - -AddTrackingRelatedCvterms.pm - -=head1 SYNOPSIS - -mx-run ThisPackageName [options] -H hostname -D dbname -u username [-F] - -this is a subclass of L -see the perldoc of parent class for more details. - -=head1 DESCRIPTION -This patch adds progress_of project_relationship cvterm and completed_metadata stock_property cvterm. -This subclass uses L. The parent class uses L - -=head1 AUTHOR - -Titima Tantikanjana - -=head1 COPYRIGHT & LICENSE - -Copyright 2010 Boyce Thompson Institute for Plant Research - -This program is free software; you can redistribute it and/or modify -it under the same terms as Perl itself. - -=cut - - -package AddTrackingRelatedCvterms; - -use Moose; -use Bio::Chado::Schema; -use Try::Tiny; -extends 'CXGN::Metadata::Dbpatch'; - - -has '+description' => ( default => <<'' ); -Description of this patch goes here - -has '+prereq' => ( - default => sub { - [], - }, - - ); - -sub patch { - my $self=shift; - - print STDOUT "Executing the patch:\n " . $self->name . ".\n\nDescription:\n ". $self->description . ".\n\nExecuted by:\n " . $self->username . " ."; - - print STDOUT "\nChecking if this db_patch was executed before or if previous db_patches have been executed.\n"; - - print STDOUT "\nExecuting the SQL commands.\n"; - my $schema = Bio::Chado::Schema->connect( sub { $self->dbh->clone } ); - - - print STDERR "INSERTING CV TERMS...\n"; - - my $terms = { - 'project_relationship' => [ - 'progress_of' - ], - 'stock_property' => [ - 'completed_metadata', - ] - }; - - foreach my $t (keys %$terms){ - foreach (@{$terms->{$t}}){ - $schema->resultset("Cv::Cvterm")->create_with({ - name => $_, - cv => $t - }); - } - } - - print "You're done!\n"; - -} - - -#### -1; # -#### -- 2.11.4.GIT