blob: 38ad586f7697ae5fbe5706cfea9cd50f98d3f505 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
<%
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'));
}
%>
|
