loncom/homework/caparesponse/caparesponse.pm - diff

Return to caparesponse.pm CVS log

Up to [LON-CAPA] / loncom / homework / caparesponse

version 1.7, 2000/10/02 22:15:37	version 1.8, 2000/10/12 21:51:40
Line 13 $Apache::caparesponse::result='';	Line 13 $Apache::caparesponse::result='';
sub start_caparesponse {	sub start_caparesponse {
my $envkey;	my $envkey;

foreach $envkey (sort keys %ENV) {	#foreach $envkey (sort keys %ENV) {
Apache::lonxml::debug("$envkey ---- $ENV{$envkey}<br>");	# Apache::lonxml::debug("$envkey ---- $ENV{$envkey}<br>");
}	#}

Apache::lonxml::debug("\n<br>\nreal caparesponse<br>\n");	#Apache::lonxml::debug("\n<br>\nreal caparesponse<br>\n");
}	}

sub end_caparesponse {	sub end_caparesponse {
Line 33 sub end_caparesponse {	Line 33 sub end_caparesponse {
&Apache::run::run($expression,$safeeval);	&Apache::run::run($expression,$safeeval);

&Apache::lonxml::debug("\n<br>result:$Apache::caparesponse::result:<br>\n");	&Apache::lonxml::debug("\n<br>result:$Apache::caparesponse::result:<br>\n");
	} else {
	#return "The correct answer is ".&Apache::run::run("{$$parstack['-1'];".'return $answer}',$safeeval)."\n";
}	}
#Apache::lonxml::debug("\n<br>\nreal end caparesponse<br>\n");	#Apache::lonxml::debug("\n<br>\nreal end caparesponse<br>\n");
	return '';
}	}

1;	1;