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
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
|
<% include("/elements/header.html", { title => "$action Time Period" }) %>
<% include("/elements/menubar.html",
'Rate plans' => "${p}browse/rate.cgi",
) %>
<BR>
<% include('/elements/error.html') %>
<BR>
<FORM METHOD="POST" ACTION="<% "${p}edit/process/rate_time.cgi" %>">
<INPUT TYPE="hidden" NAME="ratetimenum" VALUE="<% $ratetimenum %>">
<% ntable('#cccccc',2) %>
<TABLE>
<TR>
<TH ALIGN="right">Period name</TH>
<TD><INPUT TYPE="text" NAME="ratetimename" VALUE="<% $rate_time ? $rate_time->ratetimename : '' %>"></TD>
</TR>
</TABLE>
<TABLE>
<TR>
<TH COLSPAN=4 ALIGN="center">Start</TH>
<TH COLSPAN=4 ALIGN="center">End</TH>
</TR>
<TR id="mytemplate">
% for my $pre (qw(s e)) {
% for my $f (qw(d h m a)) { # day, hour, minute, am/pm
<TD>
<SELECT NAME="<%$pre.$f%>">
% my $i = 0;
% while ($i < @{ $choices{$f} }) {
<OPTION VALUE="<%$choices{$f}[$i]%>">
% $i++;
<%$choices{$f}[$i]%></OPTION>
% $i++;
% }
</SELECT>
</TD>
% } #$f
% } #$pre
</TR>
<& /elements/auto-table.html,
'template_row' => 'mytemplate',
'data' => \@data,
'fieldorder' => [qw(sd sh sm sa ed eh em ea)],
&>
</TABLE>
<INPUT TYPE="submit" VALUE="<% $rate_time ? 'Apply changes' : 'Add period'%>">
</FORM>
<BR>
<A HREF="<% "${p}edit/process/rate_time.cgi?ratetimenum=$ratetimenum;delete=1" %>">Delete this period</A>
<% include('/elements/footer.html') %>
<%init>
my $ratetimenum = ($cgi->keywords)[0] || $cgi->param('ratetimenum') || '';
my $action = 'Add';
my $rate_time;
my @data = ();
my $day = [ 0 => 'Sun',
1 => 'Mon',
2 => 'Tue',
3 => 'Wed',
4 => 'Thu',
5 => 'Fri',
6 => 'Sat', ];
my $hour = [ map( {$_, sprintf('%02d',$_) } 12, 1..11 )];
my $min = [ map( {$_, sprintf('%02d',$_) } 0,30 )];
my $ampm = [ 0 => 'AM', 1 => 'PM' ];
my %choices = (
'd' => $day,
'h' => $hour,
'm' => $min,
'a' => $ampm,
);
if($ratetimenum) {
$action = 'Edit';
$rate_time = qsearchs('rate_time', {ratetimenum => $ratetimenum})
or die "ratetimenum $ratetimenum not found";
if($cgi->param('error')) {
my %vars = $cgi->Vars;
foreach my $i (sort {$a <=> $b } map { /^sd(\d+)$/ } keys(%vars)) {
push @data, [ @vars{"sd$i", "sh$i", "sm$i", "sa$i",
"ed$i", "eh$i", "em$i", "ea$i"} ];
}
}
else {
foreach my $interval ($rate_time->intervals) {
push @data, [ map { int($_/86400) % 7,
(int($_/3600) % 12 || 12),
int($_/60) % 60,
int($_/43200) % 2, }
( $interval->stime, $interval->etime )
];
}
}
}
</%init>
|
