loncom/interface/loncommunicate.pm - diff

Return to loncommunicate.pm CVS log

Up to [LON-CAPA] / loncom / interface

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>