version 1.349, 2005/11/17 11:32:30
|
version 1.349.2.1, 2005/11/22 18:58:37
|
Line 2230 sub generate_email_discuss_status {
|
Line 2230 sub generate_email_discuss_status {
|
if ((!$emailstatus{$msgid}) || ($emailstatus{$msgid} eq 'new')) { |
if ((!$emailstatus{$msgid}) || ($emailstatus{$msgid} eq 'new')) { |
my $plain= |
my $plain= |
&Apache::lonnet::unescape(&Apache::lonnet::unescape($msgid)); |
&Apache::lonnet::unescape(&Apache::lonnet::unescape($msgid)); |
if ($plain=~/(Error|Feedback) \[([^\]]+)\]/) { |
if ($plain=~/ \[([^\]]+)\]\:/) { |
my ($what,$url)=($1,$2); |
my $url=$1; |
if ($what eq 'Error') { |
if ($plain=~/\:Error \[/) { |
$error{$url}.=','.$msgid; |
$error{$url}.=','.$msgid; |
} else { |
} else { |
$feedback{$url}.=','.$msgid; |
$feedback{$url}.=','.$msgid; |