version 1.26, 2004/11/17 21:05:26
|
version 1.28, 2005/04/07 06:56:23
|
Line 34 use Apache::Constants qw(:common);
|
Line 34 use Apache::Constants qw(:common);
|
use Apache::lonmsg(); |
use Apache::lonmsg(); |
use Apache::loncommon; |
use Apache::loncommon; |
use Apache::lonlocal; |
use Apache::lonlocal; |
|
use Apache::lonnet; |
|
|
sub menu { |
sub menu { |
my $r=shift; |
my $r=shift; |
Line 65 sub menu {
|
Line 66 sub menu {
|
<b><a href="/adm/email?compose=individual">$lt{'smu'}</a></b> |
<b><a href="/adm/email?compose=individual">$lt{'smu'}</a></b> |
</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'}))) { |
$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 93 sub handler {
|
Line 94 sub handler {
|
# |
# |
# Start document |
# Start document |
# |
# |
|
my $html=&Apache::lonxml::xmlbegin(); |
$r->print(<<END); |
$r->print(<<END); |
<html> |
$html |
<head> |
<head> |
<title>The LearningOnline Network with CAPA</title> |
<title>The LearningOnline Network with CAPA</title> |
</head> |
</head> |