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

[bowersj2]

bowersj2		Mon Sep 30 12:45:02 2002 EDT

  Modified files:              
    /loncom/interface	lonnavmaps.pm 
  Log:
  Correction commit for the last panic commit. This at least actually *runs*.
  No new features.
  
  
Index: loncom/interface/lonnavmaps.pm
diff -u loncom/interface/lonnavmaps.pm:1.55 loncom/interface/lonnavmaps.pm:1.56
--- loncom/interface/lonnavmaps.pm:1.55	Thu Sep 26 12:56:21 2002
+++ loncom/interface/lonnavmaps.pm	Mon Sep 30 12:45:01 2002
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Navigate Maps Handler
 #
-# $Id: lonnavmaps.pm,v 1.55 2002/09/26 16:56:21 bowersj2 Exp $
+# $Id: lonnavmaps.pm,v 1.56 2002/09/30 16:45:01 bowersj2 Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1204,11 +1204,11 @@
         my ($cdom,$cnum)=split(/\_/,$cid);
         
         my %emailstatus = &Apache::lonnet::dump('email_status');
-        my logoutTime = $emailstatus{'logout'};
-        my courseLeaveTime = $emailstatus{'logout_'.$ENV{'request.course.id'}};
+        my $logoutTime = $emailstatus{'logout'};
+        my $courseLeaveTime = $emailstatus{'logout_'.$ENV{'request.course.id'}};
         $self->{LAST_CHECK} = ($courseLeaveTime > $logoutTime ?
                                $courseLeaveTime : $logoutTime);
-        my %discussiontime = &Apache::lonnet::dump{'discussiontimes', 
+        my %discussiontime = &Apache::lonnet::dump('discussiontimes', 
                                                    $cdom, $cnum);
         my %feedback=();
         my %error=();
@@ -1256,8 +1256,8 @@
     my $self = shift;
     my $uri = &Apache::lonnet::clutter($ENV{'request.course.uri'});
 
-    my $firstres = $self->{NAV_HASH}->{'map_start_$uri'};
-    my $lastres = $self->{NAV_HASH}->{'map_finish_$uri'};
+    my $firstres = $self->{NAV_HASH}->{"map_start_$uri"};
+    my $lastres = $self->{NAV_HASH}->{"map_finish_$uri"};
     return $firstres && $lastres;
 }