--- loncom/interface/lonnavmaps.pm	2001/10/26 17:09:04	1.18
+++ loncom/interface/lonnavmaps.pm	2002/01/01 20:33:15	1.23
@@ -1,6 +1,30 @@
 # The LearningOnline Network with CAPA
 # Navigate Maps Handler
 #
+# $Id: lonnavmaps.pm,v 1.23 2002/01/01 20:33:15 www Exp $
+#
+# Copyright Michigan State University Board of Trustees
+#
+# This file is part of the LearningOnline Network with CAPA (LON-CAPA).
+#
+# LON-CAPA is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# LON-CAPA is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with LON-CAPA; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+#
+# /home/httpd/html/adm/gpl.txt
+#
+# http://www.lon-capa.org/
+#
 # (Page Handler
 #
 # (TeX Content Handler
@@ -10,6 +34,9 @@
 # 10/02,10/10,10/14,10/16,10/18,10/19,10/31,11/6,11/14,11/16 Gerd Kortemeyer)
 #
 # 3/1/1,6/1,17/1,29/1,30/1,2/8,9/21,9/24,9/25 Gerd Kortemeyer
+# YEAR=2002
+# 1/1 Gerd Kortemeyer
+#
 
 package Apache::lonnavmaps;
 
@@ -40,7 +67,6 @@ my %courseopt;
 my %useropt;
 my %parmhash;
 
-
 # ------------------------------------------------------------------ Euclid gcd
 
 sub euclid {
@@ -444,11 +470,56 @@ sub handler {
 # ---------------------------------------------------------------- Send headers
 
                           $r->content_type('text/html');
+                          &Apache::loncommon::no_cache($r);
                           $r->send_http_header;
+
 		          my $date=localtime;
+		          my $now=time;
+# ----------------------------------------- Get email status and discussiontime
+
+		      my %emailstatus=&Apache::lonnet::dump('email_status');
+                      my $logouttime=$emailstatus{'logout'};
+                      my $courseleave=
+                         $emailstatus{'logout_'.$ENV{'request.course.id'}};
+                      my $lastcheck=
+                         ($courseleave>$logouttime?$courseleave:$logouttime);
+
+                      my %discussiontimes=&Apache::lonnet::dump(
+                         '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>'.&Apache::loncommon::cacheheader().
-                   '<head><title>Navigate LON-CAPA Maps</title></head>');
+		   '<html><head><title>Navigate LON-CAPA Maps</title></head>');
 			  $r->print('<body bgcolor="#FFFFFF"');
                           if (($currenturl=~/^\/res/) &&
                               ($currenturl!~/^\/res\/adm/)) {
@@ -457,8 +528,13 @@ sub handler {
 			  }
                           $r->print('><script>window.focus();</script>'.
                            '<img align=right src=/adm/lonIcons/lonlogos.gif>'.
-                                    '<h1>Navigate Course Map</h1>');
+                                    '<h1>Navigate Course Map</h1>'.
+                                    "<h3>$date</h3>");
 		      $r->rflush();
+                      $r->print(
+ '<img src="/adm/lonMisc/chat.gif"> New discussion since '.
+ localtime($lastcheck).
+ '<br><img src="/adm/lonMisc/feedback.gif"> New message (click to open)<p>'); 
                       if (($currenturl=~/^\/res/) &&
                           ($currenturl!~/^\/res\/adm/)) {
 		       $r->print('<a href="#curloc">Current Location</a><p>');
@@ -533,9 +609,41 @@ sub handler {
                               }
 			      if ($hash{'src_'.$rid} eq $currenturl) {
                                   $add=$add.'<a name="curloc"></a>'.
-				      '<font color=red><b>-&gt; </b></font>';
+			  '<font color=red size=+2><b>&gt; </b></font>';
                                   $adde=
-                                '<font color=red><b> &lt;-</b></font>'.$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.'___'.$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.