--- loncom/homework/grades.pm 2002/05/08 18:59:37 1.23 +++ loncom/homework/grades.pm 2002/05/16 00:01:09 1.25 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # The LON-CAPA Grading handler # -# $Id: grades.pm,v 1.23 2002/05/08 18:59:37 www Exp $ +# $Id: grades.pm,v 1.25 2002/05/16 00:01:09 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -62,7 +62,6 @@ sub moreinfo { sub verifyreceipt { my $request=shift; my $courseid=$ENV{'request.course.id'}; - my $chome=$ENV{"course.$courseid.home"}; my $cdom=$ENV{"course.$courseid.domain"}; my $cnum=$ENV{"course.$courseid.num"}; my $receipt=unpack("%32C*",$Apache::lonnet::perlvar{'lonHostID'}).'-'. @@ -75,7 +74,7 @@ sub verifyreceipt { if ((&Apache::lonnet::allowed('mgr',$courseid)) && ($symb)) { $request->print('
Username | Domain | Name | |
---|---|---|---|
$sname | $sdom | @nameparts | ". + $request->print("\n".' |
$sname | $sdom | $fullname | ". ' |