loncom/homework/grades.pm - diff

Return to grades.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.14, 2001/08/20 19:28:37	version 1.15, 2001/08/20 23:27:27
Line 41 sub listStudents {	Line 41 sub listStudents {
my $reply=&Apache::lonnet::reply('get:'.$sdom.':'.$sname.	my $reply=&Apache::lonnet::reply('get:'.$sdom.':'.$sname.
':environment:lastname&generation&firstname&middlename',	':environment:lastname&generation&firstname&middlename',
&Apache::lonnet::homeserver($sname,$sdom));	&Apache::lonnet::homeserver($sname,$sdom));
print "reply=$reply<br>";	#print "reply=$reply<br>";
my (@nameparts) = split /&/,$reply;	my (@nameparts) = split /&/,$reply;
# my $sfullname = $Apache::lonnet::unescape($nameparts[0]);	# my $sfullname = $Apache::lonnet::unescape($nameparts[0]);

Line 91 sub getclasslist {	Line 91 sub getclasslist {
my ($end,$start)=split(/:/,$value);	my ($end,$start)=split(/:/,$value);
# still a student?	# still a student?
if (($hideexpired) && ($end) && ($end < $now)) {	if (($hideexpired) && ($end) && ($end < $now)) {
print "Skipping:$name:$end:$now<br />\n";	#print "Skipping:$name:$end:$now<br />\n";
next;	next;
}	}
print "record=$record<br>";	#print "record=$record<br>";
push( @{ $classlist{'allids'} }, $name);	push( @{ $classlist{'allids'} }, $name);
}	}
return (%classlist);	return (%classlist);