diff options
author | khoff <khoff> | 2002-09-09 23:05:30 +0000 |
---|---|---|
committer | khoff <khoff> | 2002-09-09 23:05:30 +0000 |
commit | 44398c83f25bf4e43838df9f39331c29fdeff19d (patch) | |
tree | 963837373a3b621ee2140adad0eb0b44e12c75e6 /httemplate/edit/process/ac_field.cgi | |
parent | 91292eadb6254740a9b72e5dc95f575593f6a35d (diff) |
svc_broadband merge
Diffstat (limited to 'httemplate/edit/process/ac_field.cgi')
-rwxr-xr-x | httemplate/edit/process/ac_field.cgi | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/httemplate/edit/process/ac_field.cgi b/httemplate/edit/process/ac_field.cgi new file mode 100755 index 000000000..2bfe3312f --- /dev/null +++ b/httemplate/edit/process/ac_field.cgi @@ -0,0 +1,21 @@ +<% + +my $new = new FS::ac_field ( { + map { + $_, scalar($cgi->param($_)); + } fields('ac_field') +} ); + +my $error = ''; +$error = $new->check; + +unless ( $error ) { $error = $new->insert; } + +if ( $error ) { + $cgi->param('error', $error); + print $cgi->redirect(popurl(2). "ac.cgi?". $cgi->query_string ); +} else { + print $cgi->redirect(popurl(2). "ac.cgi?". $cgi->param('acnum')); +} + +%> |