mason/search/forms/images_tab.mas

   1
   2
   3 <%doc>
   4
   5 =head1 NAME
   6
   7 /search/forms/images_tab.mas - a mason component to display the image search form
   8
   9 =head1 DESCRIPTION
  10
  11 =head1 AUTHOR
  12
  13 Lukas Mueller <lam87@cornell.edu> - based on SGN developed Perl code
  14
  15 =cut
  16
  17 </%doc>
  18
  19 <%perl>
  20
  21 use CXGN::Searches::Images;
  22
  23 my $q    = $ARGS{q};
  24 $q ||= CXGN::Searches::Images->new()->new_query();
  25
  26 </%perl>
  27
  28
  29   <table class="search_form_title"><tr><td>
  30     <span class="search_form_title">Image search</span>
  31   </td>
  32   </tr>
  33   </table>
  34
  35 <form action="/search/image_search.pl" method="get">
  36   <div class="indentedcontent">
  37
  38       <% $q->to_html() %>
  39   </div>
  40 </form>
  41
  42
  43