|
version 1.101, 2004/08/29 07:49:35
|
version 1.102, 2004/09/09 08:59:56
|
|
Line 500 sub answer_footer {
|
Line 500 sub answer_footer {
|
| } |
} |
| |
|
| sub showallfoils { |
sub showallfoils { |
| my $return=0; |
if (defined($ENV{'form.showallfoils'})) { |
| if (defined($ENV{'form.showallfoils'}) && |
my ($symb)=&Apache::lonxml::whichuser(); |
| $ENV{'request.state'} eq 'construct') { |
if ($ENV{'request.state'} eq 'construct' || |
| $return=1; |
($ENV{'user.adv'} && $symb eq '')) { |
| |
return 1; |
| |
} |
| } |
} |
| return $return; |
return 0; |
| } |
} |
| |
|
| sub getresponse { |
sub getresponse { |
![[BACK]](/icons/back.gif){kind=icon}
Return to response.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework