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.5, 2001/08/16 01:42:07
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 Gerd Kortemeyer
#	#
package Apache::loncommunicate;	package Apache::loncommunicate;

Line 43 ENDDOCUMENT	Line 43 ENDDOCUMENT
(&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>