--- loncom/interface/loncommunicate.pm 2001/01/03 16:20:59 1.1 +++ loncom/interface/loncommunicate.pm 2001/02/06 16:51:24 1.2 @@ -9,33 +9,52 @@ # # 3/1/1 Gerd Kortemeyer) # -# 3/1 Gerd Kortemeyer +# 3/1,2/6 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

- - - +

New Messages

+ + ENDDOCUMENT + 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).'

All Messages'); return OK; -} +} 1; __END__