loncom/homework/default_homework.lcpm - diff

Return to default_homework.lcpm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.28, 2001/06/14 21:29:14	version 1.29, 2001/07/11 21:36:29
Line 21 sub caparesponse_check {	Line 21 sub caparesponse_check {
my $sig_lbound=''; #done	my $sig_lbound=''; #done
my $sig_ubound=''; #done	my $sig_ubound=''; #done
my $ans_fmt='';	my $ans_fmt='';
my $units=''; #done	my $unit=''; #done
my $calc='';	my $calc='';
my ($response,$expr)=@_;	my ($response,$expr)=@_;

($answer,$type,$tol,$sig,$ans_fmt,	($answer,$type,$tol,$sig,$ans_fmt,
$units,$calc) = eval $expr.';return $answer,$type,$tol,$sig,$ans_fmt,$units,$calc';	$unit,$calc) = eval $expr.';return $answer,$type,$tol,$sig,$ans_fmt,$unit,$calc';
#type's definitons come from capaParser.h	#type's definitons come from capaParser.h
if ($type eq '' ) {	if ($type eq '' ) {
if ( $answer eq ($answer *1.0)) { $type = 2;	if ( $answer eq ($answer *1.0)) { $type = 2;
Line 61 sub caparesponse_check {	Line 61 sub caparesponse_check {
my $result = &caparesponse_capa_check_answer($response,$answer,$type,	my $result = &caparesponse_capa_check_answer($response,$answer,$type,
$tol_type,$tol,	$tol_type,$tol,
$sig_lbound,$sig_ubound,	$sig_lbound,$sig_ubound,
$ans_fmt,$units,$calc);	$ans_fmt,$unit,$calc);

if ($result == '1') { $result='EXACT_ANS'; }	if ($result == '1') { $result='EXACT_ANS'; }
elsif ($result == '2') { $result='APPROX_ANS'; }	elsif ($result == '2') { $result='APPROX_ANS'; }