loncom/interface/loncommunicate.pm - diff

Return to loncommunicate.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.17, 2003/10/04 20:49:40	version 1.18, 2004/01/14 22:08:23
Line 73 END	Line 73 END
'op' => 'Open',	'op' => 'Open',
'do' => 'Domain'	'do' => 'Domain'
);	);
	my %help=();
	foreach ('Course_Face_To_Face_Records,Course_Critical_Message',
	'Course_Broadcast_Message') {
	$help{$_}=&Apache::loncommon::help_open_topic($_);
	}

$r->print(&Apache::loncommon::bodytag("Communication and Messages"));	$r->print(&Apache::loncommon::bodytag("Communication and Messages"));
$r->print(<<END);	$r->print(<<END);
Line 91 END	Line 96 END
(&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>	<b><a href="/adm/email?compose=group">$lt{'bmc'}</a></b>$help{'Course_Broadcast_Message'}
</td></tr>	</td></tr>
<tr><td bgcolor="#FFFFAA">	<tr><td bgcolor="#FFFFAA">
<b><a href="/adm/email?compose=upload">$lt{'dmu'}</a></b>	<b><a href="/adm/email?compose=upload">$lt{'dmu'}</a></b>
</td></tr>	</td></tr>
<tr><td bgcolor="#FFFFAA">	<tr><td bgcolor="#FFFFAA">
<b><a href="/adm/email?recordftf=query">$lt{'unr'}</a></b>	<b><a href="/adm/email?recordftf=query">$lt{'unr'}</a></b>$help{'Course_Face_To_Face_Records,Course_Critical_Message'}
</td></tr>	</td></tr>

END	END