--- loncom/interface/longroupchat.pm 2006/03/29 19:56:28 1.1
+++ 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,39 +28,50 @@
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 = shift;
+ my ($r) = @_;
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['group']);
my $group = $env{'form.group'};
my $grouptitle;
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 %group_info = &Apache::loncommon::get_group_settings(
- $curr_groups{$group});
- $grouptitle = &mt('Group Chat:').' '.&Apache::lonnet::unescape(
- $group_info{description});
+ my %curr_groups = &Apache::longroup::coursegroups($cdom,$cnum,$group);
+ if (%curr_groups) {
+ my %group_info =
+ &Apache::longroup::get_group_settings($curr_groups{$group});
+ $grouptitle = &mt('Group Chat:').' '.
+ &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,
+ 'add_entries' => {
+ 'rows' => "80,100,*",
+ 'border' => "0"},});
+ my $end_page =
+ &Apache::loncommon::end_page({'frameset' => 1});
+
$r->print(<<"END");
-<html>
-<head>
-<title>$grouptitle</title>
-</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
}