loncom/homework/optionresponse.pm - diff

Return to optionresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.23, 2001/08/13 21:44:24	version 1.24, 2001/09/13 19:55:02
Line 197 sub displayfoils {	Line 197 sub displayfoils {
foreach $option (@opt) {	foreach $option (@opt) {
$optionlist.="<option>$option</option>\n";	$optionlist.="<option>$option</option>\n";
}	}
if ($Apache::lonhomework::history{"resource.$Apache::inputtags::part.solved"} =~ /^correct/ ) {	if (($Apache::lonhomework::history{"resource.$Apache::inputtags::part.solved"} =~ /^correct/) \|\| ($Apache::inputtags::status[-1] eq 'SHOW_ANSWER')) {
foreach $name (@whichopt) {	foreach $name (@whichopt) {
$result.="<br />".$Apache::response::foilgroup{$name.'.value'}.	$result.="<br />".$Apache::response::foilgroup{$name.'.value'}.
":".$Apache::response::foilgroup{$name.'.text'}."\n";	":".$Apache::response::foilgroup{$name.'.text'}."\n";