loncom/homework/caparesponse/caparesponse.pm - diff

Return to caparesponse.pm CVS log

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

version 1.102, 2003/05/19 21:15:21	version 1.103, 2003/05/19 21:40:04
Line 345 sub end_numericalresponse {	Line 345 sub end_numericalresponse {
"Unit: <b>$unit</b>");	"Unit: <b>$unit</b>");
}	}
} elsif ($target eq 'analyze') {	} elsif ($target eq 'analyze') {
push (@{ $Apache::lonhomework::analyze{"$part_id.unit"} },	push (@{ $Apache::lonhomework::analyze{"$part_id.unit"} }, $unit);
$unit);
}	}
}	}
if ($type \|\| $token->[1] eq 'stringresponse') {	if ($type \|\| $$tagstack[-1] eq 'stringresponse') {
my $string='Case Insensitive';	my $string='Case Insensitive';
if ($type eq 'mc') {	if ($type eq 'mc') {
$string='Multiple Choice';	$string='Multiple Choice';
Line 369 sub end_numericalresponse {	Line 368 sub end_numericalresponse {
"<b>$string</b>");	"<b>$string</b>");
}	}
} elsif ($target eq 'analyze') {	} elsif ($target eq 'analyze') {
push (@{ $Apache::lonhomework::analyze{"$part_id.type"} },	push (@{ $Apache::lonhomework::analyze{"$part_id.str_type"} },
$type);	$type);
}	}
}	}