loncom/interface/lonchart.pm - diff

Return to lonchart.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.33, 2002/02/28 23:14:57	version 1.34, 2002/02/28 23:25:50
Line 257 sub usection {	Line 257 sub usection {
my ($udom,$unam,$courseid)=@_;	my ($udom,$unam,$courseid)=@_;
$courseid=~s/\_/\//g;	$courseid=~s/\_/\//g;
$courseid=~s/^(\w)/\/$1/;	$courseid=~s/^(\w)/\/$1/;
map {	foreach (split(/\&/,&Apache::lonnet::reply('dump:'.
	$udom.':'.$unam.':roles',
	&Apache::lonnet::homeserver($unam,$udom)))){
my ($key,$value)=split(/\=/,$_);	my ($key,$value)=split(/\=/,$_);
$key=&Apache::lonnet::unescape($key);	$key=&Apache::lonnet::unescape($key);
if ($key=~/^$courseid(?:\/)(\w+)\_st$/) {	if ($key=~/^$courseid(?:\/)(\w+)\_st$/) {
Line 269 sub usection {	Line 271 sub usection {
# $r->print($unam.'...'.$section.'<br>');	# $r->print($unam.'...'.$section.'<br>');
return $section;	return $section;
}	}
} split(/\&/,&Apache::lonnet::reply('dump:'.$udom.':'.$unam.':roles',	}
&Apache::lonnet::homeserver($unam,$udom)));	#} split(/\&/,&Apache::lonnet::reply('dump:'.$udom.':'.$unam.':roles',
	# &Apache::lonnet::homeserver($unam,$udom)));
return '';	return '';
}	}