[LON-CAPA-cvs] cvs: loncom /interface lonnavmaps.pm lonquickgrades.pm
albertel
lon-capa-cvs@mail.lon-capa.org
Sun, 23 Mar 2003 07:12:41 -0000
albertel Sun Mar 23 02:12:41 2003 EDT
Modified files:
/loncom/interface lonnavmaps.pm lonquickgrades.pm
Log:
- removing some error messages
- auto cleanup of navmaps seems to occur properly now
- quickgrades once again works
Index: loncom/interface/lonnavmaps.pm
diff -u loncom/interface/lonnavmaps.pm:1.165 loncom/interface/lonnavmaps.pm:1.166
--- loncom/interface/lonnavmaps.pm:1.165 Fri Mar 21 17:41:12 2003
+++ loncom/interface/lonnavmaps.pm Sun Mar 23 02:12:41 2003
@@ -2,7 +2,7 @@
# The LearningOnline Network with CAPA
# Navigate Maps Handler
#
-# $Id: lonnavmaps.pm,v 1.165 2003/03/21 22:41:12 albertel Exp $
+# $Id: lonnavmaps.pm,v 1.166 2003/03/23 07:12:41 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -42,7 +42,7 @@
# Jeremy Bowers ... lots of days
package Apache::lonnavmaps;
-use vars qw($test @refsToUntie);
+use vars qw($test @refsToUntie %navmaphash %parmhash);
use strict;
use Apache::Constants qw(:common :http);
@@ -50,10 +50,6 @@
use Apache::lonmenu();
use POSIX qw (floor strftime);
-my %navmaphash;
-my %parmhash;
-@refsToUntie;
-
# symbolic constants
sub SYMB { return 1; }
sub URL { return 2; }
@@ -126,6 +122,7 @@
&Apache::lonnet::logthis('Failed cleanup navmaps: reference');
}
}
+ @refsToUntie = ();
}
sub handler {
Index: loncom/interface/lonquickgrades.pm
diff -u loncom/interface/lonquickgrades.pm:1.11 loncom/interface/lonquickgrades.pm:1.12
--- loncom/interface/lonquickgrades.pm:1.11 Mon Mar 10 01:42:32 2003
+++ loncom/interface/lonquickgrades.pm Sun Mar 23 02:12:41 2003
@@ -64,7 +64,7 @@
$r->send_http_header;
# Create the nav map
- my $navmap = Apache::lonnavmaps::navmap->new(
+ my $navmap = Apache::lonnavmaps::navmap->new($r,
$ENV{"request.course.fn"}.".db",
$ENV{"request.course.fn"}."_parms.db", 1, 0);