version 1.39, 2006/05/09 14:38:10
|
version 1.42, 2006/06/30 18:06:47
|
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 70 sub handler {
|
Line 71 sub handler {
|
if ($caller eq 'grppg') { |
if ($caller eq 'grppg') { |
$marker =~ s/\W//g; |
$marker =~ s/\W//g; |
$namespace = 'grppage_'.$marker; |
$namespace = 'grppage_'.$marker; |
my %curr_groups = &Apache::loncommon::coursegroups($dom,$crs,$marker); |
my %curr_groups = &Apache::longroup::coursegroups($dom,$crs,$marker); |
if (!%curr_groups) { |
if (!%curr_groups) { |
&Apache::loncommon::simple_error_page($r,'','Invalid group name'); |
&Apache::loncommon::simple_error_page($r,'','Invalid group name'); |
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', |
if ((!&Apache::lonnet::allowed('vgh', |
$env{'request.course.id'}.'/'.$marker)) { |
$env{'request.course.id'}.'/'.$marker)) |
|
&& (!&Apache::lonnet::allowed('mdg', |
|
$env{'request.course.id'}.'/'.$marker))) { |
&display_group_links($r,$target,$marker,'view',%groupinfo); |
&display_group_links($r,$target,$marker,'view',%groupinfo); |
return OK; |
return OK; |
} |
} |
Line 148 sub handler {
|
Line 151 sub handler {
|
|
|
my $allowed; |
my $allowed; |
if ($caller eq 'grppg') { |
if ($caller eq 'grppg') { |
$allowed = $grp_view_permission; |
$allowed = &Apache::lonnet::allowed('mdg',$env{'request.course.id'}); |
unless ($allowed) { |
if (!$allowed) { |
$allowed = &Apache::lonnet::allowed('mgh',$env{'request.course.id'}. |
$allowed = &Apache::lonnet::allowed('mgh',$env{'request.course.id'}. |
'/'.$marker); |
'/'.$marker); |
} |
} |