loncom/homework/default_homework.lcpm - diff

Return to default_homework.lcpm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.103, 2005/09/26 21:39:53	version 1.104, 2005/11/16 22:18:22
Line 193 sub caparesponse_check_list {	Line 193 sub caparesponse_check_list {
my $type = $LONCAPA::CAPAresponse_args{'type'};	my $type = $LONCAPA::CAPAresponse_args{'type'};
$result.="Got type :$type:\n";	$result.="Got type :$type:\n";
if ($type ne '' && $#list > 0) {	if ($type ne '' && $#list > 0) {
(@responselist)=split /,/,$response;	(@responselist)=split(/,/,$response);
} else {	} else {
(@responselist)=($response);	(@responselist)=($response);
}	}
Line 217 sub caparesponse_check_list {	Line 217 sub caparesponse_check_list {
$result.="trying answer :$list[$i]:\n";	$result.="trying answer :$list[$i]:\n";
my $thisanswer=$list[$i];	my $thisanswer=$list[$i];
$result.="trying answer :$thisanswer:\n";	$result.="trying answer :$thisanswer:\n";
if ($unit eq '') {	if (defined($list[$i])) {
($aresult,$msg)=&caparesponse_check($thisanswer,$responselist[$i]);	if ($unit eq '') {
	($aresult,$msg)=&caparesponse_check($thisanswer,
	$responselist[$i]);
	} else {
	($aresult,$msg)=&caparesponse_check($thisanswer,
	$responselist[$i]." $unit");
	}
} else {	} else {
($aresult,$msg)=&caparesponse_check($thisanswer,	$aresult='ERROR';
$responselist[$i]." $unit");
}	}
my ($temp)=split /:/, $aresult;	my ($temp)=split(/:/, $aresult);
$awards.="$temp,";	$awards.="$temp,";
$result.=$aresult;	$result.=$aresult;
push(@msgs,$msg);	push(@msgs,$msg);
}	}
chop $awards;	chop($awards);
return ("$awards:\n$result",@msgs);	return ("$awards:\n$result",@msgs);
}	}