mason/search/forms/expr_platform.mas

   1
   2
   3 <%doc>
   4
   5 =head2 expr_platform_search_form
   6
   7   Desc: canned html for the SGN expr_platform search form
   8   Args: CXGN::Page object
   9   Ret : string of HTML that will make an expr_platform search form
  10
  11 =cut
  12 </%doc>
  13
  14 <%args>
  15 $q => undef
  16 </%args>
  17
  18 <%perl>
  19 $q ||= CXGN::Searches::GemPlatform->new()->new_query();
  20 </%perl>
  21
  22   <table class="search_form_title"><tr><td>
  23     <span class="search_form_title">Expression search by platform</span>
  24   </td>
  25   </tr>
  26   </table>
  27
  28 <form action="/search/gem_platform_search.pl" method="get">
  29   <div class="indentedcontent">
  30       <% $q->to_html() %>
  31   </div>
  32 </form>
  33