--- loncom/interface/lonchatfetch.pm 2006/06/27 00:12:23 1.27
+++ loncom/interface/lonchatfetch.pm 2006/07/03 00:44:45 1.30
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Chat Fetching
#
-# $Id: lonchatfetch.pm,v 1.27 2006/06/27 00:12:23 albertel Exp $
+# $Id: lonchatfetch.pm,v 1.30 2006/07/03 00:44:45 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -48,8 +48,10 @@ sub handler {
my $cdom=$env{'course.'.$env{'request.course.id'}.'.domain'};
if (defined($env{'form.group'})) {
$group = $env{'form.group'};
- if (! &Apache::lonnet::allowed('pgc',$env{'request.course.id'}.'/'.
- $group) ) {
+ if ((! &Apache::lonnet::allowed('pgc',$env{'request.course.id'}.'/'.
+ $group)) &&
+ (! &Apache::lonnet::allowed('vcg',$env{'request.course.id'}))) {
+
return HTTP_NOT_ACCEPTABLE;
}
my %curr_groups = &Apache::longroup::coursegroups($cdom,$cnum,$group);
@@ -107,13 +109,6 @@ sub handler {
{'only_body' => 1,
'bgcolor' => '#FFFFFF',
'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.
- # although in tryng both of these ideas, the .scroll to
- # the bottom seems to fail.
- $newstuff =~ s|()||;
}
my @participants=();
foreach (@entries) {
@@ -182,7 +177,7 @@ sub handler {
}
my $start_page =
&Apache::loncommon::start_page('Chat',undef,
- {'redirect' => [5,$refresh_cmd],
+ {'redirect' => [5,$refresh_cmd,1],
'only_body' => 1,});
my $end_page = &Apache::loncommon::end_page();
$r->print(<