summaryrefslogtreecommitdiff
path: root/httemplate/edit/process/part_ac_field.cgi
diff options
context:
space:
mode:
authorkhoff <khoff>2002-09-02 22:20:37 +0000
committerkhoff <khoff>2002-09-02 22:20:37 +0000
commit2e18f8bf64d00e74fd221ac503daa718fe85b8bc (patch)
treebc8f19410ea115347e845bc2888f17dda359eac1 /httemplate/edit/process/part_ac_field.cgi
parent3db6252cbb0e2178072f08e16f2a0ec0938e78c3 (diff)
initial svc_broadband changes/additionssvc_broadband
Diffstat (limited to 'httemplate/edit/process/part_ac_field.cgi')
-rwxr-xr-xhttemplate/edit/process/part_ac_field.cgi21
1 files changed, 21 insertions, 0 deletions
diff --git a/httemplate/edit/process/part_ac_field.cgi b/httemplate/edit/process/part_ac_field.cgi
new file mode 100755
index 000000000..38ad586f7
--- /dev/null
+++ b/httemplate/edit/process/part_ac_field.cgi
@@ -0,0 +1,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'));
+}
+
+%>