mason/qtl/population/index.mas

   1 <%args>
   2
   3 $pop
   4 $guideline
   5 $referer
   6 $userid
   7 $heatmap_file => ''
   8 $corre_table_file => ''
   9 $traits_list
  10 $trait_acronym_pairs
  11 $owner_page
  12 $show_data
  13 $phenotype_download
  14 $genotype_download
  15 $corre_download
  16 $acronym_download
  17 $genetic_map
  18
  19 </%args>
  20
  21 <%perl>
  22
  23 my $title = $pop->get_name();
  24 my $submit_new = qq | <a href="/qtl/form">Submit QTL population</a> |;
  25
  26 </%perl>
  27
  28 <& /page/page_title.mas,
  29    title => $title
  30 &>
  31
  32 <&| /page/info_section.mas,
  33   collapsible => 1,
  34   collapsed   => 0,
  35   title       => "Population summary",
  36   subtitle    => $submit_new
  37   &>
  38
  39   <& summary.mas,
  40      pop        => $pop,
  41      owner_page => $owner_page,
  42   &>
  43
  44 </&>
  45
  46 % if ($show_data)
  47 %{
  48   <&| /page/info_section.mas,
  49     collapsible => 1,
  50     collapsed   => 0,
  51     title       => "Set statistical parameters"
  52   &>
  53   <& stat_tools.mas,
  54     pop_id     => $pop->get_population_id(),
  55     guideline  => $guideline,
  56     referer    => $referer,
  57     userid     => $userid
  58  &>
  59  </&>
  60
  61  <& traits_list.mas,
  62    traits_list => $traits_list
  63  &>
  64
  65  <& correlation.mas,
  66    pop                 => $pop,
  67    trait_acronym_pairs => $trait_acronym_pairs
  68  &>
  69
  70 <& genetic_map.mas,
  71    genetic_map => $genetic_map
  72 &>
  73
  74 <& download.mas,
  75    phenotype_download => $phenotype_download,
  76    genotype_download  => $genotype_download,
  77    corre_download     => $corre_download,
  78    acronym_download   => $acronym_download,
  79 &>
  80
  81 <&| /page/info_section.mas,
  82     collapsible => 1,
  83     collapsed   => 1,
  84     title       => "Trait acronyms"
  85   &>
  86
  87   <& /page/columnar_table.mas,
  88      headings     => ["Trait name", "Acronym"],
  89      data         => $trait_acronym_pairs,
  90      __alt_freq   => 2,
  91      __alt_width  => 1,
  92      __alt_offset => 3,
  93      __align      => 'l'
  94     &>
  95
  96 </&>
  97
  98 %}
  99 % else
 100 %{
 101  <& data_access.mas,
 102     pop        => $pop,
 103     owner_page => $owner_page
 104  &>
 105 %}