version 1.5, 2006/05/09 14:38:10
|
version 1.6, 2006/05/18 01:08:50
|
Line 29 use strict;
|
Line 29 use strict;
|
use Apache::lonnet; |
use Apache::lonnet; |
use Apache::loncommon; |
use Apache::loncommon; |
use Apache::lonlocal; |
use Apache::lonlocal; |
|
use Apache::longroup; |
|
|
sub handler { |
sub handler { |
my ($r) = @_; |
my ($r) = @_; |
Line 38 sub handler {
|
Line 39 sub handler {
|
if (defined($group)) { |
if (defined($group)) { |
my $cnum=$env{'course.'.$env{'request.course.id'}.'.num'}; |
my $cnum=$env{'course.'.$env{'request.course.id'}.'.num'}; |
my $cdom=$env{'course.'.$env{'request.course.id'}.'.domain'}; |
my $cdom=$env{'course.'.$env{'request.course.id'}.'.domain'}; |
my %curr_groups = &Apache::loncommon::coursegroups($cdom,$cnum,$group); |
my %curr_groups = &Apache::longroup::coursegroups($cdom,$cnum,$group); |
if (%curr_groups) { |
if (%curr_groups) { |
my %group_info = |
my %group_info = |
&Apache::loncommon::get_group_settings($curr_groups{$group}); |
&Apache::longroup::get_group_settings($curr_groups{$group}); |
$grouptitle = &mt('Group Chat:').' '. |
$grouptitle = &mt('Group Chat:').' '. |
&Apache::lonnet::unescape($group_info{description}); |
&Apache::lonnet::unescape($group_info{description}); |
} |
} |