loncom/interface/loncommunicate.pm - diff

Return to loncommunicate.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.39, 2006/12/23 06:04:50	version 1.41, 2007/01/31 16:02:49
Line 55 sub menu {	Line 55 sub menu {
'User Notes, Records of Face-to-Face Discussions, and Critical Messages',	'User Notes, Records of Face-to-Face Discussions, and Critical Messages',

'cbs' => "Configure Blocking of $usertype Communication during Exams",	'cbs' => "Configure Blocking of $usertype Communication during Exams",
'blog' => 'Add or Edit Blog Entries'

);	);
my %help=();	my %help=();
foreach ('Course_Face_To_Face_Records,Course_Critical_Message',	foreach ('Course_Face_To_Face_Records,Course_Critical_Message',
Line 88 sub menu {	Line 86 sub menu {
<td bgcolor="#FFFFAA">	<td bgcolor="#FFFFAA">
<b><a href="/adm/email?compose=individual">$lt{'smu'}</a></b>	<b><a href="/adm/email?compose=individual">$lt{'smu'}</a></b>
</td>	</td>
<td bgcolor="#FFFFAA">	<td></td>
<b><a href="/adm/$env{'user.domain'}/$env{'user.name'}/_rss.html">$lt{'blog'}</a></b>
</td>
</tr>	</tr>
END	END
if ($can_srm) {	if ($can_srm) {
Line 145 sub handler {	Line 141 sub handler {
# ---------------------------------------------------------------------- Header	# ---------------------------------------------------------------------- Header
&Apache::lonmsgdisplay::header($r);	&Apache::lonmsgdisplay::header($r);
&menu($r);	&menu($r);
&Apache::lonmsgdisplay::disall($r,'INBOX','new');	&Apache::lonmsgdisplay::disall($r);
$r->print(&Apache::loncommon::end_page());	$r->print(&Apache::loncommon::end_page());
return OK;	return OK;
}	}