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