loncom/homework/radiobuttonresponse.pm - diff

Return to radiobuttonresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.65, 2003/04/04 23:35:17	version 1.67, 2003/04/07 22:28:08
Line 169 sub end_foilgroup {	Line 169 sub end_foilgroup {
}	}
}	}
}	}
if ($target eq 'tex' && $Apache::lonhomework::type eq 'exam') {	&Apache::lonxml::increment_counter();
&Apache::lonxml::increment_counter();
}
return $result;	return $result;
}	}

Line 391 sub displayfoils {	Line 389 sub displayfoils {
my %lastresponse=&Apache::lonnet::str2hash($lastresponse);	my %lastresponse=&Apache::lonnet::str2hash($lastresponse);
foreach my $name (@whichfoils) {	foreach my $name (@whichfoils) {
if ($target ne 'tex') {	if ($target ne 'tex') {
my $ValueForInput;	$result.="<br /><input type=\"radio\" name=\"HWVAL$Apache::inputtags::response['-1']\" value=\"$temp\" ";
if ($Apache::lonhomework::type ne 'exam') {$ValueForInput=$temp;} else {$ValueForInput=$alphabet[$temp];}
$result.="<br /><input type=\"radio\" name=\"HWVAL$Apache::inputtags::response['-1']\" value=\"$ValueForInput\" ";
if (defined($lastresponse{$name})) { $result .= 'checked="on"'; }	if (defined($lastresponse{$name})) { $result .= 'checked="on"'; }
$result .= '>'.$Apache::response::foilgroup{$name.'.text'}."</input>\n";	$result .= '>'.$Apache::response::foilgroup{$name.'.text'}."</input>\n";
} else {	} else {