Merge pull request #5230 from solgenomics/topic/open_pollinated
[sgn.git] / db / 00144 / AddImagingEventGeoParamCoordinatesUTMWGSCvterm.pm
blob1041b28f37474c3c215e67520645f4fd73d942c7
1 #!/usr/bin/env perl
4 =head1 NAME
6 AddImagingEventGeoParamCoordinatesUTMWGSCvterm
8 =head1 SYNOPSIS
10 mx-run AddImagingEventGeoParamCoordinatesUTMWGSCvterm [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.
15 =head1 DESCRIPTION
16 This patch adds cvterm for an imaging event's geoparam coordinates for GeoTIFFs pixel to geo-coordinate position.
17 This subclass uses L<Moose>. The parent class uses L<MooseX::Runnable>
19 =head1 AUTHOR
21 =head1 COPYRIGHT & LICENSE
23 Copyright 2010 Boyce Thompson Institute for Plant Research
25 This program is free software; you can redistribute it and/or modify
26 it under the same terms as Perl itself.
28 =cut
31 package AddImagingEventGeoParamCoordinatesUTMWGSCvterm;
33 use Moose;
34 use Bio::Chado::Schema;
35 use Try::Tiny;
36 extends 'CXGN::Metadata::Dbpatch';
39 has '+description' => ( default => <<'' );
40 This patch adds cvterm for an imaging event's geoparam coordinates for GeoTIFFs pixel to geo-coordinate position.
42 has '+prereq' => (
43 default => sub {
44 [],
49 sub patch {
50 my $self=shift;
52 print STDOUT "Executing the patch:\n " . $self->name . ".\n\nDescription:\n ". $self->description . ".\n\nExecuted by:\n " . $self->username . " .";
54 print STDOUT "\nChecking if this db_patch was executed before or if previous db_patches have been executed.\n";
56 print STDOUT "\nExecuting the SQL commands.\n";
57 my $schema = Bio::Chado::Schema->connect( sub { $self->dbh->clone } );
60 print STDERR "INSERTING CV TERMS...\n";
62 my $terms = {
63 'project_property' => [
64 'drone_run_geoparam_coordinates_type',
68 foreach my $t (keys %$terms){
69 foreach (@{$terms->{$t}}){
70 $schema->resultset("Cv::Cvterm")->create_with({
71 name => $_,
72 cv => $t
73 });
77 print "You're done!\n";
81 ####
82 1; #
83 ####