3 # process/svc_acct_pop.cgi: Edit POP (process form)
5 # ivan@sisd.com 98-mar-8
7 # Changes to allow page to work at a relative position in server
8 # bmccane@maxbaud.net 98-apr-3
10 # lose background, FS::CGI ivan@sisd.com 98-sep-2
14 use CGI::Carp qw(fatalsToBrowser);
15 use FS::UID qw(cgisuidsetup);
16 use FS::Record qw(qsearch qsearchs);
17 use FS::svc_acct_pop qw(fields);
18 use FS::CGI qw(eidiot);
20 my($req)=new CGI::Request; # create form object
22 &cgisuidsetup($req->cgi);
24 my($popnum)=$req->param('popnum');
26 my($old)=qsearchs('svc_acct_pop',{'popnum'=>$popnum}) if $popnum;
28 my($new)=create FS::svc_acct_pop ( {
31 } fields('svc_acct_pop')
35 my($error)=$new->replace($old);
36 eidiot($error) if $error;
38 my($error)=$new->insert;
39 eidiot($error) if $error;
40 $popnum=$new->getfield('popnum');
42 $req->cgi->redirect("../../browse/svc_acct_pop.cgi");