version 1.21, 2006/03/29 19:56:28
|
version 1.22, 2006/03/29 21:16:18
|
Line 37 use Apache::lonnet;
|
Line 37 use Apache::lonnet;
|
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; |
my $numgroups = &Apache::loncommon::coursegroups(\%curr_groups,$cdom, |
my $numgroups = &Apache::loncommon::coursegroups(\%curr_groups,$cdom, |
$cnum,$group); |
$cnum,$group); |
if ($numgroups) { |
if ($numgroups) { |
my %group_info = &Apache::loncommon::get_group_settings( |
my %group_info = |
$curr_groups{$group}); |
&Apache::loncommon::get_group_settings($curr_groups{$group}); |
$grouptitle = '<b>'.&Apache::lonnet::unescape( |
$grouptitle = |
$group_info{description}).'</b><br />'; |
'<b>'.&Apache::lonnet::unescape($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 189 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'})) { |