version 1.29, 2006/07/03 00:11:53
|
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); |
Line 177 sub handler {
|
Line 177 sub handler {
|
} |
} |
my $start_page = |
my $start_page = |
&Apache::loncommon::start_page('Chat',undef, |
&Apache::loncommon::start_page('Chat',undef, |
{'redirect' => [5,$refresh_cmd], |
{'redirect' => [5,$refresh_cmd,1], |
'only_body' => 1,}); |
'only_body' => 1,}); |
my $end_page = &Apache::loncommon::end_page(); |
my $end_page = &Apache::loncommon::end_page(); |
$r->print(<<ENDDOCUMENT); |
$r->print(<<ENDDOCUMENT); |