--- loncom/interface/longroupchat.pm	2006/05/18 01:08:50	1.6
+++ loncom/interface/longroupchat.pm	2006/05/30 12:46:09	1.8
@@ -1,6 +1,8 @@
 # The LearningOnline Network
 # "Group Chat Frame" Personal Information
 #
+# $Id: longroupchat.pm,v 1.8 2006/05/30 12:46:09 www Exp $
+#
 # Copyright Michigan State University Board of Trustees
 #
 # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
@@ -26,10 +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 Apache::longroup();
+use lib '/home/httpd/lib/perl/';
+use LONCAPA;
+ 
 
 sub handler {
     my ($r) = @_;
@@ -44,10 +50,13 @@ sub handler {
             my %group_info = 
 		&Apache::longroup::get_group_settings($curr_groups{$group});
             $grouptitle = &mt('Group Chat:').' '.
-		&Apache::lonnet::unescape($group_info{description});
+		&unescape($group_info{description});
         }
     }
 
+    &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,