version 1.34, 2012/11/09 03:28:01
|
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; |
Line 252 sub handler {
|
Line 252 sub handler {
|
my $dest = &get_parent_uri($symb); |
my $dest = &get_parent_uri($symb); |
if ($dest) { |
if ($dest) { |
$r->internal_redirect($dest); |
$r->internal_redirect($dest); |
|
return OK; |
} |
} |
} |
} |
} else { |
} else { |
Line 314 ENDJS
|
Line 315 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)', |