1 files changed, 45 insertions, 0 deletions
diff --git a/httemplate/elements/tr-select-from_to.html b/httemplate/elements/tr-select-from_to.html
new file mode 100644
index 000000000..100381234
--- /dev/null
+++ b/httemplate/elements/tr-select-from_to.html
@@ -0,0 +1,45 @@
+<TR>
+  <TD ALIGN="right"><% mt('From: ') |h %></TD>
+  <TD>
+    <& /elements/select-month_year.html,
+                  'prefix'        => 'start',
+                  'selected_mon'  => $smonth,
+                  'selected_year' => $syear,
+                  %hash,
+    &>
+  </TD>
+</TR>
+
+<TR>
+  <TD ALIGN="right"><% mt('To: ') |h %></TD>
+  <TD>
+    <& /elements/select-month_year.html,
+                  'prefix'        => 'end',
+                  'selected_mon'  => $emonth,
+                  'selected_year' => $eyear,
+                  %hash,
+    &>
+  </TD>
+</TR>
+<%init>
+  my ($curmon,$curyear) = (localtime(time))[4,5];
+  
+  #find first month
+  my $syear = 1899+$curyear;
+  my $smonth = $curmon+1;
+  
+  #want 12 month by default, not 13
+  $smonth++;
+  if ( $smonth > 12 ) { $smonth-=12; $syear++ }
+  
+  #find last month
+  my $eyear = 1900+$curyear;
+  my $emonth = $curmon+1;
+
+  my %hash = (
+    'show_month_abbr' => 1,
+    'start_year'      => '1999',
+    'end_year'        => '2012', #haha, well...
+     @_,
+  );
+</%init>