use strict;
use warnings;

use CXGN::Page;


my $page   =  CXGN::Page->new("SOL100 sequencing project","Naama");

my $schema =  $c->dbic_schema('Bio::Chado::Schema', 'sgn_chado');


#my @species= ('Solanum lycopersicum', 'Solanum pennellii', 'Solanum pimpinellifolium',  'Solanum galapagense');

my ($cvterm) = $schema->resultset("Cv::Cvterm")->find( { name => 'sol100' } );

my @o_props;
my @organism_res;

@o_props= $cvterm->search_related('organismprops') if $cvterm;
@organism_res = @o_props->search_related('organisms') if @o_props;


my $sol=();

foreach my $o (@organism_res) {

    my $organism_id = $o->organism_id();
    $sol->{$o}= $organism_id ;
}

##########

$c->forward_to_mason_view("/sequencing/sol100.mas" , schema=>$schema, sol=>$sol );