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
|
<% include( 'elements/process.html',
'table' => 'cgp_rule',
'redirect' => $redirect,
'process_o2m' => [
{
'table' => 'cgp_rule_condition',
'fields' => [qw( conditionname op params )],
},
{
'table' => 'cgp_rule_action',
'fields' => [qw( action params )],
},
],
'noerror_callback' => sub {
my( $cgi, $object ) = @_;
my $error = $object->svc_export;
#shit, not a good place for error handling :/
die $error if $error;
},
)
%>
<%init>
my $redirect = sub {
my($cgi, $new) = @_;
my $svcnum = $new->svcnum;
popurl(3)."browse/cgp_rule.html?svcnum=$svcnum;rulenum=";
};
</%init>
|