|
version 1.4, 2006/04/13 20:56:54
|
version 1.7, 2006/05/18 17:58:14
|
|
Line 26
|
Line 26
|
| package Apache::longroupchat; |
package Apache::longroupchat; |
| |
|
| use strict; |
use strict; |
| |
use Apache::Constants qw(:common); |
| use Apache::lonnet; |
use Apache::lonnet; |
| use Apache::loncommon; |
use Apache::loncommon(); |
| use Apache::lonlocal; |
use Apache::lonlocal; |
| |
use Apache::longroup(); |
| |
|
| sub handler { |
sub handler { |
| my ($r) = @_; |
my ($r) = @_; |
|
Line 38 sub handler {
|
Line 40 sub handler {
|
| if (defined($group)) { |
if (defined($group)) { |
| my $cnum=$env{'course.'.$env{'request.course.id'}.'.num'}; |
my $cnum=$env{'course.'.$env{'request.course.id'}.'.num'}; |
| my $cdom=$env{'course.'.$env{'request.course.id'}.'.domain'}; |
my $cdom=$env{'course.'.$env{'request.course.id'}.'.domain'}; |
| my %curr_groups; |
my %curr_groups = &Apache::longroup::coursegroups($cdom,$cnum,$group); |
| my $numgroups = &Apache::loncommon::coursegroups(\%curr_groups,$cdom, |
if (%curr_groups) { |
| $cnum,$group); |
|
| if ($numgroups) { |
|
| my %group_info = |
my %group_info = |
| &Apache::loncommon::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}); |
&Apache::lonnet::unescape($group_info{description}); |
| } |
} |
| } |
} |
| |
|
| |
&Apache::loncommon::content_type($r,'text/html'); |
| |
$r->send_http_header; |
| |
return OK if $r->header_only; |
| my $start_page = |
my $start_page = |
| &Apache::loncommon::start_page($grouptitle,undef, |
&Apache::loncommon::start_page($grouptitle,undef, |
| {'frameset' => 1, |
{'frameset' => 1, |
![[BACK]](/icons/back.gif){kind=icon}
Return to longroupchat.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface