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