loncom/interface/lonchatfetch.pm - diff

Return to lonchatfetch.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.30, 2006/07/03 00:44:45	version 1.31, 2006/07/17 16:10:57
Line 50 sub handler {	Line 50 sub handler {
$group = $env{'form.group'};	$group = $env{'form.group'};
if ((! &Apache::lonnet::allowed('pgc',$env{'request.course.id'}.'/'.	if ((! &Apache::lonnet::allowed('pgc',$env{'request.course.id'}.'/'.
$group)) &&	$group)) &&
(! &Apache::lonnet::allowed('vcg',$env{'request.course.id'}))) {	(! &Apache::lonnet::allowed('vcg',$env{'request.course.id'}.
	($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:'')))) {
return HTTP_NOT_ACCEPTABLE;	return HTTP_NOT_ACCEPTABLE;
}	}
my %curr_groups = &Apache::longroup::coursegroups($cdom,$cnum,$group);	my %curr_groups = &Apache::longroup::coursegroups($cdom,$cnum,$group);