--- loncom/interface/lonnavmaps.pm 2001/12/19 17:17:46 1.20 +++ loncom/interface/lonnavmaps.pm 2002/01/01 16:02:28 1.21 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Navigate Maps Handler # -# $Id: lonnavmaps.pm,v 1.20 2001/12/19 17:17:46 albertel Exp $ +# $Id: lonnavmaps.pm,v 1.21 2002/01/01 16:02:28 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -34,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; @@ -64,7 +67,6 @@ my %courseopt; my %useropt; my %parmhash; - # ------------------------------------------------------------------ Euclid gcd sub euclid { @@ -470,7 +472,23 @@ sub handler { $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'}); + $r->print( '