7 my $qtl_tool = CXGN::Phenome::Qtl::Tools->new();
8 my $links = $qtl_tool->browse_traits();
9 my @qtl_pops = $qtl_tool->has_qtl_data();
13 foreach my $qtl_pop (@qtl_pops)
15 my $is_public = $qtl_pop->get_privacy_status();
16 my $owner_id = $qtl_pop->get_sp_person_id();
17 my $user_type = $c->user->get_object->get_user_type() if $c->user;
18 my $user_id = $c->user->get_object->get_sp_person_id if $c->user;
20 if ( $is_public || $user_type eq 'curator' || $user_id == $owner_id )
22 my $pop_id = $qtl_pop->get_population_id();
23 my $pop_name = $qtl_pop->get_name();
24 $pop_links .= qq |<a href="/qtl/population/$pop_id">$pop_name</a> <br /> |;
30 <div class="container-fluid">
32 <&| /page/info_section.mas, title => 'Search QTLs', collapsible=>1, collapsed=>0, subtitle=>'[<a href="/qtl/form">Submit QTL Data</a>] [<a href="/qtl/submission/guide">Submission Guide</a>] [<a href="/qtl/search/help">Search Help</a>]' &>
34 <form action= "/qtl/search/results" method="post">
35 <table align=center cellpadding=20px>
38 <h4>Browse Traits With QTLs: <% $links %></h4>
46 <td><h5>Search QTLs With Trait Name:</h5></td>
49 <td><input class="form-control" type="text" name="trait" >
50 <br/><input class="btn btn-primary" type="submit" value="Search"></td>
54 <table align=center cellpadding=20px>
57 <h4>Browse QTL Populations:</h4><br/><% $pop_links %>