blob: 60769d4e676f943e4fa14f45413948c3b0fe58fe (
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
|
% if ( $error ) { #redirect back to edit...
% $cgi->param('error', $error);
<% $cgi->redirect(popurl(3).'edit/'.$opt{'redirect'}.'?'. $cgi->query_string) %>
% } else { #success XXX better msg talking about vacation vs. redirect all
<% include('/elements/header-popup.html', 'Rule updated') %>
<SCRIPT TYPE="text/javascript">
window.top.location.reload();
</SCRIPT>
</BODY>
</HTML>
% }
<%init>
my %opt = @_;
my %hash = (
'svcnum' => scalar($cgi->param('svcnum')),
'name' => $opt{'name'},
);
my $cgp_rule = qsearchs('cgp_rule', \%hash);
my $error = '';
if ( $cgp_rule ) { #updating
$error = $cgp_rule->delete;
}
$cgp_rule = new FS::cgp_rule { %hash, 'priority' => $opt{'priority'} };
$error ||= $cgp_rule->insert;
foreach my $condition ( @{ $opt{'conditions'} } ) {
my $cgp_rule_condition = new FS::cgp_rule_condition {
%$condition,
'rulenum' => $cgp_rule->rulenum,
};
$error ||= $cgp_rule_condition->insert;
}
foreach my $action ( @{ $opt{'actions'} } ) {
my $cgp_rule_action = new FS::cgp_rule_action {
%$action,
'rulenum' => $cgp_rule->rulenum,
};
$error ||= $cgp_rule_action->insert;
}
unless ( $error ) {
my $export_error = $cgp_rule->svc_export;
die $export_error if $export_error; #error handling sucks wrt this... shouldn't happen though
}
</%init>
|
