loncom/homework/default_homework.lcpm - diff

Return to default_homework.lcpm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.105, 2005/11/16 23:17:39	version 1.106, 2005/12/20 20:00:42
Line 210 sub caparesponse_check_list {	Line 210 sub caparesponse_check_list {
$result.="Final final response :$responselist['-1']:$unit:\n";	$result.="Final final response :$responselist['-1']:$unit:\n";
$unit=~s/\s//;	$unit=~s/\s//;

my ($awards, @msgs);	my ($awards, @msgs, $i);
foreach my $thisanswer (@LONCAPA::CAPAresponse_answer) {	foreach my $thisanswer (@LONCAPA::CAPAresponse_answer) {
my ($msg,$aresult);	my ($msg,$aresult);
$result.="trying answer :$thisanswer:\n";	$result.="trying answer :$thisanswer:\n";
Line 231 sub caparesponse_check_list {	Line 231 sub caparesponse_check_list {
$awards.="$temp,";	$awards.="$temp,";
$result.=$aresult;	$result.=$aresult;
push(@msgs,$msg);	push(@msgs,$msg);
	$i++;
}	}
chop($awards);	chop($awards);
return ("$awards:\n$result",@msgs);	return ("$awards:\n$result",@msgs);