loncom/interface/longroupchat.pm - diff

Return to longroupchat.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.7, 2006/05/18 17:58:14	version 1.10, 2009/02/24 18:20:49
Line 1	Line 1
# The LearningOnline Network	# The LearningOnline Network
# "Group Chat Frame" Personal Information	# "Group Chat Room Frame" Personal Information
	#
	# $Id$
#	#
# Copyright Michigan State University Board of Trustees	# Copyright Michigan State University Board of Trustees
#	#
Line 31 use Apache::lonnet;	Line 33 use Apache::lonnet;
use Apache::loncommon();	use Apache::loncommon();
use Apache::lonlocal;	use Apache::lonlocal;
use Apache::longroup();	use Apache::longroup();
	use lib '/home/httpd/lib/perl/';
	use LONCAPA;


sub handler {	sub handler {
my ($r) = @_;	my ($r) = @_;
Line 44 sub handler {	Line 49 sub handler {
if (%curr_groups) {	if (%curr_groups) {
my %group_info =	my %group_info =
&Apache::longroup::get_group_settings($curr_groups{$group});	&Apache::longroup::get_group_settings($curr_groups{$group});
$grouptitle = &mt('Group Chat:').' '.	$grouptitle = &mt('Group Chat Room:').' '.
&Apache::lonnet::unescape($group_info{description});	&unescape($group_info{description});
}	}
}	}

Line 68 $start_page	Line 73 $start_page
<frame name="chatout" src="/adm/rat/empty.html">	<frame name="chatout" src="/adm/rat/empty.html">
$end_page	$end_page
END	END
	return OK;
}	}

1;	1;