#fixup options
#warn join('-', split(',',$cgi->param('options')));
my %options = map {
#fixup options
#warn join('-', split(',',$cgi->param('options')));
my %options = map {
$value =~ s/\r\n/\n/g; #browsers? (textarea)
$_ => $value;
} split(',', $cgi->param('options'));
$value =~ s/\r\n/\n/g; #browsers? (textarea)
$_ => $value;
} split(',', $cgi->param('options'));