--- loncom/homework/grades.pm	2003/03/17 19:08:50	1.73
+++ loncom/homework/grades.pm	2003/03/23 07:22:58	1.74
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # The LON-CAPA Grading handler
 #
-# $Id: grades.pm,v 1.73 2003/03/17 19:08:50 albertel Exp $
+# $Id: grades.pm,v 1.74 2003/03/23 07:22:58 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2365,7 +2365,7 @@ LISTJAVASCRIPT
 
     $result.='<form action="/adm/grades" method="post" name="displayPage">'."<br>\n";
     $result.='&nbsp;<b>Problems from:</b> <select name="selectpage">'."\n";
-    my ($titles,$symbx) = &getSymbMap();
+    my ($titles,$symbx) = &getSymbMap($request);
     my ($curpage,$type,$mapId) = ($symb =~ /(.*?\.(page|sequence))___(\d+)___/); 
     my $ctr=0;
     foreach (@$titles) {
@@ -2438,7 +2438,8 @@ LISTJAVASCRIPT
 }
 
 sub getSymbMap {
-    my $navmap = Apache::lonnavmaps::navmap-> new(
+    my ($request) = @_;
+    my $navmap = Apache::lonnavmaps::navmap-> new($request,
 						  $ENV{'request.course.fn'}.'.db',
 						  $ENV{'request.course.fn'}.'_parms.db',1, 1);
 
@@ -2514,7 +2515,7 @@ sub displayPage {
     &sub_page_js($request);
     $request->print($result);
 
-    my $navmap = Apache::lonnavmaps::navmap-> new(
+    my $navmap = Apache::lonnavmaps::navmap-> new($request,
 						  $ENV{'request.course.fn'}.'.db',
 						  $ENV{'request.course.fn'}.'_parms.db',1, 1);
     my ($mapUrl, $id, $resUrl) = split(/___/, $ENV{'form.page'});
@@ -2668,7 +2669,7 @@ sub updateGradeByPage {
 
     $request->print($result);
 
-    my $navmap = Apache::lonnavmaps::navmap-> new(
+    my $navmap = Apache::lonnavmaps::navmap-> new($request,
 						  $ENV{'request.course.fn'}.'.db',
 						  $ENV{'request.course.fn'}.'_parms.db',1, 1);
     my ($mapUrl, $id, $resUrl) = split(/___/, $ENV{'form.page'});