diff options
author | ivan <ivan> | 2002-03-22 12:49:43 +0000 |
---|---|---|
committer | ivan <ivan> | 2002-03-22 12:49:43 +0000 |
commit | b159f42fa3f48cc2ca3b43773e7661e17d2fb072 (patch) | |
tree | a824f6d34a643fad9f381f010637d9dbfd8b01c6 /httemplate/edit/process/part_export.cgi | |
parent | 415150fe1997eb2688dfd492710f644574e29daf (diff) |
more new export...
Diffstat (limited to 'httemplate/edit/process/part_export.cgi')
-rw-r--r-- | httemplate/edit/process/part_export.cgi | 16 |
1 files changed, 5 insertions, 11 deletions
diff --git a/httemplate/edit/process/part_export.cgi b/httemplate/edit/process/part_export.cgi index b4ce0b352..d0c87a02a 100644 --- a/httemplate/edit/process/part_export.cgi +++ b/httemplate/edit/process/part_export.cgi @@ -5,7 +5,8 @@ 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 { @@ -13,20 +14,13 @@ 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 ) { + warn $old; + warn $exportnum; $error = $new->replace($old,\%options); } else { - $error = $new->insert,\%options); + $error = $new->insert(\%options); # $exportnum = $new->exportnum; } |