loncom/homework/rankresponse.pm - diff

Return to rankresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.17.2.1, 2003/09/23 01:52:57	version 1.17.2.2, 2003/10/15 19:49:06
Line 187 sub grade_response {	Line 187 sub grade_response {
my ($temp,$right,$wrong,$ignored)=(0,0,0,0);	my ($temp,$right,$wrong,$ignored)=(0,0,0,0);
my @correctorder=&get_correct_order($tol,@whichfoils);	my @correctorder=&get_correct_order($tol,@whichfoils);
foreach my $name (@whichfoils) {	foreach my $name (@whichfoils) {
my $response = $ENV{'form.HWVAL_'.$Apache::inputtags::response['-1'].":$temp"};	my $response = &Apache::response::getresponse($temp);
$responsehash{$name}=$response;	$responsehash{$name}=$response;
my $value=shift(@correctorder);	my $value=shift(@correctorder);
if ( $response =~ /[^\s]/) {	if ( $response =~ /[^\s]/) {
Line 283 sub displayfoils {	Line 283 sub displayfoils {
$result.='<br />'.$text."\n";	$result.='<br />'.$text."\n";
}	}
if ($Apache::lonhomework::type eq 'exam') {	if ($Apache::lonhomework::type eq 'exam') {
$result.=&Apache::optionresponse::webbubbles(\@alp,\@whichopt,$temp);	my @values=(1..scalar(@whichopt));
	$result.=&Apache::optionresponse::webbubbles(\@values,\@whichopt,$temp,$lastopt);
}	}
} else {	} else {
if ($Apache::lonhomework::type eq 'exam') {	if ($Apache::lonhomework::type eq 'exam') {