[LON-CAPA-cvs] cvs: loncom(version_2_1_X) /interface lonnavmaps.pm

[albertel]

albertel		Tue Nov 22 13:58:37 2005 EDT

  Modified files:              (Branch: version_2_1_X)
    /loncom/interface	lonnavmaps.pm 
  Log:
  - backport 1.351
  
  
Index: loncom/interface/lonnavmaps.pm
diff -u loncom/interface/lonnavmaps.pm:1.349 loncom/interface/lonnavmaps.pm:1.349.2.1
--- loncom/interface/lonnavmaps.pm:1.349	Thu Nov 17 06:32:30 2005
+++ loncom/interface/lonnavmaps.pm	Tue Nov 22 13:58:37 2005
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Navigate Maps Handler
 #
-# $Id: lonnavmaps.pm,v 1.349 2005/11/17 11:32:30 foxr Exp $
+# $Id: lonnavmaps.pm,v 1.349.2.1 2005/11/22 18:58:37 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2230,9 +2230,9 @@
 	if ((!$emailstatus{$msgid}) || ($emailstatus{$msgid} eq 'new')) {
 	    my $plain=
 		&Apache::lonnet::unescape(&Apache::lonnet::unescape($msgid));
-	    if ($plain=~/(Error|Feedback) \[([^\]]+)\]/) {
-		my ($what,$url)=($1,$2);
-		if ($what eq 'Error') {
+	    if ($plain=~/ \[([^\]]+)\]\:/) {
+		my $url=$1;
+		if ($plain=~/\:Error \[/) {
 		    $error{$url}.=','.$msgid; 
 		} else {
 		    $feedback{$url}.=','.$msgid;