--- loncom/interface/loncommunicate.pm 2001/07/28 03:54:05 1.3 +++ loncom/interface/loncommunicate.pm 2001/08/03 18:09:39 1.4 @@ -9,7 +9,7 @@ # # 3/1/1 Gerd Kortemeyer) # -# 3/1,2/6,7/27 Gerd Kortemeyer +# 3/1,2/6,7/27,8/3 Gerd Kortemeyer # package Apache::loncommunicate; @@ -33,10 +33,23 @@ sub handler {
'; + my $en=' |
'.$st.'All Messages'.$en.'
'.$st. + 'Send message to user(s)'. + $en); + if (($ENV{'request.course.id'}) && + (&Apache::lonnet::allowed('srm',$ENV{'request.course.id'}))) { + $r->print( + '
'.$st.
+ 'Broadcast message to course'.$en);
+ }
+ $r->print(< All Messages'.
- ' Send message to user(s)');
- if (($ENV{'request.course.id'}) &&
- (&Apache::lonnet::allowed('srm',$ENV{'request.course.id'}))) {
- $r->print(
- ' Broadcast message to course');
- }
- $r->print('
-ENDDOCUMENT
+ENDTABLE
map {
my ($sendtime,$shortsubj,$fromname,$fromdomain,$status)=
&Apache::lonmsg::unpackmsgid($_);
@@ -51,15 +64,7 @@ ENDDOCUMENT
$ENV{'user.domain'}.':'.
$ENV{'user.name'}.':nohist_email',
$ENV{'user.home'}));
- $r->print(
- ' 
Date Username Domain Subject