--- loncom/interface/loncommunicate.pm 2001/01/03 16:20:59 1.1 +++ loncom/interface/loncommunicate.pm 2001/08/16 01:42:07 1.5 @@ -9,33 +9,66 @@ # # 3/1/1 Gerd Kortemeyer) # -# 3/1 Gerd Kortemeyer +# 3/1,2/6,7/27,8/3,8/15 Gerd Kortemeyer # package Apache::loncommunicate; use strict; use Apache::Constants qw(:common); +use Apache::lonmsg(); sub handler { my $r = shift; $r->content_type('text/html'); $r->send_http_header; return OK if $r->header_only; - -# --------------------------------------------------- Print login screen header +# +# Start document +# $r->print(< The LearningOnline Network with CAPA +

Communicate

- - - ENDDOCUMENT + my $st='
'; + my $en='
'; + $r->print('

'.$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. + '

'.$st. + 'Upload messages to course'.$en); + } + $r->print(<New Messages + + +ENDTABLE + map { + my ($sendtime,$shortsubj,$fromname,$fromdomain,$status)= + &Apache::lonmsg::unpackmsgid($_); + if ($status eq 'new') { + $r->print( + ''); + } + } sort split(/\&/,&Apache::lonnet::reply('keys:'. + $ENV{'user.domain'}.':'. + $ENV{'user.name'}.':nohist_email', + $ENV{'user.home'})); + $r->print('
 DateUsernameDomainSubject
Open'.localtime($sendtime).''. + $fromname.''.$fromdomain.''. + &Apache::lonnet::unescape($shortsubj).'
'); return OK; -} +} 1; __END__