--- loncom/interface/lonmsg.pm 2001/08/03 14:54:52 1.13 +++ loncom/interface/lonmsg.pm 2001/08/03 18:47:18 1.15 @@ -201,7 +201,11 @@ sub statuschange { ($status{$msgid} eq 'forwarded')) { &Apache::lonnet::put('email_status',{$msgid => $newstatus}); } + if (($newstatus eq 'deleted') || ($newstatus eq 'new')) { + &Apache::lonnet::put('email_status',{$msgid => $newstatus}); + } } + # ==================================================== Display Critical Message sub discrit { @@ -251,6 +255,81 @@ $dispcrit ENDREPLY } +# ======================================================== Display all messages + +sub disall { + my $r=shift; + $r->print('
  | Date | '. + 'Username | Domain | Subject | Status | |
---|---|---|---|---|---|---|
Open | Delete | '.localtime($sendtime).' | '. + $fromname.' | '.$fromdomain.' | '. + &Apache::lonnet::unescape($shortsubj).' | '. + $status.' |