<% 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="; };