loncom/interface/loncommunicate.pm - diff

Return to loncommunicate.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.5, 2001/08/16 01:42:07	version 1.6, 2001/11/05 20:36:43
Line 9	Line 9
#	#
# 3/1/1 Gerd Kortemeyer)	# 3/1/1 Gerd Kortemeyer)
#	#
# 3/1,2/6,7/27,8/3,8/15 Gerd Kortemeyer	# 3/1,2/6,7/27,8/3,8/15,
	# 11/5/01 Gerd Kortemeyer
#	#
package Apache::loncommunicate;	package Apache::loncommunicate;

Line 36 sub handler {	Line 37 sub handler {
ENDDOCUMENT	ENDDOCUMENT
my $st='<table><tr><td bgcolor="#FFFFAA"><b>';	my $st='<table><tr><td bgcolor="#FFFFAA"><b>';
my $en='</b></td><tr></table>';	my $en='</b></td><tr></table>';
$r->print('<p>'.$st.'<a href="/adm/email/">All Messages</a>'.$en.'<p>'.$st.	$r->print('<p>'.
'<a href="/adm/email?compose=individual">Send message to user(s)</a>'.	$st.'<a href="/adm/email/">All Messages</a>'.$en.'<p>'.
$en);	$st.'<a href="/adm/email?critical=display">Critical Messages</a>'.$en.'<p>'.
	$st.'<a href="/adm/email?compose=individual">Send message to user(s)</a>'.$en
	);
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(	$r->print(