loncom/homework/lonsimpleproblemedit.pm - diff

Return to lonsimpleproblemedit.pm CVS log

Up to [LON-CAPA] / loncom / homework

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)',