loncom/interface/loncoursedata.pm - diff

Return to loncoursedata.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.35, 2002/10/14 19:06:21	version 1.36, 2002/10/16 13:43:34
Line 1443 sub get_classlist {	Line 1443 sub get_classlist {
firstname middlename/});	firstname middlename/});
$id = $info{'id'};	$id = $info{'id'};
}	}
# At this point, if we have the data (check for 'not available's	# Update the classlist with this students information
# we could put it back into the classlist.db file.	if ($fullname ne 'not available') {
# We have not decided to do that yet.	my $enrolldata = join(':',$end,$start,$id,$section,$fullname);
	my $reply=&Apache::lonnet::cput('classlist',
	{$student => $enrolldata},
	$cdom,$cnum);
	if ($reply !~ /^(ok\|delayed)/) {
	&Apache::lonnet::logthis('Unable to update classlist for '.
	'student '.$sname.':'.$sdom.
	' error:'.$reply);
	}
	}
}	}
my $status='Expired';	my $status='Expired';
if(((!$end) \|\| $now < $end) && ((!$start) \|\| ($now > $start))) {	if(((!$end) \|\| $now < $end) && ((!$start) \|\| ($now > $start))) {
Line 1467 sub get_classlist {	Line 1476 sub get_classlist {
1;	1;
__END__	__END__