loncom/interface/loncommunicate.pm - diff

Return to loncommunicate.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.2, 2001/02/06 16:51:24	version 1.3, 2001/07/28 03:54:05
Line 9	Line 9
#	#
# 3/1/1 Gerd Kortemeyer)	# 3/1/1 Gerd Kortemeyer)
#	#
# 3/1,2/6 Gerd Kortemeyer	# 3/1,2/6,7/27 Gerd Kortemeyer
#	#
package Apache::loncommunicate;	package Apache::loncommunicate;

Line 52 ENDDOCUMENT	Line 52 ENDDOCUMENT
$ENV{'user.name'}.':nohist_email',	$ENV{'user.name'}.':nohist_email',
$ENV{'user.home'}));	$ENV{'user.home'}));
$r->print(	$r->print(
'</table><p><a href="/adm/email/">All Messages</a></body></html>');	'</table><p><a href="/adm/email/">All Messages</a>'.
	'<p><a href="/adm/email?compose=individual">Send message to user(s)</a>');
	if (($ENV{'request.course.id'}) &&
	(&Apache::lonnet::allowed('srm',$ENV{'request.course.id'}))) {
	$r->print(
	'<p><a href="/adm/email?compose=group">Broadcast message to course</a>');
	}
	$r->print('</body></html>');
return OK;	return OK;
}	}