1 <%doc>-------------------------------------------------------------------
2 yearMenu: Display a pulldown menu of years.
5 $menu_name - Name of menu, defaults to 'year'
6 $current - Selected year value
7 $min - Minimum year appearing in menu; defaults to current year
8 $max - Maximum year appearing in menus; defaults to $min plus 10.
9 -------------------------------------------------------------------</%doc>
11 <select name="<% $menu_name %>">
13 % foreach my $year ($min..$max) {
14 <option value="<% $year %>" <% $year==$current ? "selected" : "" %>>
21 $current=>(localtime)[5]+1900
22 $min=>(localtime)[5]+1900-1