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
|
% if ( $error ) {
% $cgi->param('error', $error);
<% $cgi->redirect(popurl(2). "rate_time.cgi?". $cgi->query_string ) %>
% } else {
<% $cgi->redirect(popurl(3). "browse/rate_time.html" ) %>
% }
<%init>
my $error = '';
die "access denied"
unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
my $ratetimenum = $cgi->param('ratetimenum');
my $ratetimename = $cgi->param('ratetimename');
my $delete = $cgi->param('delete');
my %vars = $cgi->Vars;
#warn Dumper(\%vars)."\n";
my $rate_time;
my %old_ints;
if( $ratetimenum ) {
# editing
$rate_time = FS::rate_time->by_key($ratetimenum);
# make a list of existing intervals that will be deleted
foreach ($rate_time->intervals) {
$old_ints{$_->intervalnum} = $_;
}
if ( $delete ) {
$error = $rate_time->delete;
# intervals will be deleted later
}
elsif( $ratetimename ne $rate_time->ratetimename ) {
# the only case where the rate_time itself must be replaced
$rate_time->ratetimename($ratetimename);
$error = $rate_time->replace;
}
}
else { #!$ratetimenum, adding new
$rate_time = FS::rate_time->new({ ratetimename => $ratetimename });
$error = $rate_time->insert;
$ratetimenum = $rate_time->ratetimenum;
}
my @new_ints;
if(!$delete and !$error) {
foreach my $i (map { /^sd(\d+)$/ } keys(%vars)) {
my $stime = l2wtime(@vars{"sd$i", "sh$i", "sm$i", "sa$i"});
my $etime = l2wtime(@vars{"ed$i", "eh$i", "em$i", "ea$i"});
#warn "$i: $stime - $etime";
next if !defined($stime) or !defined($etime) or $etime == $stime;
# try to avoid needlessly wiping and replacing intervals every
# time this is edited.
if( %old_ints ) {
my $this_int = qsearchs('rate_time_interval',
{ ratetimenum => $ratetimenum,
stime => $stime,
etime => $etime, } );
if($this_int) {
delete $old_ints{$this_int->intervalnum};
#warn "not deleting $stime-$etime\n";
next; #$i
}
}
push @new_ints, FS::rate_time_interval->new({ ratetimenum => $ratetimenum,
stime => $stime,
etime => $etime, } );
}
}
if(!$error) {
foreach (values(%old_ints)) {
$error = $_->delete;
#warn "deleting ".$_->stime.' '.$_->etime."\n";
last if $error;
}
}
if(!$error) {
# do this last to avoid overlap errors with deleted intervals
foreach (@new_ints) {
$error = $_->insert;
#warn "inserting $stime-$etime\n";
last if $error;
}
}
sub l2wtime {
my ($d, $h, $m, $a) = @_;
$h = ($h % 12) + 24*$d + 12*$a;
$m += 60*$h;
return 60*$m
}
</%init>
|
