Diff for /loncom/homework/grades.pm between versions 1.299 and 1.300

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'});      }
  }   }
     }      }
 }  }

Removed from v.1.299  
changed lines
  Added in v.1.300


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>