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

Diff for /loncom/interface/loncommon.pm between versions 1.925.2.8 and 1.925.2.10

version 1.925.2.8, 2010/01/16 15:57:51 version 1.925.2.10, 2010/01/18 15:44:35
Line 10703  sub new_roles_update { Line 10703  sub new_roles_update {
         next unless ($envkey =~ /^user\.role\./);          next unless ($envkey =~ /^user\.role\./);
         $rolecount ++;          $rolecount ++;
     }      }
       my $newrolecount = 0;
     if (!$rolecount) {      if (!$rolecount) {
         my %userenv;          my %userenv;
         foreach my $crstype ('official','unofficial','community') {          foreach my $crstype ('official','unofficial','community') {
Line 10726  sub new_roles_update { Line 10727  sub new_roles_update {
             &Apache::lonnet::set_arearole($role,$where,$tstart,$tend,              &Apache::lonnet::set_arearole($role,$where,$tstart,$tend,
                                           $env{'user.domain'},$env{'user.name'});                                            $env{'user.domain'},$env{'user.name'});
             $userroles{'user.role.'.$spec} = $tstart.'.'.$tend;              $userroles{'user.role.'.$spec} = $tstart.'.'.$tend;
               $newrolecount ++;
             unless (grep(/^\Q$role\E$/,@newroles)) {              unless (grep(/^\Q$role\E$/,@newroles)) {
                 push(@newroles,$role);                  push(@newroles,$role);
             }              }
Line 10737  sub new_roles_update { Line 10739  sub new_roles_update {
             }              }
         }          }
         if (@newroles) {          if (@newroles) {
             &Apache::lonnet::appenv(\%userroles,[@newroles,'cm']);  
             my ($author,$adv) = &Apache::lonnet::set_userprivs(\%userroles,\%allroles,              my ($author,$adv) = &Apache::lonnet::set_userprivs(\%userroles,\%allroles,
                                                                \%allgroups);                                                                 \%allgroups);
               &Apache::lonnet::appenv(\%userroles,[@newroles,'cm']);
             $userenv{'user.adv'} = $adv;              $userenv{'user.adv'} = $adv;
             $userenv{'user.author'} = $author;              $userenv{'user.author'} = $author;
             $userenv{'user.refresh.time'} = $refresh;              $userenv{'user.refresh.time'} = $refresh;
         }          }
         &Apache::lonnet::appenv(\%userenv);          &Apache::lonnet::appenv(\%userenv);
     }      }
     return;      return $newrolecount;
 }  }
   
 # --- Get the symbolic name of a problem and the url  # --- Get the symbolic name of a problem and the url
Removed from v.1.925.2.8  
changed lines
  Added in v.1.925.2.10

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