From 3ef62a0570055da710328937e7f65dbb2c027c62 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Mon, 12 Aug 2002 06:17:09 +0000
Subject: import rt 2.0.14

---
 rt/webrt/Elements/monthMenu | 37 +++++++++++++++++++++++++++++++++++++
 1 file changed, 37 insertions(+)
 create mode 100755 rt/webrt/Elements/monthMenu

(limited to 'rt/webrt/Elements/monthMenu')

diff --git a/rt/webrt/Elements/monthMenu b/rt/webrt/Elements/monthMenu
new file mode 100755
index 000000000..b9a71d3f9
--- /dev/null
+++ b/rt/webrt/Elements/monthMenu
@@ -0,0 +1,37 @@
+<%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>
-- 
cgit v1.2.1