[BACK]Return to loncacc.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / auth

Diff for /loncom/auth/loncacc.pm between versions 1.51 and 1.52

version 1.51, 2010/09/30 16:42:30 version 1.52, 2011/02/24 23:42:18
Line 119  sub constructaccess { Line 119  sub constructaccess {
     }      }
   
     my $then=$env{'user.login.time'};      my $then=$env{'user.login.time'};
       my $update==$env{'user.updateroles.time'};
       if (!$update) {
           $update = $then;
       }
     my %dcroles = ();      my %dcroles = ();
     if (&is_active_dc($ownerdomain,$then)) {      if (&is_active_dc($ownerdomain,$update)) {
         my %blocked=&Apache::lonnet::get('environment',['domcoord.author'],          my %blocked=&Apache::lonnet::get('environment',['domcoord.author'],
                                          $ownerdomain,$ownername);                                           $ownerdomain,$ownername);
         unless ($blocked{'domcoord.author'} eq 'blocked') {          unless ($blocked{'domcoord.author'} eq 'blocked') {
Line 128  sub constructaccess { Line 132  sub constructaccess {
                 if ($setpriv) {                  if ($setpriv) {
                     my $refresh=$env{'user.refresh.time'};                      my $refresh=$env{'user.refresh.time'};
                     if (!$refresh) {                      if (!$refresh) {
                         $refresh = $then;                          $refresh = $update;
                     }                      }
                     my $now = time;                      my $now = time;
                     &Apache::lonnet::check_adhoc_privs($ownerdomain,$ownername,                      &Apache::lonnet::check_adhoc_privs($ownerdomain,$ownername,
                                                        $then,$refresh,$now,'ca',                                                         $update,$refresh,$now,'ca',
                                                        'constructaccess');                                                         'constructaccess');
                 }                  }
                 return($ownername,$ownerdomain);                  return($ownername,$ownerdomain);
Line 143  sub constructaccess { Line 147  sub constructaccess {
 }  }
   
 sub is_active_dc {  sub is_active_dc {
     my ($ownerdomain,$then) = @_;      my ($ownerdomain,$update) = @_;
     my $livedc;      my $livedc;
     if ($env{'user.adv'}) {      if ($env{'user.adv'}) {
         my $domrole = $env{'user.role.dc./'.$ownerdomain.'/'};          my $domrole = $env{'user.role.dc./'.$ownerdomain.'/'};
         if ($domrole) {          if ($domrole) {
             my ($tstart,$tend)=split(/\./,$domrole);              my ($tstart,$tend)=split(/\./,$domrole);
             $livedc = 1;              $livedc = 1;
             if ($tstart && $tstart>$then) { undef($livedc); }              if ($tstart && $tstart>$update) { undef($livedc); }
             if ($tend   && $tend  <$then) { undef($livedc); }              if ($tend   && $tend  <$update) { undef($livedc); }
         }          }
     }      }
     return $livedc;      return $livedc;
Removed from v.1.51  
changed lines
  Added in v.1.52

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