|
version 1.273.4.10, 2010/09/21 04:56:15
|
version 1.273.4.11, 2010/09/21 04:58:17
|
|
Line 2642 sub screen_header {
|
Line 2642 sub screen_header {
|
| } |
} |
| if (($env{'request.course.id'}) && (!$env{'form.sendmessageonly'})) { |
if (($env{'request.course.id'}) && (!$env{'form.sendmessageonly'})) { |
| my ($blocked,$blocktext) = &Apache::loncommon::blocking_status('boards'); |
my ($blocked,$blocktext) = &Apache::loncommon::blocking_status('boards'); |
| if (!$blocked && &discussion_open(undef,$symb) && |
my $realsymb = $symb; |
| |
if ($symb=~/^bulletin___/) { |
| |
my $filename=(&Apache::lonnet::decode_symb($symb))[2]; |
| |
$filename=~s|^adm/wrapper/||; |
| |
$realsymb=&Apache::lonnet::symbread($filename); |
| |
} |
| |
if (!$blocked && &discussion_open(undef,$realsymb) && |
| &Apache::lonnet::allowed('pch', |
&Apache::lonnet::allowed('pch', |
| $env{'request.course.id'}. |
$env{'request.course.id'}. |
| ($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:''))) { |
($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:''))) { |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonfeedback.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface