mason/breeders_toolbox/breeding_program.mas

   1
   2 <%args>
   3 $program
   4 $user => undef
   5 </%args>
   6
   7 <%perl>
   8 my $delete_flag = 0;
   9 if ($user && $user->check_roles("curator")) {
  10     $delete_flag = 1;
  11 }
  12
  13 my $program_name = $program->get_name;
  14 my $program_id   = $program->get_program_id;
  15 </%perl>
  16
  17
  18 <& /page/page_title.mas, title=>"Breeding Program $program_name" &>
  19
  20
  21
  22 <&| /page/info_section.mas, id=>"program_trials", title => "Trials" , collapsible=>1, collapsed=>0, hide_if_empty=>1 &>
  23     <& /breeders_toolbox/program/trials.mas, program_id => $program_id &>
  24 </&>
  25
  26 <&| /page/info_section.mas, id=>"program_accessions", title=>"Accessions", collapsible=>1, collapsed=>0, hide_if_empty=>1 &>
  27   <& /breeders_toolbox/program/program_accessions.mas, program_id => $program_id &>
  28 </&>
  29
  30 <&| /page/info_section.mas, id=>"program_traits_assayed", title => "Traits assayed" , collapsible=>1, collapsed=>0, hide_if_empty=>1 &>
  31   <& /breeders_toolbox/program/traits.mas, program_id => $program_id, collapse_phenotypes_section => 0  &>
  32 </&>
  33
  34