htdocs/edit/process/part_referral.cgi

   1 #!/usr/bin/perl -Tw
   2 #
   3 # process/part_referral.cgi: Edit referrals (process form)
   4 #
   5 # ivan@sisd.com 98-feb-23
   6 #
   7 # Changes to allow page to work at a relative position in server
   8 #       bmccane@maxbaud.net     98-apr-3
   9 #
  10 # lose background, FS::CGI ivan@sisd.com 98-sep-2
  11
  12 use strict;
  13 use CGI::Request;
  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);
  20
  21 my($req)=new CGI::Request; # create form object
  22
  23 &cgisuidsetup($req->cgi);
  24
  25 my($refnum)=$req->param('refnum');
  26
  27 my($new)=create FS::part_referral ( {
  28   map {
  29     $_, $req->param($_);
  30   } fields('part_referral')
  31 } );
  32
  33 if ( $refnum ) {
  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;
  38 } else {
  39   my($error)=$new->insert;
  40   eidiot($error) if $error;
  41 }
  42
  43 $refnum=$new->getfield('refnum');
  44 $req->cgi->redirect("../../browse/part_referral.cgi");
  45