--- loncom/interface/longroupchat.pm 2006/03/29 19:56:28 1.1
+++ loncom/interface/longroupchat.pm 2006/03/29 21:14:23 1.2
@@ -31,7 +31,7 @@ use Apache::loncommon;
use Apache::lonlocal;
sub handler {
- my $r = shift;
+ my ($r) = @_;
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['group']);
my $group = $env{'form.group'};
my $grouptitle;
@@ -40,19 +40,19 @@ sub handler {
my $cdom=$env{'course.'.$env{'request.course.id'}.'.domain'};
my %curr_groups;
my $numgroups = &Apache::loncommon::coursegroups(\%curr_groups,$cdom,
- $cnum,$group);
+ $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 %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);
$r->print(<<"END");
-
-
-$grouptitle
-
+$html
+$head