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 | |
| parent | c5a358f8b8b0c7ac8f627f7042d81f4187bed57f (diff) | |
shellcommands w/passwords
Diffstat (limited to 'httemplate/edit')
| -rw-r--r-- | httemplate/edit/part_export.cgi | 2 | ||||
| -rw-r--r-- | httemplate/edit/process/part_export.cgi | 6 |
2 files changed, 7 insertions, 1 deletions
diff --git a/httemplate/edit/part_export.cgi b/httemplate/edit/part_export.cgi index fbc698e8b..486bd4300 100644 --- a/httemplate/edit/part_export.cgi +++ b/httemplate/edit/part_export.cgi @@ -63,6 +63,8 @@ my $widget = new HTML::Widgets::SelectLayers( #} } $html .= '</SELECT>'; + } elsif ( $type eq 'textarea' ) { + $html .= qq!<TEXTAREA NAME="$option">$value</TEXTAREA>!; } elsif ( $type eq 'text' ) { $html .= qq!<INPUT TYPE="text" NAME="$option" VALUE="$value" SIZE=64>!; } else { 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 { |