--- loncom/interface/longroupchat.pm 2006/04/11 19:06:15 1.3 +++ loncom/interface/longroupchat.pm 2006/05/09 14:38:10 1.5 @@ -38,17 +38,15 @@ sub handler { if (defined($group)) { my $cnum=$env{'course.'.$env{'request.course.id'}.'.num'}; my $cdom=$env{'course.'.$env{'request.course.id'}.'.domain'}; - my %curr_groups; - my $numgroups = &Apache::loncommon::coursegroups(\%curr_groups,$cdom, - $cnum,$group); - if ($numgroups) { + my %curr_groups = &Apache::loncommon::coursegroups($cdom,$cnum,$group); + if (%curr_groups) { my %group_info = &Apache::loncommon::get_group_settings($curr_groups{$group}); $grouptitle = &mt('Group Chat:').' '. &Apache::lonnet::unescape($group_info{description}); } } - my $html = &Apache::lonxml::xmlbegin(); + my $start_page = &Apache::loncommon::start_page($grouptitle,undef, {'frameset' => 1,