--- loncom/homework/grades.pm 2003/03/14 17:46:31 1.72 +++ 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.72 2003/03/14 17:46:31 ng Exp $ +# $Id: grades.pm,v 1.74 2003/03/23 07:22:58 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1343,7 +1343,7 @@ sub processHandGrade { foreach (@msgnum) { $message.=$ENV{'form.'.$_} if ($_ =~ /savemsg|newmsg/ && $_ ne ''); } - $message =~ s/\s+/ /g; + #$message =~ s/\s+/ /g; $msgstatus = &Apache::lonmsg::user_normal_msg ($uname,$udom, $ENV{'form.msgsub'},$message); } @@ -2365,7 +2365,7 @@ LISTJAVASCRIPT $result.='<form action="/adm/grades" method="post" name="displayPage">'."<br>\n"; $result.=' <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'});