loncom/homework/response.pm - diff

Return to response.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.89, 2003/11/21 19:54:42	version 1.90, 2004/02/09 19:38:00
Line 456 sub showallfoils {	Line 456 sub showallfoils {
}	}

sub getresponse {	sub getresponse {
my ($temp)=@_;	my ($temp,$resulttype)=@_;
my $formparm='form.HWVAL_'.$Apache::inputtags::response['-1'];	my $formparm='form.HWVAL_'.$Apache::inputtags::response['-1'];
my $response;	my $response;
if (!defined($temp)) {	if (!defined($temp)) {
Line 476 sub getresponse {	Line 476 sub getresponse {
# save bubbled letter for later	# save bubbled letter for later
$Apache::lonhomework::results{"resource.$part.$id.scantron"}.=	$Apache::lonhomework::results{"resource.$part.$id.scantron"}.=
$response;	$response;
$response = $let_to_num{$response};	if ($resulttype ne 'letter') {
	$response = $let_to_num{$response};
	}
} else {	} else {
$response = $ENV{$formparm};	$response = $ENV{$formparm};
}	}