|
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; |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonnavmaps.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface