version 1.21, 2006/03/29 19:56:28
|
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; |
|
|
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['lastid', |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
'group']); |
['lastid','group']); |
my ($group,$grouptitle); |
my ($group,$grouptitle); |
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'}; |
if (defined($env{'form.group'})) { |
if (defined($env{'form.group'})) { |
$group = $env{'form.group'}; |
$group = $env{'form.group'}; |
if (! &Apache::lonnet::allowed('pgc',$env{'request.course.id'}.'/'. |
if (! &Apache::lonnet::allowed('pgc',$env{'request.course.id'}.'/'. |
$group) ) { |
$group) ) { |
return HTTP_NOT_ACCEPTABLE; |
return HTTP_NOT_ACCEPTABLE; |
} |
} |
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); |
my %group_info = |
if ($numgroups) { |
&Apache::longroup::get_group_settings($curr_groups{$group}); |
my %group_info = &Apache::loncommon::get_group_settings( |
$grouptitle = |
$curr_groups{$group}); |
'<b>'.&Apache::lonnet::unescape($group_info{description}). |
$grouptitle = '<b>'.&Apache::lonnet::unescape( |
'</b><br />'; |
$group_info{description}).'</b><br />'; |
|
} |
} |
} elsif (! &Apache::lonnet::allowed('pch',$env{'request.course.id'}. |
} elsif (! &Apache::lonnet::allowed('pch',$env{'request.course.id'}. |
($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:'')) |
($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:'')) |
Line 188 ENDDOCUMENT
|
Line 188 ENDDOCUMENT
|
return OK; |
return OK; |
} |
} |
|
|
sub get_seeid_status{ |
sub get_seeid_status { |
my $crs='/'.$env{'request.course.id'}; |
my $crs='/'.$env{'request.course.id'}; |
my $seeid; |
my $seeid; |
if (exists($env{'form.group'})) { |
if (exists($env{'form.group'})) { |