Need a unique gift idea?
A Pastebin account makes a great Christmas gift
SHARE
TWEET

Untitled

a guest May 23rd, 2018 63 Never
Upgrade to PRO!
ENDING IN00days00hours00mins00secs
 
  1. use strict;
  2. use warnings;
  3.  
  4. use CXGN::Page;
  5.  
  6.  
  7. my $page   =  CXGN::Page->new("SOL100 sequencing project","Naama");
  8.  
  9. my $schema =  $c->dbic_schema('Bio::Chado::Schema', 'sgn_chado');
  10.  
  11.  
  12. #my @species= ('Solanum lycopersicum', 'Solanum pennellii', 'Solanum pimpinellifolium',  'Solanum galapagense');
  13.  
  14. my ($cvterm) = $schema->resultset("Cv::Cvterm")->find( { name => 'sol100' } );
  15.  
  16. my @o_props;
  17. my @organism_res;
  18.  
  19. @o_props= $cvterm->search_related('organismprops') if $cvterm;
  20. @organism_res = @o_props->search_related('organisms') if @o_props;
  21.  
  22.  
  23. my $sol=();
  24.  
  25. foreach my $o (@organism_res) {
  26.  
  27.     my $organism_id = $o->organism_id();
  28.     $sol->{$o}= $organism_id ;
  29. }
  30.  
  31. ##########
  32.  
  33. $c->forward_to_mason_view("/sequencing/sol100.mas" , schema=>$schema, sol=>$sol );
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top