loncom/interface/lonchatfetch.pm - diff

Return to lonchatfetch.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.26, 2006/06/27 00:01:15	version 1.29, 2006/07/03 00:11:53
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);
Line 107 sub handler {	Line 109 sub handler {
{'only_body' => 1,	{'only_body' => 1,
'bgcolor' => '#FFFFFF',	'bgcolor' => '#FFFFFF',
'js_ready' => 1,});	'js_ready' => 1,});
# removing the CSS reference for now
# see BUG# 4839
# to fix, need to either write the whole webpage to the bottom frame
# everytime or store the page in a js variable somewhere.
$newstuff =~ s\|(<link.*?/>)\|\|;
}	}
my @participants=();	my @participants=();
foreach (@entries) {	foreach (@entries) {