--- loncom/homework/grades.pm 2001/07/27 18:20:16 1.10
+++ loncom/homework/grades.pm 2001/08/20 23:27:27 1.15
@@ -2,6 +2,7 @@
# 2/9,2/13 Guy Albertelli
# 6/8 Gerd Kortemeyer
# 7/26 H.K. Ng
+# 8/20 Gerd Kortemeyer
package Apache::grades;
use strict;
@@ -40,7 +41,7 @@ sub listStudents {
my $reply=&Apache::lonnet::reply('get:'.$sdom.':'.$sname.
':environment:lastname&generation&firstname&middlename',
&Apache::lonnet::homeserver($sname,$sdom));
- print "reply=$reply
";
+ #print "reply=$reply
";
my (@nameparts) = split /&/,$reply;
# my $sfullname = $Apache::lonnet::unescape($nameparts[0]);
@@ -90,10 +91,10 @@ sub getclasslist {
my ($end,$start)=split(/:/,$value);
# still a student?
if (($hideexpired) && ($end) && ($end < $now)) {
- print "Skipping:$name:$end:$now
\n";
+ #print "Skipping:$name:$end:$now
\n";
next;
}
- print "record=$record
";
+ #print "record=$record
";
push( @{ $classlist{'allids'} }, $name);
}
return (%classlist);
@@ -212,10 +213,9 @@ 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="