blob: 6949d8c249e68053971b57d1d0b2c40c465a1b69 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
<SELECT NAME="<%$Name%>">
<OPTION VALUE="-1"
%unless ($Default) {
SELECTED
%}
>Don't refresh this page.</OPTION>
%foreach my $value (@refreshevery) {
<OPTION VALUE="<%$value%>"
% if ($value == $Default) {
SELECTED
% }
>Refresh this page every <%$value/60%> minutes.
%}
</SELECT>
<%INIT>
my @refreshevery = qw(120 300 600 1200 3600 7200);
</%INIT>
<%ARGS>
$Name => undef
$Default => undef
</%ARGS>
|
