loncom/interface/loncommunicate.pm - diff

Return to loncommunicate.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.27, 2005/02/17 08:29:42	version 1.29, 2005/05/20 17:00:40
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'}) \|\|
	&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'}