version 1.39, 2006/05/09 14:38:10
|
version 1.40, 2006/05/18 01:08:50
|
Line 37 use Apache::lonfeedback;
|
Line 37 use Apache::lonfeedback;
|
use Apache::lonlocal; |
use Apache::lonlocal; |
use Apache::lonprintout; |
use Apache::lonprintout; |
use Apache::lonxml; |
use Apache::lonxml; |
|
use Apache::longroup; |
|
|
sub handler { |
sub handler { |
my $r = shift; |
my $r = shift; |
Line 76 sub handler {
|
Line 77 sub handler {
|
return OK; |
return OK; |
} |
} |
%groupinfo = |
%groupinfo = |
&Apache::loncommon::get_group_settings($curr_groups{$marker}); |
&Apache::longroup::get_group_settings($curr_groups{$marker}); |
} else { |
} else { |
$marker=~s/\D//g; |
$marker=~s/\D//g; |
$namespace = 'smppage_'.$marker; |
$namespace = 'smppage_'.$marker; |
Line 127 sub handler {
|
Line 128 sub handler {
|
|
|
if ($caller eq 'grppg') { |
if ($caller eq 'grppg') { |
if (($grp_view_permission) || |
if (($grp_view_permission) || |
(&Apache::loncommon::check_group_access($caller))) { |
(&Apache::longroup::check_group_access($caller))) { |
unless(&Apache::lonnet::allowed('vgh', |
unless(&Apache::lonnet::allowed('vgh', |
$env{'request.course.id'}.'/'.$marker)) { |
$env{'request.course.id'}.'/'.$marker)) { |
&display_group_links($r,$target,$marker,'view',%groupinfo); |
&display_group_links($r,$target,$marker,'view',%groupinfo); |