my $m2_error_callback_cond = sub {
my($cgi, $object) = @_;
- my @fields = qw( condition op params );
+ my @fields = qw( conditionname op params );
my @gfields = ( '', map "_$_", @fields );
map {
my $num = $1;
if ( grep $cgi->param("ruleconditionnum$num$_"), @gfields ) {
my $x = new FS::cgp_rule_condition {
- 'ruleconditionnum' => $cgi->param("ruleconditionnum$num"),
+ 'ruleconditionnum' => scalar($cgi->param("ruleconditionnum$num")),
map { $_ => scalar($cgi->param("ruleconditionnum${num}_$_")) } @fields,
};
$x;
if ( /^ruleactionnum(\d+)$/ ) {
my $num = $1;
if ( grep $cgi->param("ruleactionnum$num$_"), @gfields ) {
- my $x = new FS::cgp_rule_condition {
- 'ruleactionnum' => $cgi->param("ruleactionnum$num"),
+ my $x = new FS::cgp_rule_action {
+ 'ruleactionnum' => scalar($cgi->param("ruleactionnum$num")),
map { $_ => scalar($cgi->param("ruleactionnum${num}_$_")) } @fields,
};
$x;