<% $Label %> > % for ($n=0;$n<=$#Statistics::months;$n++){ % if ($$refMonth eq $n){ % $selected ="selected"; % }else { % $selected =""; % } <% $selected %> ><% $Statistics::months[$n] %> %} > % for ($n=1;$n<=31;$n++){ % if ($$refDay == $n ){ % $selected ="selected"; % }else { % $selected =""; % } <% $selected %> ><% $n %> % } > % % for ($n=0;$n <= scalar @Statistics::years-1;$n++){ % if ($Statistics::years[$n] == $$refYear){ % $selected ="selected"; % }else{ % $selected =""; % } <% $selected %> ><% $Statistics::years[$n] %> % } <%args> $Label => undef $refMonth => undef $nameMonth => undef $refDay => undef $nameDay => undef $refYear => undef $nameYear => undef <%init> use RTx::Statistics; my $n; my $selected;