diff options
| author | ivan <ivan> | 2002-06-20 01:29:21 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2002-06-20 01:29:21 +0000 |
| commit | cf6020a0c273d549d33f3e9999bd8b68d9b6d133 (patch) | |
| tree | 54cc6041fbcace7167c310eb501b063ae25e075f /httemplate/edit/process/part_export.cgi | |
| parent | c5a358f8b8b0c7ac8f627f7042d81f4187bed57f (diff) | |
shellcommands w/passwords
Diffstat (limited to 'httemplate/edit/process/part_export.cgi')
| -rw-r--r-- | httemplate/edit/process/part_export.cgi | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/httemplate/edit/process/part_export.cgi b/httemplate/edit/process/part_export.cgi index 6b4d007e4..fa009edbb 100644 --- a/httemplate/edit/process/part_export.cgi +++ b/httemplate/edit/process/part_export.cgi @@ -6,7 +6,11 @@ my $old = qsearchs('part_export', { 'exportnum'=>$exportnum } ) if $exportnum; #fixup options #warn join('-', split(',',$cgi->param('options'))); -my %options = map { $_=>$cgi->param($_) } 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 { |