loncom/homework/response.pm - diff

Return to response.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.101, 2004/08/29 07:49:35	version 1.105, 2004/09/27 22:47:49
Line 500 sub answer_footer {	Line 500 sub answer_footer {
}	}

sub showallfoils {	sub showallfoils {
my $return=0;	if (defined($ENV{'form.showallfoils'})) {
if (defined($ENV{'form.showallfoils'}) &&	my ($symb)=&Apache::lonxml::whichuser();
$ENV{'request.state'} eq 'construct') {	if ($ENV{'request.state'} eq 'construct' \|\|
$return=1;	($ENV{'user.adv'} && $symb eq '')) {
	return 1;
	}
}	}
return $return;	return 0;
}	}

sub getresponse {	sub getresponse {
Line 530 sub getresponse {	Line 532 sub getresponse {
$Apache::lonhomework::results{"resource.$part.$id.scantron"}.=	$Apache::lonhomework::results{"resource.$part.$id.scantron"}.=
$response;	$response;
if ($resulttype ne 'letter') {	if ($resulttype ne 'letter') {
$response = $let_to_num{$response};	if ($resulttype eq 'A is 1') {
	$response = $let_to_num{$response}+1;
	} else {
	$response = $let_to_num{$response};
	}
}	}
} else {	} else {
$response = $ENV{$formparm};	$response = $ENV{$formparm};