diff options
author | cvs2git <cvs2git> | 2002-08-12 06:17:10 +0000 |
---|---|---|
committer | cvs2git <cvs2git> | 2002-08-12 06:17:10 +0000 |
commit | 160be29a0dc62e79a4fb95d2ab8c0c7e5996760e (patch) | |
tree | 94ebadb17321b138fd7bfd9a5c379eec97c5d328 /rt/webrt/Elements/monthMenu | |
parent | 3ef62a0570055da710328937e7f65dbb2c027c62 (diff) |
This commit was manufactured by cvs2svn to create branch 'BESTPRACTICAL'.
Diffstat (limited to 'rt/webrt/Elements/monthMenu')
-rwxr-xr-x | rt/webrt/Elements/monthMenu | 37 |
1 files changed, 0 insertions, 37 deletions
diff --git a/rt/webrt/Elements/monthMenu b/rt/webrt/Elements/monthMenu deleted file mode 100755 index b9a71d3f9..000000000 --- a/rt/webrt/Elements/monthMenu +++ /dev/null @@ -1,37 +0,0 @@ -<%doc>------------------------------------------------------------------- -monthMenu: Display a pulldown menu of months - -Optional arguments: -$menu_name - Name of menu, defaults to 'month' -$current - Selected month value (1 to 12) -$format - Choice of month labels: - 'full' (January, February, ...) - 'short' (Jan, Feb, ...) - 'numeric' (1, 2, ...) - Defaults to 'full'. The format only affects appearance; the menu - values are always numeric. --------------------------------------------------------------------</%doc> - -<select name="<% $menu_name %>"> -<option value="-1">- -% foreach my $month (1..12) { -<option value="<% $month %>" <% $month==$current ? "selected" : "" %>> -% if ($format eq 'full') { -<% $month_names[$month-1] %> -% } elsif ($format eq 'short') { -<% substr($month_names[$month-1],0,3) %> -% } elsif ($format eq 'numeric') { -<% sprintf("%02d",$month) %> -% } -% } -</select> - -<%init> -my @month_names = qw(January February March April May June July August September October November December); -</%init> - -<%args> -$menu_name=>'month' -$current=>undef -$format=>'full' -</%args> |