<%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) ------------------------------------------------------------------- - % foreach my $day (1..31) { ><% sprintf("%02d",$day) %> % } <%args> $menu_name=>'day' $current=>undef