httemplate/edit/process/part_export.cgi

   1 <%
   2
   3 my $dbh = dbh;
   4
   5 my $exportnum = $cgi->param('exportnum');
   6
   7 my $old = qsearchs('part_export', { 'exportnum'=>$exportnum } ) if $exportnum;
   8
   9 my $new = new FS::part_export ( {
  10   map {
  11     $_, scalar($cgi->param($_));
  12   } fields('part_export')
  13 } );
  14
  15 local $SIG{HUP} = 'IGNORE';
  16 local $SIG{INT} = 'IGNORE';
  17 local $SIG{QUIT} = 'IGNORE';
  18 local $SIG{TERM} = 'IGNORE';
  19 local $SIG{TSTP} = 'IGNORE';
  20 local $SIG{PIPE} = 'IGNORE';
  21
  22 local $FS::UID::AutoCommit = 0;
  23
  24 my $error;
  25 if ( $exportnum ) {
  26   $error = $new->replace($old);
  27 } else {
  28   $error = $new->insert;
  29   $exportnum = $new->exportnum;
  30 }
  31 if ( $error ) {
  32   $dbh->rollback;
  33   $cgi->param('error', $error );
  34   print $cgi->redirect(popurl(2). "part_export.cgi?". $cgi->query_string );
  35   myexit();
  36 }
  37
  38 #options
  39
  40 $dbh->commit or die $dbh->errstr;
  41 print $cgi->redirect(popurl(3). "browse/part_svc.cgi");
  42
  43 %>