loncom/interface/loncoursedata.pm - diff

Return to loncoursedata.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.36, 2002/10/16 13:43:34	version 1.38, 2002/10/17 19:36:30
Line 1429 sub get_classlist {	Line 1429 sub get_classlist {
($end,$start,$id,$section,$fullname) = @Values;	($end,$start,$id,$section,$fullname) = @Values;
} else { # We have to get the data ourselves	} else { # We have to get the data ourselves
($end,$start) = @Values;	($end,$start) = @Values;
$section = &Apache::lonnet::usection($sdom,$sname,$cid);	$section = &Apache::lonnet::getsection($sdom,$sname,$cid);
my %info=&Apache::lonnet::get('environment',	my %info=&Apache::lonnet::get('environment',
['firstname','middlename',	['firstname','middlename',
'lastname','generation','id'],	'lastname','generation','id'],
Line 1438 sub get_classlist {	Line 1438 sub get_classlist {
if ($tmp =~/^(con_lost\|error\|no_such_host)/i) {	if ($tmp =~/^(con_lost\|error\|no_such_host)/i) {
$fullname = 'not available';	$fullname = 'not available';
$id = 'not available';	$id = 'not available';
	&Apache::lonnet::logthis('unable to retrieve environment '.
	'for '.$sname.':'.$sdom);
} else {	} else {
$fullname = &ProcessFullName(@info{qw/lastname generation	$fullname = &ProcessFullName(@info{qw/lastname generation
firstname middlename/});	firstname middlename/});