version 1.1, 2006/03/29 19:56:28
|
version 1.2, 2006/03/29 21:14:23
|
Line 31 use Apache::loncommon;
|
Line 31 use Apache::loncommon;
|
use Apache::lonlocal; |
use Apache::lonlocal; |
|
|
sub handler { |
sub handler { |
my $r = shift; |
my ($r) = @_; |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['group']); |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['group']); |
my $group = $env{'form.group'}; |
my $group = $env{'form.group'}; |
my $grouptitle; |
my $grouptitle; |
Line 40 sub handler {
|
Line 40 sub handler {
|
my $cdom=$env{'course.'.$env{'request.course.id'}.'.domain'}; |
my $cdom=$env{'course.'.$env{'request.course.id'}.'.domain'}; |
my %curr_groups; |
my %curr_groups; |
my $numgroups = &Apache::loncommon::coursegroups(\%curr_groups,$cdom, |
my $numgroups = &Apache::loncommon::coursegroups(\%curr_groups,$cdom, |
$cnum,$group); |
$cnum,$group); |
if ($numgroups) { |
if ($numgroups) { |
my %group_info = &Apache::loncommon::get_group_settings( |
my %group_info = |
$curr_groups{$group}); |
&Apache::loncommon::get_group_settings($curr_groups{$group}); |
$grouptitle = &mt('Group Chat:').' '.&Apache::lonnet::unescape( |
$grouptitle = &mt('Group Chat:').' '. |
$group_info{description}); |
&Apache::lonnet::unescape($group_info{description}); |
} |
} |
} |
} |
|
my $html = &Apache::lonxml::xmlbegin(); |
|
my $head = &Apache::loncommon::head($grouptitle); |
$r->print(<<"END"); |
$r->print(<<"END"); |
<html> |
$html |
<head> |
$head |
<title>$grouptitle</title> |
|
</head> |
|
<frameset border="0" rows="80,100,*"> |
<frameset border="0" rows="80,100,*"> |
<frame name="chatacc" src="/adm/chatfetch?group=$group"> |
<frame name="chatacc" src="/adm/chatfetch?group=$group"> |
<frame name="chatpost" src="/adm/chat?group=$group"> |
<frame name="chatpost" src="/adm/chat?group=$group"> |