--- loncom/interface/longroupchat.pm	2006/04/11 19:06:15	1.3
+++ loncom/interface/longroupchat.pm	2009/02/24 18:20:49	1.10
@@ -1,5 +1,7 @@
 # The LearningOnline Network
-# "Group Chat Frame" Personal Information
+# "Group Chat Room Frame" Personal Information
+#
+# $Id: longroupchat.pm,v 1.10 2009/02/24 18:20:49 hauer Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -26,9 +28,14 @@
 package Apache::longroupchat;
 
 use strict;
+use Apache::Constants qw(:common);
 use Apache::lonnet;
-use Apache::loncommon;
+use Apache::loncommon();
 use Apache::lonlocal;
+use Apache::longroup();
+use lib '/home/httpd/lib/perl/';
+use LONCAPA;
+ 
 
 sub handler {
     my ($r) = @_;
@@ -38,17 +45,18 @@ 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::longroup::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});
+		&Apache::longroup::get_group_settings($curr_groups{$group});
+            $grouptitle = &mt('Group Chat Room:').' '.
+		&unescape($group_info{description});
         }
     }
-    my $html = &Apache::lonxml::xmlbegin();
+
+    &Apache::loncommon::content_type($r,'text/html');
+    $r->send_http_header;
+    return OK if $r->header_only;
     my $start_page =
 	&Apache::loncommon::start_page($grouptitle,undef,
 				       {'frameset'    => 1,
@@ -65,7 +73,7 @@ $start_page
 <frame name="chatout" src="/adm/rat/empty.html">
 $end_page
 END
-
+    return OK;
 }
 
 1;