mason/tools/bulk/tabs/array_tab.mas

   1
   2 <%args>
   3 $debug => ''
   4 $ug_select
   5 $output_list
   6 </%args>
   7
   8 <%perl>
   9
  10 =head2 array_search
  11
  12   Desc: sub array_search
  13   Args: n/a
  14   Ret : array tab format
  15
  16   Defines the format of the array tab using html, perl and perl dbi. Specifies
  17   information fields available for searching microarrays. Prints the debug
  18   checkbox when debug parameter is set to one.
  19
  20 =cut
  21
  22 </%perl>
  23
  24 <form name="bulkform" action="/tools/bulk/download" method="post" enctype="multipart/form-data">
  25 <br />
  26 <table summary="" cellpadding="10" width="100%"><tr><td valign="top" bgcolor="#EEEEEE" width="320">
  27
  28 <% $ug_select %>
  29 <br /><br />
  30         <br />
  31 Enter a list of identifiers or upload a file containing one identifier:<br />
  32 <table summary="" width="100%"><tr><td>
  33 <textarea name="ids" rows="5" cols="20"></textarea>
  34 </td>
  35 <td>
  36 <i>Example:</i>
  37 <pre style="border: 1px solid gray; width: 10em; height: 5em">
  38 1-1-1.2.3.4
  39 1-1-1.2.4.5
  40 1-1-1.5.3.6
  41 </pre>
  42 </td></tr></table>
  43 <br />
  44 <br />
  45 And/or upload list file: <br /><input type="file" name="file" />
  46 <br />
  47 <br />
  48
  49  </td><td valign="top" bgcolor="#EEEEEE" width="320">
  50
  51     <% $output_list %>
  52
  53 </td></tr></table>
  54
  55 %    if ( $debug eq "1" ) {
  56 %        print qq|<input type="checkbox" checked="checked" name="debug" /> print debug statements<br /><br />\n|;
  57 %    }
  58
  59 <input type="hidden" name="idType" value="microarray" />
  60         <input type="reset" />&nbsp;&nbsp;
  61 <input type="submit" value="Submit" /><br />
  62 </form>
  63