--- 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="

Submission Record

$uname:$udom for $url".$answer; return $result;