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

Diff for /loncom/lonnet/perl/lonnet.pm between versions 1.998 and 1.999

version 1.998, 2009/05/08 12:45:28 version 1.999, 2009/05/08 14:33:16
Line 2747  sub get_course_adv_roles { Line 2747  sub get_course_adv_roles {
                 &Apache::lonnet::get_domain_roles($domain,['dc'],$now,$now);                  &Apache::lonnet::get_domain_roles($domain,['dc'],$now,$now);
             $privileged{$domain} = {};              $privileged{$domain} = {};
             foreach my $server (keys(%dompersonnel)) {              foreach my $server (keys(%dompersonnel)) {
                 if(ref($dompersonnel{$server}) eq 'HASH') {                  if (ref($dompersonnel{$server}) eq 'HASH') {
                     foreach my $user (keys(%{$dompersonnel{$server}})) {                      foreach my $user (keys(%{$dompersonnel{$server}})) {
                         my ($trole,$uname,$udom) = split(/:/,$user);                          my ($trole,$uname,$udom) = split(/:/,$user);
                         $privileged{$udom}{$uname} = 1;                          $privileged{$udom}{$uname} = 1;
Line 2801  sub get_my_roles { Line 2801  sub get_my_roles {
     }      }
     my %returnhash=();      my %returnhash=();
     my $now=time;      my $now=time;
       my %privileged;
     foreach my $entry (keys(%dumphash)) {      foreach my $entry (keys(%dumphash)) {
         my ($role,$tend,$tstart);          my ($role,$tend,$tstart);
         if ($context eq 'userroles') {          if ($context eq 'userroles') {
Line 2849  sub get_my_roles { Line 2850  sub get_my_roles {
             }              }
         }          }
         if ($hidepriv) {          if ($hidepriv) {
             if ((&privileged($username,$domain)) &&              if ($context eq 'userroles') {
                 (!$nothide{$username.':'.$domain})) {                   if ((&privileged($username,$domain)) &&
                 next;                      (!$nothide{$username.':'.$domain})) {
                       next;
                   }
               } else {
                   unless (ref($privileged{$domain}) eq 'HASH') {
                       my %dompersonnel =
                           &Apache::lonnet::get_domain_roles($domain,['dc'],$now,$now);
                       $privileged{$domain} = {};
                       if (keys(%dompersonnel)) {
                           foreach my $server (keys(%dompersonnel)) {
                               if (ref($dompersonnel{$server}) eq 'HASH') {
                                   foreach my $user (keys(%{$dompersonnel{$server}})) {
                                       my ($trole,$uname,$udom) = split(/:/,$user);
                                       $privileged{$udom}{$uname} = $trole;
                                   }
                               }
                           }
                       }
                   }
                   if (exists($privileged{$domain}{$username})) {
                       if (!$nothide{$username.':'.$domain}) {
                           next;
                       }
                   }
             }              }
         }          }
         if ($withsec) {          if ($withsec) {
Removed from v.1.998  
changed lines
  Added in v.1.999

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