--- loncom/interface/lonmsg.pm 2001/08/03 14:00:07 1.12 +++ loncom/interface/lonmsg.pm 2001/08/03 17:16:48 1.14 @@ -201,8 +201,12 @@ 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}); + } } -# ===================================================================== Handler + +# ==================================================== Display Critical Message sub discrit { my $r=shift; @@ -216,11 +220,75 @@ sub discrit { $r->print('
'.$content{'message'}.''. - ''); + ''. + ''); } sort keys %what; $r->print(''); } +# =============================================================== Compose reply + +sub comprep { + my ($r,$msgid)=@_; + my %message=&Apache::lonnet::get('nohist_email',[$msgid]); + my %content=&unpackagemsg($message{$msgid}); + my $quotemsg='> '.$content{'message'}; + $quotemsg=~s/\r/\n/g; + $quotemsg=~s/\f/\n/g; + $quotemsg=~s/\n+/\n\> /g; + my $subject='Re: '.$content{'subject'}; + my $dispcrit=''; + if (&Apache::lonnet::allowed('srm',$ENV{'request.course.id'})) { + $dispcrit= + ' Send as critical message
'; + } + $r->print(<<"ENDREPLY"); +
+ENDREPLY +} + +sub disall { + my $r=shift; + $r->print('  | Date | '. + 'Username | Domain | Subject | Status | |
---|---|---|---|---|---|---|
Open | Delete | '.localtime($sendtime).' | '. + $fromname.' | '.$fromdomain.' | '. + &Apache::lonnet::unescape($shortsubj).' | '. + $status.' |