loncom/interface/loncommunicate.pm - diff

Return to loncommunicate.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.32, 2006/04/13 17:57:17	version 1.34, 2006/05/30 20:09:25
Line 38 use Apache::lonnet;	Line 38 use Apache::lonnet;

sub menu {	sub menu {
my $r=shift;	my $r=shift;
	my $crstype = 'Course';
	my $usertype = 'Student';
	if (defined($env{'course.'.$env{'request.course.id'}.'.type'})) {
	$crstype = $env{'course.'.$env{'request.course.id'}.'.type'};
	if ($crstype eq 'Group') {
	$usertype = 'Member';
	}
	}
my %lt=&Apache::lonlocal::texthash(	my %lt=&Apache::lonlocal::texthash(
'mnf' => 'Make New Folder',	'mnf' => 'Make New Folder',
'vcm' => 'View Critical Messages',	'vcm' => 'View Critical Messages',
'smu' => 'Send Message to User(s)',	'smu' => 'Send Message to User(s)',
'bmc' => 'Broadcast Message to Course',	'bmc' => "Broadcast Message to $crstype",
'dmu' => 'Distribute Messages from Uploaded File to Course',	'dmu' => "Distribute Messages from Uploaded File to $crstype",
'unr' =>	'unr' =>
'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 Student Communication during Exams',	'cbs' => "Configure Blocking of $usertype Communication during Exams",
'blog' => 'Edit to my Blogs'	'blog' => 'Add or Edit Blog Entries'

);	);
my %help=();	my %help=();