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> </th> |
<table border=2><tr><th> </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; |
} |
} |