version 1.23, 2006/05/09 14:38:09
|
version 1.24, 2006/05/18 01:08:50
|
Line 33 use Apache::Constants qw(:common :http);
|
Line 33 use Apache::Constants qw(:common :http);
|
use Apache::lontexconvert; |
use Apache::lontexconvert; |
use Apache::loncommon; |
use Apache::loncommon; |
use Apache::lonnet; |
use Apache::lonnet; |
|
use Apache::longroup; |
|
|
sub handler { |
sub handler { |
my $r = shift; |
my $r = shift; |
Line 48 sub handler {
|
Line 49 sub handler {
|
$group) ) { |
$group) ) { |
return HTTP_NOT_ACCEPTABLE; |
return HTTP_NOT_ACCEPTABLE; |
} |
} |
my %curr_groups = &Apache::loncommon::coursegroups($cdom,$cnum,$group); |
my %curr_groups = &Apache::longroup::coursegroups($cdom,$cnum,$group); |
if (%curr_groups) { |
if (%curr_groups) { |
my %group_info = |
my %group_info = |
&Apache::loncommon::get_group_settings($curr_groups{$group}); |
&Apache::longroup::get_group_settings($curr_groups{$group}); |
$grouptitle = |
$grouptitle = |
'<b>'.&Apache::lonnet::unescape($group_info{description}). |
'<b>'.&Apache::lonnet::unescape($group_info{description}). |
'</b><br />'; |
'</b><br />'; |