loncom/interface/loncommunicate.pm - diff

Return to loncommunicate.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.7, 2001/12/19 17:17:46	version 1.8, 2002/02/05 00:01:32
Line 79 ENDDOCUMENT	Line 79 ENDDOCUMENT
<table border=2><tr><th>&nbsp</th>	<table border=2><tr><th>&nbsp</th>
<th>Date</th><th>Username</th><th>Domain</th><th>Subject</th></tr>	<th>Date</th><th>Username</th><th>Domain</th><th>Subject</th></tr>
ENDTABLE	ENDTABLE
map {	foreach (sort split(/\&/,&Apache::lonnet::reply('keys:'.
	$ENV{'user.domain'}.':'.
	$ENV{'user.name'}.':nohist_email',
	$ENV{'user.home'}))) {
my ($sendtime,$shortsubj,$fromname,$fromdomain,$status)=	my ($sendtime,$shortsubj,$fromname,$fromdomain,$status)=
&Apache::lonmsg::unpackmsgid($_);	&Apache::lonmsg::unpackmsgid($_);
if ($status eq 'new') {	if ($status eq 'new') {
Line 89 ENDTABLE	Line 92 ENDTABLE
$fromname.'</td><td>'.$fromdomain.'</td><td>'.	$fromname.'</td><td>'.$fromdomain.'</td><td>'.
&Apache::lonnet::unescape($shortsubj).'</td></tr>');	&Apache::lonnet::unescape($shortsubj).'</td></tr>');
}	}
} sort split(/\&/,&Apache::lonnet::reply('keys:'.	}
$ENV{'user.domain'}.':'.
$ENV{'user.name'}.':nohist_email',
$ENV{'user.home'}));
$r->print('</table></body></html>');	$r->print('</table></body></html>');
return OK;	return OK;
}	}