version 1.37, 2014/12/15 00:50:20
|
version 1.38, 2015/09/11 00:56:41
|
Line 224 sub handler {
|
Line 224 sub handler {
|
foreach my $envkey (keys(%env)) { |
foreach my $envkey (keys(%env)) { |
if ($envkey=~/^form\.(\w+)$/) { |
if ($envkey=~/^form\.(\w+)$/) { |
my $parm=$1; |
my $parm=$1; |
|
next if ($parm eq 'symb'); |
$storecontent{$prefix.$parm}=$env{'form.'.$parm}; |
$storecontent{$prefix.$parm}=$env{'form.'.$parm}; |
$storecontent{$prefix.$parm}=~s/^\s+//s; |
$storecontent{$prefix.$parm}=~s/^\s+//s; |
$storecontent{$prefix.$parm}=~s/\s+$//s; |
$storecontent{$prefix.$parm}=~s/\s+$//s; |