loncom/homework/caparesponse/caparesponse.pm - diff

Return to caparesponse.pm CVS log

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

version 1.177, 2005/08/02 19:01:18	version 1.178, 2005/08/17 16:37:11
Line 761 sub end_stringresponse {	Line 761 sub end_stringresponse {
# foreach my $ans (@answers) {	# foreach my $ans (@answers) {
if ($target eq 'answer') {	if ($target eq 'answer') {
$result.=&Apache::response::answer_part('stringresponse',$answer);	$result.=&Apache::response::answer_part('stringresponse',$answer);
	if ($type eq 're') {
	$result.=&Apache::response::answer_part('stringresponse',
	$answerdisplay);
	}
} elsif ($target eq 'analyze') {	} elsif ($target eq 'analyze') {
push (@{ $Apache::lonhomework::analyze{"$part.$id.answer"} },	push (@{ $Apache::lonhomework::analyze{"$part.$id.answer"} },
$answer);	$answer);