3 # process/part_referral.cgi: Edit referrals (process form)
5 # ivan@sisd.com 98-feb-23
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(qsearchs);
17 use FS::part_referral qw(fields);
18 use FS::CGI qw(eidiot);
19 use FS::CGI qw(eidiot);
21 my($req)=new CGI::Request; # create form object
23 &cgisuidsetup($req->cgi);
25 my($refnum)=$req->param('refnum');
27 my($new)=create FS::part_referral ( {
30 } fields('part_referral')
34 my($old)=qsearchs('part_referral',{'refnum'=>$refnum});
35 eidiot("(Old) Record not found!") unless $old;
36 my($error)=$new->replace($old);
37 eidiot($error) if $error;
39 my($error)=$new->insert;
40 eidiot($error) if $error;
43 $refnum=$new->getfield('refnum');
44 $req->cgi->redirect("../../browse/part_referral.cgi");