version 1.9, 2001/07/26 21:40:27
|
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'}, |
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 |