--- loncom/homework/grades.pm 2002/05/08 18:59:37 1.23
+++ loncom/homework/grades.pm 2002/06/20 21:21:16 1.28
@@ -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.28 2002/06/20 21:21:16 ng 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('
Verifying Submission Receipt '.$receipt.'
');
my $matches=0;
- my (%classlist) = &getclasslist($cdom,$cnum,$chome,'0');
+ my (%classlist) = &getclasslist($cdom,$cnum,'0');
foreach my $student ( sort(@{ $classlist{'allids'} }) ) {
my ($uname,$udom)=split(/\:/,$student);
if ($receipt eq
@@ -91,12 +90,11 @@ sub verifyreceipt {
sub listStudents {
my ($request) = shift;
- my $chome=$ENV{"course.$ENV{'request.course.id'}.home"};
my $cdom=$ENV{"course.$ENV{'request.course.id'}.domain"};
my $cnum=$ENV{"course.$ENV{'request.course.id'}.num"};
my $hostver=unpack("%32C*",$Apache::lonnet::perlvar{'lonHostID'});
$request->print(<Verify a Submission Receipt Issued by this Server
+