version 1.28, 2005/04/07 06:56:23
|
version 1.30, 2006/03/19 22:22:49
|
Line 67 sub menu {
|
Line 67 sub menu {
|
</td></tr> |
</td></tr> |
END |
END |
if (($env{'request.course.id'}) && |
if (($env{'request.course.id'}) && |
(&Apache::lonnet::allowed('srm',$env{'request.course.id'}))) { |
( |
|
&Apache::lonnet::allowed('srm',$env{'request.course.id'}) || |
|
&Apache::lonnet::allowed('srm',$env{'request.course.id'}.'/'.$env{'request.course.sec'}) |
|
)) { |
$r->print(<<END); |
$r->print(<<END); |
<tr><td bgcolor="#FFFFAA"> |
<tr><td bgcolor="#FFFFAA"> |
<b><a href="/adm/email?compose=group">$lt{'bmc'}</a></b>$help{'Course_Broadcast_Message'} |
<b><a href="/adm/email?compose=group">$lt{'bmc'}</a></b>$help{'Course_Broadcast_Message'} |
Line 94 sub handler {
|
Line 97 sub handler {
|
# |
# |
# Start document |
# Start document |
# |
# |
my $html=&Apache::lonxml::xmlbegin(); |
|
$r->print(<<END); |
|
$html |
|
<head> |
|
<title>The LearningOnline Network with CAPA</title> |
|
</head> |
|
END |
|
|
|
# ----------------------------------------------------------------- Breadcrumbs |
# ----------------------------------------------------------------- Breadcrumbs |
&Apache::lonhtmlcommon::clear_breadcrumbs(); |
&Apache::lonhtmlcommon::clear_breadcrumbs(); |
Line 113 END
|
Line 109 END
|
&Apache::lonmsg::header($r); |
&Apache::lonmsg::header($r); |
&menu($r); |
&menu($r); |
&Apache::lonmsg::disall($r,'new'); |
&Apache::lonmsg::disall($r,'new'); |
|
$r->print(&Apache::loncommon::end_page()); |
return OK; |
return OK; |
} |
} |
|
|