--- loncom/homework/grades.pm 2001/06/08 19:44:48 1.8
+++ loncom/homework/grades.pm 2001/07/26 15:50:25 1.9
@@ -163,7 +163,6 @@ sub setstudentgrade {
if ( scalar(keys(%newrecord)) > 0 ) {
$newrecord{"resource.regrader"}="$ENV{'user.name'}:$ENV{'user.domain'}";
&Apache::lonnet::cstore(\%newrecord,$symb,$courseid,$domain,$stuname);
-
$result.="Stored away ".scalar(keys(%newrecord))." elements.
\n";
}
return $result;
@@ -178,8 +177,7 @@ sub submission {
if ($uname eq '') { &moreinfo($request,"Unable to find student"); return ''; }
my $symb=&Apache::lonnet::symbread($url);
if ($symb eq '') { $request->print("Unable to handle ambiguous references:$url:."); return ''; }
- my $home=&Apache::lonnet::homeserver($uname,$udom);
- my $answer=&Apache::loncommon::get_previous_attempt($symb,$uname,$udom,$home,
+ my $answer=&Apache::loncommon::get_previous_attempt($symb,$uname,$udom,
$ENV{'request.course.id'});
my $result="