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; |