loncom/homework/lonsimpleproblemedit.pm - diff

Return to lonsimpleproblemedit.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.36, 2013/07/15 16:13:12	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;