rt/html/RTx/Statistics/Elements/DateSelectRow

   1     <td class="collection-as-table" style="text-align:left;"><% $Label %></td>
   2     <td class="collection-as-table" style="text-align:left;">
   3       <select name=<% $nameMonth %> >
   4 % for ($n=0;$n<=$#Statistics::months;$n++){
   5 %       if ($$refMonth eq $n){
   6 %               $selected ="selected";
   7 %       }else {
   8 %               $selected ="";
   9 %       }
  10           <option  value=<% $n %> <% $selected %> ><% $Statistics::months[$n] %></option>
  11 %}
  12       </select>
  13     </td>
  14     <td class="collection-as-table" style="text-align:left;">
  15       <select name=<% $nameDay %> >
  16 % for ($n=1;$n<=31;$n++){
  17 %       if ($$refDay == $n ){
  18 %               $selected ="selected";
  19 %       }else {
  20 %               $selected ="";
  21 %       }
  22             <option  value=<% $n %> <% $selected %> ><% $n  %></option>
  23 % }
  24       </select>
  25     </td>
  26     <td class="collection-as-table" style="text-align:left;">
  27           <select name=<% $nameYear %> >
  28 %
  29 % for ($n=0;$n <= scalar @Statistics::years-1;$n++){
  30 %       if ($Statistics::years[$n] == $$refYear){
  31 %               $selected ="selected";
  32 %       }else{
  33 %               $selected ="";
  34 %       }
  35           <option value=<% $Statistics::years[$n] %> <% $selected %> ><% $Statistics::years[$n] %></option>
  36 % }
  37           </select>
  38     </td>
  39
  40
  41 <%args>
  42 $Label => undef
  43 $refMonth => undef
  44 $nameMonth => undef
  45 $refDay => undef
  46 $nameDay => undef
  47 $refYear => undef
  48 $nameYear => undef
  49 </%args>
  50 <%init>
  51 use RTx::Statistics;
  52 my $n;
  53 my $selected;
  54
  55 </%init>