loncom/homework/lonsimpleproblemedit.pm - diff

Return to lonsimpleproblemedit.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.6, 2003/09/21 21:40:06	version 1.8, 2003/11/04 19:18:16
Line 61 sub rawrendering {	Line 61 sub rawrendering {
$ENV{'user.name'}=time;	$ENV{'user.name'}=time;
$ENV{'user.domain'}=time;	$ENV{'user.domain'}=time;
my $result = &Apache::lonxml::xmlparse($request,'web', $problem);	my $result = &Apache::lonxml::xmlparse($request,'web', $problem);
	undef($Apache::lonhomework::parsing_a_problem);
$ENV{'user.name'}=$uname;	$ENV{'user.name'}=$uname;
$ENV{'user.domain'}=$udom;	$ENV{'user.domain'}=$udom;
$result=~s/^.\<body[^\>]\>//si;	$result=~s/^.\<body[^\>]\>//si;
Line 168 sub handler {	Line 169 sub handler {
}	}
$ENV{'form.options'}="('".join("','",keys %curoptions)."')";	$ENV{'form.options'}="('".join("','",keys %curoptions)."')";
}	}
	$ENV{'form.hiddenparts'}='!'.$ENV{'form.questiontype'};
foreach (keys %ENV) {	foreach (keys %ENV) {
if ($_=~/^form\.(\w+)$/) {	if ($_=~/^form\.(\w+)$/) {
my $parm=$1;	my $parm=$1;