loncom/homework/caparesponse/caparesponse.pm - diff

Return to caparesponse.pm CVS log

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

version 1.67, 2002/10/17 17:13:44	version 1.69, 2002/11/07 15:12:23
Line 157 sub end_numericalresponse {	Line 157 sub end_numericalresponse {
}	}
}	}
} elsif ($target eq 'web' \|\| $target eq 'tex') {	} elsif ($target eq 'web' \|\| $target eq 'tex') {
if ($Apache::lonhomework::type ne 'exam') {
my $award = $Apache::lonhomework::history{"resource.$Apache::inputtags::part.solved"};	my $award = $Apache::lonhomework::history{"resource.$Apache::inputtags::part.solved"};
my $status = $Apache::inputtags::status['-1'];	my $status = $Apache::inputtags::status['-1'];
if ($award =~ /^correct/ \|\| $status eq "SHOW_ANSWER" ) {	if ($award =~ /^correct/ \|\| $status eq "SHOW_ANSWER" ) {
Line 199 sub end_numericalresponse {	Line 198 sub end_numericalresponse {
$result.="}. \\vskip 0 mm ";	$result.="}. \\vskip 0 mm ";
}	}
}	}
} else {	if ($Apache::lonhomework::type eq 'exam') {
my (@answers)=&Apache::lonxml::get_param_var('answer',$parstack,$safeeval);	my (@answers)=&Apache::lonxml::get_param_var('answer',$parstack,$safeeval);
my (@formats)=&Apache::lonxml::get_param_var('format',$parstack,$safeeval);	my (@formats)=&Apache::lonxml::get_param_var('format',$parstack,$safeeval);
my $unit=&Apache::lonxml::get_param_var('unit',$parstack,$safeeval);	my $unit=&Apache::lonxml::get_param_var('unit',$parstack,$safeeval);