version 1.299, 2005/12/02 19:20:21
|
version 1.300, 2005/12/02 19:40:47
|
Line 1852 KEYWORDS
|
Line 1852 KEYWORDS
|
&mt('Message will be sent when you click on Save & Next below.').")\n"; |
&mt('Message will be sent when you click on Save & Next below.').")\n"; |
$request->print($result); |
$request->print($result); |
} |
} |
if (&Apache::lonnet::allowed('vgr',$env{'request.course.id'})) { |
if ($perm{'vgr'}) { |
$request->print('<br />'. |
$request->print('<br />'. |
&Apache::loncommon::track_student_link(&mt('View recent activity'),$uname,$udom,'check')); |
&Apache::loncommon::track_student_link(&mt('View recent activity'), |
|
$uname,$udom,'check')); |
} |
} |
if (&Apache::lonnet::allowed('opa',$env{'request.course.id'})) { |
if ($perm{'opa'}) { |
$request->print('<br />'. |
$request->print('<br />'. |
&Apache::loncommon::pprmlink(&mt('Set/Change parameters'),$uname,$udom,$symb,'check')); |
&Apache::loncommon::pprmlink(&mt('Set/Change parameters'), |
|
$uname,$udom,$symb,'check')); |
} |
} |
|
|
my %seen = (); |
my %seen = (); |
Line 5524 sub reset_perm {
|
Line 5526 sub reset_perm {
|
|
|
sub init_perm { |
sub init_perm { |
&reset_perm(); |
&reset_perm(); |
if (!($perm{'vgr'}=&Apache::lonnet::allowed('vgr',$env{'request.course.id'}))) { |
foreach my $test_perm ('vgr','mgr','opa') { |
if ($perm{'vgr'}=&Apache::lonnet::allowed('vgr',$env{'request.course.id'}.'/'.$env{'request.course.sec'})) { |
|
$perm{'vgr_section'}=$env{'request.course.sec'}; |
my $scope = $env{'request.course.id'}; |
} else { |
if (!($perm{$test_perm}=&Apache::lonnet::allowed($test_perm,$scope))) { |
delete($perm{'vgr'}); |
|
} |
$scope .= '/'.$env{'request.course.sec'}; |
} |
if ( $perm{$test_perm}= |
if (!($perm{'mgr'}=&Apache::lonnet::allowed('mgr',$env{'request.course.id'}))) { |
&Apache::lonnet::allowed($test_perm,$scope)) { |
if ($perm{'mgr'}=&Apache::lonnet::allowed('mgr',$env{'request.course.id'}.'/'.$env{'request.course.sec'})) { |
$perm{$test_perm.'_section'}=$env{'request.course.sec'}; |
$perm{'mgr_section'}=$env{'request.course.sec'}; |
} else { |
} else { |
delete($perm{$test_perm}); |
delete($perm{'mgr'}); |
} |
} |
} |
} |
} |
} |
} |