diff --git a/lib/CXGN/ODK/Crosses.pm b/lib/CXGN/ODK/Crosses.pm index 162d881f7c..6a3bacd2fb 100644 --- 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 index a8c855b768..eda0c6b6f9 100644 --- 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;