mason/search/forms/directory_tab.mas

   1
   2 <%doc>
   3
   4 =head1 NAME
   5
   6 directory_tab.mas - mason component that displays the search form for the directory search.
   7
   8 =head1 DESCRIPTION
   9
  10 takes an optional CXGN::Searches::People object as a parameter named q.
  11
  12 =head1 AUTHOR
  13
  14 Lukas Mueller <lam87@cornell.edu>
  15
  16 =cut
  17
  18 </%doc>
  19
  20 <%perl>
  21
  22     my $q    = $ARGS{q};
  23     $q ||= CXGN::Searches::People->new()->new_query();
  24
  25
  26 </%perl>
  27
  28   <table class="search_form_title"><tr><td>
  29     <span class="search_form_title">Directory search</span>
  30   </td>
  31   </tr>
  32   </table>
  33
  34 <form action="/solpeople/people_search.pl" method="get">
  35   <div class="indentedcontent">
  36     <% $q->to_html() %>
  37   </div>
  38 </form>