Merge pull request #4106 from solgenomics/topic/wishlist

Fixed saving cross info from ona
solgenomics · May 27, 2022 · fa71ea5 · fa71ea5
2 parents 2d4b9a4 + 25da9d7
commit fa71ea5
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 4 deletions.
diff --git a/lib/CXGN/ODK/Crosses.pm b/lib/CXGN/ODK/Crosses.pm
@@ -862,6 +862,7 @@ sub save_ona_cross_info {
                             cross_name => $cross_name_key,
                             key => $info_type,
                             value => $value,
+                            data_type => 'crossing_metadata_json'
                         });
                         $cross_add_info->add_info();
                     }

diff --git a/lib/CXGN/Pedigree/AddCrossInfo.pm b/lib/CXGN/Pedigree/AddCrossInfo.pm
@@ -6,7 +6,7 @@ CXGN::Pedigree::AddCrossInfo - a module to add cross information such as date of
 
 =head1 USAGE
 
-my $cross_add_info = CXGN::Pedigree::AddCrossInfo->new({ chado_schema => $chado_schema, cross_name => $cross_name, key => $info_type, value => $value} );
+my $cross_add_info = CXGN::Pedigree::AddCrossInfo->new({ chado_schema => $chado_schema, cross_name => $cross_name, key => $info_type, value => $value, data_type => $data_type} );
 $cross_add_info->add_info();
 
 =head1 DESCRIPTION
@@ -36,9 +36,9 @@ has 'chado_schema' => (
 		required => 1,
 	);
 has 'cross_name' => (isa =>'Str', is => 'rw', predicate => 'has_cross_name', required => 1,);
-has 'key' => (isa =>'Str', is => 'rw', predicate => 'has_key',);
-has 'value' => (isa =>'Str', is => 'rw', predicate => 'has_value',);
-has 'data_type' => (isa =>'Str', is => 'rw', predicate => 'has_type',);
+has 'key' => (isa =>'Str', is => 'rw', predicate => 'has_key', required => 1,);
+has 'value' => (isa =>'Str', is => 'rw', predicate => 'has_value', required => 1,);
+has 'data_type' => (isa =>'Str', is => 'rw', predicate => 'has_type', required => 1,);
 
 sub add_info {
     my $self = shift;