X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fedit%2Fprocess%2Fpart_export.cgi;h=d0c87a02a75d1beb74425adc33532a60ede57113;hb=b159f42fa3f48cc2ca3b43773e7661e17d2fb072;hp=8160527f630ddc40cac7e12978b19296dcdf850f;hpb=f1038a648b3d53db925b23519e7cd2a30c6837ed;p=freeside.git diff --git a/httemplate/edit/process/part_export.cgi b/httemplate/edit/process/part_export.cgi index 8160527f6..d0c87a02a 100644 --- a/httemplate/edit/process/part_export.cgi +++ b/httemplate/edit/process/part_export.cgi @@ -1,13 +1,12 @@ <% -my $dbh = dbh; - my $exportnum = $cgi->param('exportnum'); my $old = qsearchs('part_export', { 'exportnum'=>$exportnum } ) if $exportnum; #fixup options -my %options = map { $_=>$cgi->param($_) } $cgi->param('options'); +warn join('-', split(',',$cgi->param('options'))); +my %options = map { $_=>$cgi->param($_) } split(',',$cgi->param('options')); my $new = new FS::part_export ( { map { @@ -15,32 +14,21 @@ my $new = new FS::part_export ( { } fields('part_export') } ); -local $SIG{HUP} = 'IGNORE'; -local $SIG{INT} = 'IGNORE'; -local $SIG{QUIT} = 'IGNORE'; -local $SIG{TERM} = 'IGNORE'; -local $SIG{TSTP} = 'IGNORE'; -local $SIG{PIPE} = 'IGNORE'; - -local $FS::UID::AutoCommit = 0; - my $error; if ( $exportnum ) { - $error = $new->replace($old); + warn $old; + warn $exportnum; + $error = $new->replace($old,\%options); } else { - $error = $new->insert; - $exportnum = $new->exportnum; + $error = $new->insert(\%options); +# $exportnum = $new->exportnum; } + if ( $error ) { - $dbh->rollback; $cgi->param('error', $error ); print $cgi->redirect(popurl(2). "part_export.cgi?". $cgi->query_string ); - myexit(); +} else { + print $cgi->redirect(popurl(3). "browse/part_svc.cgi"); } -#options - -$dbh->commit or die $dbh->errstr; -print $cgi->redirect(popurl(3). "browse/part_svc.cgi"); - %>