<% my $new = new FS::part_ac_field ( { map { $_, scalar($cgi->param($_)); } fields('part_ac_field') } ); my $error = ''; $error = $new->check; unless ( $error ) { $error = $new->insert; } if ( $error ) { $cgi->param('error', $error); print $cgi->redirect(popurl(2). "ac_type.cgi?". $cgi->query_string ); } else { print $cgi->redirect(popurl(2). "ac_type.cgi?". $cgi->param('actypenum')); } %>