|
version 1.8, 2001/07/26 20:26:43
|
version 1.10, 2001/07/27 20:17:14
|
|
Line 151 sub user_crit_received {
|
Line 151 sub user_crit_received {
|
| $contents{'subject'}.'" dated '.$contents{'time'}.".\n\n" |
$contents{'subject'}.'" dated '.$contents{'time'}.".\n\n" |
| .'Message ID: '.$contents{'msgid'}); |
.'Message ID: '.$contents{'msgid'}); |
| $status.=' trans: '. |
$status.=' trans: '. |
| &Apache::lonnet::put('nohist_email',$contents{'msgid'} => $message); |
&Apache::lonnet::put('nohist_email',{$contents{'msgid'} => $message}); |
| $status.=' del: '. |
$status.=' del: '. |
| &Apache::lonnet::del('critical',$contents{'msgid'}); |
&Apache::lonnet::del('critical',[$contents{'msgid'}]); |
| &Apache::lonnet::log($ENV{'user.domain'},$ENV{'user.name'}, |
&Apache::lonnet::log($ENV{'user.domain'},$ENV{'user.name'}, |
| $ENV{'user.home'},'Received critical message '. |
$ENV{'user.home'},'Received critical message '. |
| $contents{'msgid'}. |
$contents{'msgid'}. |
|
Line 194 sub statuschange {
|
Line 194 sub statuschange {
|
| unless ($status{$msgid}) { $status{$msgid}='new'; } |
unless ($status{$msgid}) { $status{$msgid}='new'; } |
| unless (($status{$msgid} eq 'replied') || |
unless (($status{$msgid} eq 'replied') || |
| ($status{$msgid} eq 'forwarded')) { |
($status{$msgid} eq 'forwarded')) { |
| &Apache::lonnet::put('email_status',($msgid => $newstatus)); |
&Apache::lonnet::put('email_status',{$msgid => $newstatus}); |
| } |
} |
| } |
} |
| # ===================================================================== Handler |
# ===================================================================== Handler |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonmsg.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface