|
version 1.72, 2003/06/20 04:05:13
|
version 1.73, 2003/09/22 20:49:01
|
|
Line 205 sub displayallfoils {
|
Line 205 sub displayallfoils {
|
| my $part=$Apache::inputtags::part; |
my $part=$Apache::inputtags::part; |
| my $lastresponse=$Apache::lonhomework::history{"resource.$part.$id.submission"}; |
my $lastresponse=$Apache::lonhomework::history{"resource.$part.$id.submission"}; |
| my %lastresponse=&Apache::lonnet::str2hash($lastresponse); |
my %lastresponse=&Apache::lonnet::str2hash($lastresponse); |
| if (($Apache::lonhomework::history{"resource.$part.solved"} =~ /^correct/) || ($Apache::inputtags::status[-1] eq 'SHOW_ANSWER')) { |
if (&Apache::response::show_answer() ) { |
| 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 />".$Apache::response::foilgroup{$name.'.value'}; |
$result.="<br />".$Apache::response::foilgroup{$name.'.value'}; |
|
Line 373 sub displayfoils {
|
Line 373 sub displayfoils {
|
| my $solved=$Apache::lonhomework::history{"resource.$part.solved"}; |
my $solved=$Apache::lonhomework::history{"resource.$part.solved"}; |
| my $status=$Apache::inputtags::status[-1]; |
my $status=$Apache::inputtags::status[-1]; |
| if ( ($target ne 'tex') && |
if ( ($target ne 'tex') && |
| (($solved =~ /^correct/) || ($status eq 'SHOW_ANSWER')) ) { |
&Apache::response::show_answer() ) { |
| foreach my $name (@whichfoils) { |
foreach my $name (@whichfoils) { |
| if ($target ne 'tex') { |
if ($target ne 'tex') { |
| $result.="<br />"; |
$result.="<br />"; |
![[BACK]](/icons/back.gif){kind=icon}
Return to radiobuttonresponse.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework