loncom/homework/optionresponse.pm - diff

Return to optionresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.109, 2004/05/06 07:31:32	version 1.111, 2004/07/02 08:21:39
Line 92 sub start_foilgroup {	Line 92 sub start_foilgroup {
my $result='';	my $result='';
%Apache::response::foilgroup=();	%Apache::response::foilgroup=();
$Apache::optionresponse::conceptgroup=0;	$Apache::optionresponse::conceptgroup=0;
&Apache::response::setrandomnumber();	&Apache::response::pushrandomnumber();
if ($target eq 'edit') {	if ($target eq 'edit') {
my $optionlist="<option></option>\n";	my $optionlist="<option></option>\n";
my $option;	my $option;
Line 257 sub end_foilgroup {	Line 257 sub end_foilgroup {
if ($target eq 'tex' and $Apache::lonhomework::type ne 'exam') {	if ($target eq 'tex' and $Apache::lonhomework::type ne 'exam') {
$result .= '\end{enumerate}';	$result .= '\end{enumerate}';
}	}
	&Apache::response::poprandomnumber();
return $result;	return $result;
}	}

Line 478 sub webbubbles {	Line 479 sub webbubbles {
}	}
$result.='<td><input type="radio" name="HWVAL_'.	$result.='<td><input type="radio" name="HWVAL_'.
$Apache::inputtags::response['-1'].':'.$temp.	$Apache::inputtags::response['-1'].':'.$temp.
'" value="'.$opt[$ind].'" '.$checked.' />'.$alphabet[$ind].': '.	'" value="'.$opt[$ind].'" '.$checked.' />';
$opt[$ind].'</td>';	if ($alphabet[$ind]) {
	$result.=$alphabet[$ind].': ';
	}
	$result.=$opt[$ind].'</td>';
}	}
$result.='</tr></table>';	$result.='</tr></table>';
return $result;	return $result;