loncom/interface/lonchart.pm - diff

Return to lonchart.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.2, 2001/01/31 23:28:06	version 1.4, 2001/02/06 20:50:04
Line 209 sub handler {	Line 209 sub handler {
'Data not available: '.$name;	'Data not available: '.$name;
} else {	} else {
my %reply=&Apache::lonnet::idrget($sdom,$sname);	my %reply=&Apache::lonnet::idrget($sdom,$sname);
my $reply=&Apache::lonnet::reply('get:'.$sdom.':'.$sname.	my $reply=&Apache::lonnet::reply('get:'.$sdom.':'.$sname.
':environment:firstname&middlename&lastname&generation',	':environment:lastname&generation&firstname&middlename',
&Apache::lonnet::homeserver($sname,$sdom));	&Apache::lonnet::homeserver($sname,$sdom));
$rowlabels[$thisindex]=	$rowlabels[$thisindex]=
$ssec.' '.$reply{$sname}.' ';	sprintf('%3s',$ssec).' '.$reply{$sname}.' ';
	my $i=0;
map {	map {
$rowlabels[$thisindex].=&Apache::lonnet::unescape($_).' ';	$i++;
	if ( $_ ne '') {
	$rowlabels[$thisindex].=&Apache::lonnet::unescape($_).' ';
	}
	if ($i == 2) {
	chop($rowlabels[$thisindex]);
	$rowlabels[$thisindex].=', ';
	}
} split(/\&/,$reply);	} split(/\&/,$reply);

}	}
}	}
} sort split(/\&/,$classlst);	} sort split(/\&/,$classlst);