loncom/interface/loncommunicate.pm - diff

Return to loncommunicate.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.4, 2001/08/03 18:09:39	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 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(
'<p>'.$st.	'<p>'.$st.
'<a href="/adm/email?compose=group">Broadcast message to course</a>'.$en);	'<a href="/adm/email?compose=group">Broadcast message to course</a>'.$en.
	'<p>'.$st.
	'<a href="/adm/email?compose=upload">Upload messages to course</a>'.$en);
}	}
$r->print(<<ENDTABLE);	$r->print(<<ENDTABLE);
<h3>New Messages</h3>	<h3>New Messages</h3>