version 1.36, 2013/07/15 16:13:12
|
version 1.37, 2014/12/15 00:50:20
|
Line 218 sub handler {
|
Line 218 sub handler {
|
$env{'form.newopt'}=~s/\'/\\\'/g; |
$env{'form.newopt'}=~s/\'/\\\'/g; |
$curoptions{$env{'form.newopt'}}=$env{'form.newopt'}; |
$curoptions{$env{'form.newopt'}}=$env{'form.newopt'}; |
} |
} |
$env{'form.options'}="('".join("','",keys %curoptions)."')"; |
$env{'form.options'}="('".join("','",keys(%curoptions))."')"; |
} |
} |
$env{'form.hiddenparts'}='!'.$env{'form.questiontype'}; |
$env{'form.hiddenparts'}='!'.$env{'form.questiontype'}; |
foreach (keys %env) { |
foreach my $envkey (keys(%env)) { |
if ($_=~/^form\.(\w+)$/) { |
if ($envkey=~/^form\.(\w+)$/) { |
my $parm=$1; |
my $parm=$1; |
$storecontent{$prefix.$parm}=$env{'form.'.$parm}; |
$storecontent{$prefix.$parm}=$env{'form.'.$parm}; |
$storecontent{$prefix.$parm}=~s/^\s+//s; |
$storecontent{$prefix.$parm}=~s/^\s+//s; |