version 1.7, 2006/05/18 17:58:14
|
version 1.8, 2006/05/30 12:46:09
|
Line 1
|
Line 1
|
# The LearningOnline Network |
# The LearningOnline Network |
# "Group Chat Frame" Personal Information |
# "Group Chat Frame" Personal Information |
# |
# |
|
# $Id$ |
|
# |
# Copyright Michigan State University Board of Trustees |
# Copyright Michigan State University Board of Trustees |
# |
# |
# This file is part of the LearningOnline Network with CAPA (LON-CAPA). |
# This file is part of the LearningOnline Network with CAPA (LON-CAPA). |
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 45 sub handler {
|
Line 50 sub handler {
|
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:').' '. |
&Apache::lonnet::unescape($group_info{description}); |
&unescape($group_info{description}); |
} |
} |
} |
} |
|
|