version 1.15, 2001/04/23 17:15:13
|
version 1.16, 2001/04/23 18:21:55
|
Line 129 sub displayallfoils {
|
Line 129 sub displayallfoils {
|
foreach my $name (@names) { |
foreach my $name (@names) { |
if ($Apache::response::foilgroup{$name.'.value'} ne 'unused') { |
if ($Apache::response::foilgroup{$name.'.value'} ne 'unused') { |
$result.="<br /><input type=\"radio\" name=\"HWVAL$Apache::inputtags::response['-1']\" value=\"$temp\" "; |
$result.="<br /><input type=\"radio\" name=\"HWVAL$Apache::inputtags::response['-1']\" value=\"$temp\" "; |
if ($lastresponse == $temp) { $result .= 'checked="on"'; } |
if ($lastresponse eq $temp) { $result .= 'checked="on"'; } |
$result .= '>'.$Apache::response::foilgroup{$name.'.text'}."</input>\n"; |
$result .= '>'.$Apache::response::foilgroup{$name.'.text'}."</input>\n"; |
$temp++; |
$temp++; |
} |
} |
Line 185 sub displayfoils {
|
Line 185 sub displayfoils {
|
my $lastresponse=$Apache::lonhomework::history{"resource.$part.$id.submission"}; |
my $lastresponse=$Apache::lonhomework::history{"resource.$part.$id.submission"}; |
foreach $name (@whichfalse) { |
foreach $name (@whichfalse) { |
$result.="<br /><input type=\"radio\" name=\"HWVAL$Apache::inputtags::response['-1']\" value=\"$temp\" "; |
$result.="<br /><input type=\"radio\" name=\"HWVAL$Apache::inputtags::response['-1']\" value=\"$temp\" "; |
if ($lastresponse == $temp) { $result .= 'checked="on"'; } |
if ($lastresponse eq $temp) { $result .= 'checked="on"'; } |
$result .= '>'.$Apache::response::foilgroup{$name.'.text'}."</input>\n"; |
$result .= '>'.$Apache::response::foilgroup{$name.'.text'}."</input>\n"; |
$temp++; |
$temp++; |
} |
} |