mason/qtl/qtl_form/pop_form.mas

   1 <%doc>
   2
   3 =head1 NAME
   4 qtl/qtl_form/pop_form.mas - a mason component for the qtl pop detail webform
   5
   6 =AUTHOR
   7 Isaak Y Tecle (iyt2@cornell.edu)
   8
   9 =cut
  10
  11 </%doc>
  12
  13 <%args>
  14
  15 $guide
  16
  17 </%args>
  18
  19 <%perl>
  20
  21 use CXGN::Phenome::Qtl::Tools;
  22 use CXGN::Page::FormattingHelpers qw | tooltipped_text |;
  23
  24 my $organism = qq| <a href="javascript:Qtl.toggleAssociateTaxon()">[Select Organism]</a> |;
  25 my $required = qq | <font color="red"><sup>*</sup></font>|;
  26 my $qtltools = CXGN::Phenome::Qtl::Tools->new();
  27
  28 my %cross_types =  $qtltools->cross_types();
  29 my $cross_options;
  30 foreach my $key (keys %cross_types) {
  31         $cross_options .= qq |<option value="$key">$cross_types{$key} |;
  32     }
  33
  34 my $parent_m = tooltipped_text('Male parent', 'format eg. Solanum lycopersicum cv moneymaker');
  35 my $parent_f = tooltipped_text('Female parent', 'format eg. Solanum lycopersicum cv micro tom');
  36
  37 </%perl>
  38
  39 <& /util/import_javascript.mas, classes => [ "CXGN.Phenome.Qtl" ] &>
  40
  41 <& /page/page_title.mas, title => "Step 1: Submit QTL Population Details" &>
  42 <&| /page/info_section.mas, title => $organism, subtitle => $guide &>
  43 <& organism_form.mas &>
  44 </&>
  45
  46 <&| /page/info_section.mas,
  47   title => "Population Details",
  48 &>
  49 <% $required %> <span><i>must be filled.</i><br/><br/></span>
  50 <form action="/phenome/qtl_load.pl" method="POST" enctype="MULTIPART/FORM-DATA">
  51      <table>
  52      <tr>
  53        <td>Cross type<% $required %></td>
  54          <td> <select name="pop_type">
  55                   <% $cross_options %>
  56              </select>
  57          </td>
  58      </tr>
  59      <tr>
  60         <td>Population name<% $required %></td>
  61         <td><input type="text" name="pop_name" size=42></td>
  62      </tr>
  63      <tr>
  64          <td>Population description<% $required %></td>
  65          <td><textarea name="pop_desc" rows = 5 cols=44></textarea></td>
  66      </tr>
  67      <tr>
  68         <td><% $parent_f%><%$required %> </td>
  69         <td><input type="text" name="pop_female_parent" size=24></td>
  70         <td><% $parent_m %><% $required %> </td>
  71         <td><input type="text" name="pop_male_parent" size=24></td>
  72      </tr>
  73      <tr>
  74         <td>Recurrent parent</td>
  75         <td><input type="text" name="pop_recurrent_parent" size=24></td>
  76         <td>Donor parent</td>
  77         <td><input type="text" name="pop_donor_parent" size=24></td>
  78      </tr>
  79      <tr>
  80       <td>Do you want to make the data public?</td>
  81       <td><input type="radio" name="pop_is_public" value="true" checked />Yes</td>
  82       <td><input type="radio" name="pop_is_public" value="false" />No</td>
  83      </tr>
  84      <tr>
  85        <td>&nbsp;</td><td>&nbsp;</td>
  86        <td><input type="hidden" name="type" value="pop_form"></td>
  87        <td><input type="submit" value="Submit"></td>
  88      </tr>
  89      </table>
  90      </form>
  91
  92 </&>