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.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);
Line 111 sub handler {	Line 112 sub handler {
# see BUG# 4839	# see BUG# 4839
# to fix, need to either write the whole webpage to the bottom frame	# to fix, need to either write the whole webpage to the bottom frame
# everytime or store the page in a js variable somewhere.	# everytime or store the page in a js variable somewhere.
	# although in tryng both of these ideas, the .scroll to
	# the bottom seems to fail.
$newstuff =~ s\|(<link.*?/>)\|\|;	$newstuff =~ s\|(<link.*?/>)\|\|;
}	}
my @participants=();	my @participants=();