loncom/interface/longroupchat.pm - diff

Return to longroupchat.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.3, 2006/04/11 19:06:15	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;	my %curr_groups = &Apache::longroup::coursegroups($cdom,$cnum,$group);
my $numgroups = &Apache::loncommon::coursegroups(\%curr_groups,$cdom,	if (%curr_groups) {
$cnum,$group);
if ($numgroups) {
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});
}	}
}	}
my $html = &Apache::lonxml::xmlbegin();
my $start_page =	my $start_page =
&Apache::loncommon::start_page($grouptitle,undef,	&Apache::loncommon::start_page($grouptitle,undef,
{'frameset' => 1,	{'frameset' => 1,