--- loncom/interface/lonmsgdisplay.pm 2008/12/03 21:09:44 1.99
+++ loncom/interface/lonmsgdisplay.pm 2008/12/14 02:45:48 1.104
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Routines for messaging display
#
-# $Id: lonmsgdisplay.pm,v 1.99 2008/12/03 21:09:44 schafran Exp $
+# $Id: lonmsgdisplay.pm,v 1.104 2008/12/14 02:45:48 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -243,9 +243,9 @@ function folder_choice(targetform,caller
-
'.
- '
'.&mt('New Folder').' '.
+ '
'.&mt('Name').' '.
'
@@ -353,7 +353,7 @@ sub makefolder {
}
} else {
$outcome =
- &mt('Error - could not obtain lock on email folders record.');
+ &mt('Error - could not obtain lock on message folders record.');
}
return ($outcome,$warning);
}
@@ -559,8 +559,7 @@ sub disgroup {
my $result;
# Needs to be in a course
if (!($env{'request.course.fn'})) {
- $result = &mt('Error: you must have a course role selected to be able to send a broadcast
-e-mail to a group in the course.');
+ $result = &mt('Error: you must have a course role selected to be able to send a broadcast message to a group in the course.');
return $result;
}
if ($cdom eq '' || $cnum eq '') {
@@ -1108,10 +1107,10 @@ ENDDISHEADER
}
my $localsenttime = &Apache::lonlocal::locallocaltime($sendtime);
my $count = $n +1;
- $r->print('
');
+
+# Functions and Actions
+ my $li_start='• ';
+ my $li_end=' ';
+
+# Prepare available functions
+ my $functionlist='';
if (!$content{'noreplies'}) {
- $r->print('
'
+ );
+
+# Prepare available actions
my $symb;
if (defined($content{'symb'})) {
$symb = $content{'symb'};
@@ -2294,33 +2330,40 @@ sub displaymessage {
}
if ($env{'user.adv'}) {
my $actionlist='';
+
if (&Apache::lonnet::allowed('vgr',$env{'request.course.id'})) {
- $actionlist.='