version 1.35, 2013/05/10 12:48:48
|
version 1.38, 2015/09/11 00:56:41
|
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; |
|
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; |
Line 315 ENDJS
|
Line 316 ENDJS
|
.&rawrendering($symb) |
.&rawrendering($symb) |
.'</div>' |
.'</div>' |
); |
); |
$r->print('<form name="simpleedit" method="post">'); |
$r->print('<form name="simpleedit" method="post" action="">'); |
# Question Type |
# Question Type |
my %questiontypes=( |
my %questiontypes=( |
'radio' => '1 out of N multiple choice (radio button)', |
'radio' => '1 out of N multiple choice (radio button)', |