X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fedit%2Fprocess%2Fpart_export.cgi;h=209419f0b029fe6da101fe8f44ce3ed5c31225da;hb=37591b61f8ad6fc5c5acb2fd8f520d2dbe4f1539;hp=0dd9eabaef613d29aa46b92e215f73c0b6e4a2f6;hpb=c8cccb4a92adceb943c635fe62dad0d034462ce0;p=freeside.git diff --git a/httemplate/edit/process/part_export.cgi b/httemplate/edit/process/part_export.cgi index 0dd9eabae..209419f0b 100644 --- a/httemplate/edit/process/part_export.cgi +++ b/httemplate/edit/process/part_export.cgi @@ -1,40 +1,42 @@ -% -% -%my $exportnum = $cgi->param('exportnum'); -% -%my $old = qsearchs('part_export', { 'exportnum'=>$exportnum } ) if $exportnum; -% -%#fixup options -%#warn join('-', split(',',$cgi->param('options'))); -%my %options = map { -% my $value = $cgi->param($_); -% $value =~ s/\r\n/\n/g; #browsers? (textarea) -% $_ => $value; -%} split(',', $cgi->param('options')); -% -%my $new = new FS::part_export ( { -% map { -% $_, scalar($cgi->param($_)); -% } fields('part_export') -%} ); -% -%my $error; -%if ( $exportnum ) { -% #warn $old; -% #warn $exportnum; -% #warn $new->machine; -% $error = $new->replace($old,\%options); -%} else { -% $error = $new->insert(\%options); -%# $exportnum = $new->exportnum; -%} -% %if ( $error ) { % $cgi->param('error', $error ); -% print $cgi->redirect(popurl(2). "part_export.cgi?". $cgi->query_string ); +<% $cgi->redirect(popurl(2). "part_export.cgi?". $cgi->query_string ) %> %} else { -% print $cgi->redirect(popurl(3). "browse/part_export.cgi"); +<% $cgi->redirect(popurl(3). "browse/part_export.cgi") %> %} -% -% +<%init> + +die "access denied" + unless $FS::CurrentUser::CurrentUser->access_right('Configuration'); + +my $exportnum = $cgi->param('exportnum'); + +my $old = qsearchs('part_export', { 'exportnum'=>$exportnum } ) if $exportnum; + +#fixup options +#warn join('-', split(',',$cgi->param('options'))); +my %options = map { + my @values = $cgi->param($_); + my $value = scalar(@values) > 1 ? join (' ', @values) : $values[0]; + $value =~ s/\r\n/\n/g; #browsers? (textarea) + $_ => $value; +} split(',', $cgi->param('options')); + +my $new = new FS::part_export ( { + map { + $_, scalar($cgi->param($_)); + } fields('part_export') +} ); + +my $error; +if ( $exportnum ) { + #warn $old; + #warn $exportnum; + #warn $new->machine; + $error = $new->replace($old,\%options); +} else { + $error = $new->insert(\%options); +# $exportnum = $new->exportnum; +} +