rt/webrt/Elements/dayMenu

   1 <%doc>-------------------------------------------------------------------
   2 dayMenu: Display a pulldown menu of days of the month (1 to 31)
   3
   4 Optional arguments:
   5 $menu_name - Name of menu, defaults to 'day'
   6 $current - Selected day value (1 to 31)
   7 -------------------------------------------------------------------</%doc>
   8
   9 <select name="<% $menu_name %>">
  10 <option value="-1">-
  11 % foreach my $day (1..31) {
  12 <option value="<% $day %>" <% $day==$current ? "selected" : "" %>><% sprintf("%02d",$day) %>
  13 % }
  14 </select>
  15
  16 <%args>
  17 $menu_name=>'day'
  18 $current=>undef
  19 </%args>