--- loncom/interface/lonnavmaps.pm	2002/01/01 16:02:28	1.21
+++ loncom/interface/lonnavmaps.pm	2002/01/01 18:37:59	1.22
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Navigate Maps Handler
 #
-# $Id: lonnavmaps.pm,v 1.21 2002/01/01 16:02:28 www Exp $
+# $Id: lonnavmaps.pm,v 1.22 2002/01/01 18:37:59 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -488,7 +488,36 @@ sub handler {
                          'discussiontimes',
                          $ENV{'course.'.$ENV{'request.course.id'}.'.domain'},
  		         $ENV{'course.'.$ENV{'request.course.id'}.'.num'});
-                     
+                       
+                      my %feedback=();
+                      my %error=();
+                      foreach my $msgid (
+                                     split(/\&/,&Apache::lonnet::reply('keys:'.
+					$ENV{'user.domain'}.':'.
+                                        $ENV{'user.name'}.':nohist_email',
+                                        $ENV{'user.home'}))) {
+                          $msgid=&Apache::lonnet::unescape($msgid);
+                          my $plain=&Apache::lonnet::unescape(
+                                    &Apache::lonnet::unescape($msgid));
+			  if ($plain=~/(Error|Feedback) \[([^\]]+)\]/) {
+			      my ($what,$url)=($1,$2);
+                              my %status=
+                                 &Apache::lonnet::get('email_status',[$msgid]);
+                              if ($status{$msgid}=~/^error\:/) { 
+                                 $status{$msgid}=''; 
+                              }
+
+			      if (($status{$msgid} eq 'new') || 
+                                  (!$status{$msgid})) { 
+                                  if ($what eq 'Error') {
+                                     $error{$url}.=','.$msgid; 
+				  } else {
+				      $feedback{$url}.=','.$msgid;
+                                  }
+                              }
+			  }
+		      }
+# ----------------------------------------------------------- Start Page Output
                           $r->print(
 		   '<html><head><title>Navigate LON-CAPA Maps</title></head>');
 			  $r->print('<body bgcolor="#FFFFFF"');
@@ -580,14 +609,38 @@ sub handler {
                                   $adde=
                           '<font color=red size=+2><b> &lt;</b></font>'.$adde;
                               }
+                              my $src=
+                                &Apache::lonnet::declutter($hash{'src_'.$rid});
                               $rid=~/^(\d+)\.(\d+)$/;
-    my $symb=&Apache::lonnet::declutter($hash{'map_id_'.$1}).'___'.$2.'___'.
-	     &Apache::lonnet::declutter($hash{'src_'.$rid});
+			      my $symb=
+           &Apache::lonnet::declutter($hash{'map_id_'.$1}).'___'.$2.'___'.$src;
                               if ($discussiontimes{$symb}>$lastcheck) {
                                  $adde=
                                  '<img border=0 src="/adm/lonMisc/chat.gif">'.
 				     $adde;
                               }
+                              if ($error{$src}) {
+				  foreach (split(/\,/,$error{$src})) {
+			             if ($_) {
+                                        $adde=
+			 '&nbsp;<a href="/adm/email?display='.
+                         &Apache::lonnet::escape($_).
+                         '"><img src="/adm/lonMisc/bomb.gif" border=0></a>'
+                                        .$adde;
+                                     }
+			          }
+                              }
+                              if ($feedback{$src}) {
+				  foreach (split(/\,/,$feedback{$src})) {
+			             if ($_) {
+                                        $adde=
+			 '&nbsp;<a href="/adm/email?display='.
+                         &Apache::lonnet::escape($_).
+                         '"><img src="/adm/lonMisc/feedback.gif" border=0></a>'
+                                        .$adde;
+                                     }
+			          }
+                              }
                               $r->print($add.'<a href="'.$hash{'src_'.$rid}.
                                 '">'.$hwk.
                                 $hash{'title_'.$rid}.$hwke.'</a>'.$adde);
