loncom/interface/longroupchat.pm - diff

Return to longroupchat.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/longroupchat.pm between versions 1.1 and 1.2

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">

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.1
changed lines
	Added in v.1.2