--- loncom/interface/longroupchat.pm	2006/03/29 21:14:23	1.2
+++ loncom/interface/longroupchat.pm	2006/05/09 14:38:10	1.5
@@ -38,27 +38,30 @@ 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 $head = &Apache::loncommon::head($grouptitle);
+
+    my $start_page =
+	&Apache::loncommon::start_page($grouptitle,undef,
+				       {'frameset'    => 1,
+					'add_entries' => {
+					    'rows'   => "80,100,*",
+					    'border' => "0"},});
+    my $end_page =
+	&Apache::loncommon::end_page({'frameset' => 1});
+
     $r->print(<<"END");
-$html
-$head
-<frameset border="0" rows="80,100,*">
+$start_page
 <frame name="chatacc" src="/adm/chatfetch?group=$group">
 <frame name="chatpost" src="/adm/chat?group=$group">
 <frame name="chatout" src="/adm/rat/empty.html">
-</frameset>
-</html>
+$end_page
 END
 
 }