loncom/interface/lonchatfetch.pm - diff

Return to lonchatfetch.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.27, 2006/06/27 00:12:23	version 1.28, 2006/06/28 23:56:09
Line 48 sub handler {	Line 48 sub handler {
my $cdom=$env{'course.'.$env{'request.course.id'}.'.domain'};	my $cdom=$env{'course.'.$env{'request.course.id'}.'.domain'};
if (defined($env{'form.group'})) {	if (defined($env{'form.group'})) {
$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'}))) {
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);