httemplate/edit/process/part_referral.cgi

   1 <!-- $Id: part_referral.cgi,v 1.3 2002-01-30 14:18:09 ivan Exp $ -->
   2 <%
   3
   4 my $refnum = $cgi->param('refnum');
   5
   6 my $new = new FS::part_referral ( {
   7   map {
   8     $_, scalar($cgi->param($_));
   9   } fields('part_referral')
  10 } );
  11
  12 my $error;
  13 if ( $refnum ) {
  14   my $old = qsearchs( 'part_referral', { 'refnum' =>$ refnum } );
  15   die "(Old) Record not found!" unless $old;
  16   $error = $new->replace($old);
  17 } else {
  18   $error = $new->insert;
  19 }
  20 $refnum=$new->refnum;
  21
  22 if ( $error ) {
  23   $cgi->param('error', $error);
  24   print $cgi->redirect(popurl(2). "part_referral.cgi?". $cgi->query_string );
  25 } else {
  26   print $cgi->redirect(popurl(3). "browse/part_referral.cgi");
  27 }
  28
  29 %>