diff options
Diffstat (limited to 'httemplate/edit/cgp_rule.html')
-rw-r--r-- | httemplate/edit/cgp_rule.html | 102 |
1 files changed, 0 insertions, 102 deletions
diff --git a/httemplate/edit/cgp_rule.html b/httemplate/edit/cgp_rule.html deleted file mode 100644 index 41275aba7..000000000 --- a/httemplate/edit/cgp_rule.html +++ /dev/null @@ -1,102 +0,0 @@ -<% include('elements/edit.html', - 'name_singular' => 'rule', - 'table' => 'cgp_rule', - 'labels' => { 'rulenum' => 'Rule', - 'name' => 'Name', - 'comment' => 'Comment', - 'priority' => 'Priority', - 'ruleconditionnum' => 'Condition', - 'ruleactionnum' => 'Action', - }, - 'fields' => [ 'name', - 'comment', - { 'field' => 'priority', - 'type' => 'select', - 'options' => [ 0 .. 10 ], - 'labels' => { 0 => 'Inactive' }, - }, - { 'field' => 'svcnum', 'type' => 'hidden', }, - { 'type' => 'tablebreak-tr-title', - 'value' => 'Conditions', - }, - { 'field' => 'ruleconditionnum', - 'type' => 'select-cgp_rule_condition', - 'o2m_table' => 'cgp_rule_condition', - 'm2_label' => 'Condition', - 'm2_error_callback' => $m2_error_callback_cond, - }, - { 'type' => 'tablebreak-tr-title', - 'value' => 'Actions', - }, - { 'field' => 'ruleactionnum', - 'type' => 'select-cgp_rule_action', - 'o2m_table' => 'cgp_rule_action', - 'm2_label' => 'Action', - 'm2_error_callback' => $m2_error_callback_action, - }, - ], - 'new_callback' => sub { my( $cgi, $cgp_rule ) = @_; - $cgp_rule->svcnum( $cgi->param('svcnum') ); - }, - #'viewall_url' => $viewall_url, - 'menubar' => [], - ) -%> -<%init> - -my %opt = @_; - -#my $viewall_url = $p. "browse/$table.html?svcnum=$svcnum"; - -my $m2_error_callback_cond = sub { - my($cgi, $object) = @_; - - my @fields = qw( conditionname op params ); - my @gfields = ( '', map "_$_", @fields ); - - map { - if ( /^ruleconditionnum(\d+)$/ ) { - my $num = $1; - if ( grep $cgi->param("ruleconditionnum$num$_"), @gfields ) { - my $x = new FS::cgp_rule_condition { - 'ruleconditionnum' => $cgi->param("ruleconditionnum$num"), - map { $_ => scalar($cgi->param("ruleconditionnum${num}_$_")) } @fields, - }; - $x; - } else { - (); - } - } else { - (); - } - } - $cgi->param; -}; - -my $m2_error_callback_action = sub { - my($cgi, $object) = @_; - - my @fields = qw( action params ); - my @gfields = ( '', map "_$_", @fields ); - - map { - if ( /^ruleactionnum(\d+)$/ ) { - my $num = $1; - if ( grep $cgi->param("ruleactionnum$num$_"), @gfields ) { - my $x = new FS::cgp_rule_action { - 'ruleactionnum' => $cgi->param("ruleactionnum$num"), - map { $_ => scalar($cgi->param("ruleactionnum${num}_$_")) } @fields, - }; - $x; - } else { - (); - } - } else { - (); - } - } - $cgi->param; - -}; - -</%init> |