version 1.395, 2006/12/24 22:13:19
|
version 1.396, 2007/01/05 06:43:34
|
Line 1916 sub generate_email_discuss_status {
|
Line 1916 sub generate_email_discuss_status {
|
if ((!$emailstatus{$msgid}) || ($emailstatus{$msgid} eq 'new')) { |
if ((!$emailstatus{$msgid}) || ($emailstatus{$msgid} eq 'new')) { |
my ($sendtime,$shortsubj,$fromname,$fromdomain,$status,$fromcid, |
my ($sendtime,$shortsubj,$fromname,$fromdomain,$status,$fromcid, |
$symb,$error) = &Apache::lonmsg::unpackmsgid($msgid); |
$symb,$error) = &Apache::lonmsg::unpackmsgid($msgid); |
|
&Apache::lonenc::check_decrypt(\$symb); |
|
if (($fromcid ne '') && ($fromcid ne $cid)) { |
|
next; |
|
} |
if (defined($symb)) { |
if (defined($symb)) { |
if (defined($error) && $error == 1) { |
if (defined($error) && $error == 1) { |
$error{$symb}.=','.$msgid; |
$error{$symb}.=','.$msgid; |