loncom/homework/caparesponse/caparesponse.pm - diff

Return to caparesponse.pm CVS log

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

version 1.217, 2007/08/29 10:09:56	version 1.218, 2007/08/29 21:55:37
Line 431 sub check_submission {	Line 431 sub check_submission {

&add_in_tag_answer($parstack,$safeeval);	&add_in_tag_answer($parstack,$safeeval);

	if (!%answer) {
	&Apache::lonxml::error("No answers are defined");
	}

my (@final_awards,@final_msgs,@names);	my (@final_awards,@final_msgs,@names);
foreach my $name (keys(%answer)) {	foreach my $name (keys(%answer)) {
&Apache::lonxml::debug(" doing $name with ".join(':',@{ $answer{$name}{'answers'} }));	&Apache::lonxml::debug(" doing $name with ".join(':',@{ $answer{$name}{'answers'} }));