mason/kinases/clones/order.mas

   1
   2 <& "/page/page_title.mas", title => "TOKN Clone Request" &>
   3
   4 % #The form
   5 <% $ENV{REMOTE_ADDR} %>
   6 <form method="POST" action= "/kinases/clones/submit" name = "contactForm">
   7 <div style="margin-left: 30px">
   8 <table summary="" border="0" cellpadding="5" cellspacing="5">
   9
  10 % #Uses Perl to print out the fields with similar HTML tags
  11 <%perl>
  12 my $infoNeeded = ["name", "email", "address", "organization"];
  13 my $defaultVal = {
  14    "name" => $name,
  15    "email" => $email,
  16    "address" => $address,
  17    "organization" => $organization
  18    };
  19
  20 </%perl>
  21
  22 % foreach my $info_category (@$infoNeeded) {
  23 <tr><td align="left" valign="top">
  24 <strong><% ucfirst $info_category %>*</strong>
  25 </td>
  26 % # If user did not fill out a field and submitted the form, then it will
  27 % # show in red letters above the field this field is needed above it.
  28 % # Otherwise, the form is filled out normally.
  29 % unless ($filled{$info_category}) {
  30 </td>
  31 <td style = "color:red; font-size: 10px;" align = "left" valign = "top">
  32 <% ucfirst $info_category %> is required
  33 <br />
  34 % } else {
  35 <td align = "left" valign = "top">
  36 %}
  37 <input type="text" size="50" value="<% $$defaultVal{$info_category} |h%>"
  38                                 name="<% $info_category %>" />
  39 </td></tr>
  40 % }
  41
  42
  43
  44 % # Body uses a text_area so it is hardcoded.
  45 % # Like the other inputs, it will display a red message above saying
  46 % # "Message needed."
  47 <tr><td align="left" valign="top">
  48 <strong>Clone list and Notes*</strong>
  49 </td>
  50 % unless ($filled{body}) {
  51 <td style = "color:red; font-size: 10px;" align = "left" valign = "top">
  52 Message is required
  53 <br />
  54 % } else {
  55 <td align = "left" valign = "top">
  56 % }
  57 <textarea cols="57" rows="7" name="body"><% $body |h%></textarea>
  58 </td></tr>
  59
  60
  61 <tr><td><strong>Are you human?*</strong><br />What is <% $contact_form_human_question %>?</td>
  62
  63 <td>
  64 % if (!$contact_form_human_answer_correct) {
  65 <font style = "color:red; font-size: 10px;" align = "left" valign = "top">
  66 % if (!$contact_form_human_answer) {
  67 Prove that you are a human being is required<br /></font>
  68 % } else {
  69 Either you are not human - or you are not very good at math! ;-)</font>
  70 <br />
  71 %    }
  72 % }
  73   <input type="text" value="" name="contact_form_human_answer" size="4" />
  74
  75 </td></tr>
  76
  77
  78 <tr><td colspan="2" align="center" valign="middle" style = "color:red; font-size: 90%; font-style:italic;">
  79 fields marked with <% '"*"' |h %> are required
  80 </td></tr>
  81
  82
  83 <tr><td colspan="2" align="center" valign="middle">
  84 <input type="submit" value="Submit" />
  85 </td></tr>
  86 </table>
  87 </div>
  88 </form>
  89
  90
  91 <%args>
  92   $name                     => ''
  93   $email                    => ''
  94   $address                  => ''
  95   $organization             => ''
  96   $body                     => ''
  97   %filled                   => (name => 1, email => 1, address => 1, organization => 1, body => 1)
  98   $contact_form_human_answer => ''
  99   $contact_form_human_question => ''
 100   $contact_form_human_answer_correct => 0
 101 </%args>
 102 <%once>
 103   use CXGN::Page::FormattingHelpers 'info_table_html';
 104 </%once>