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

Diff for /loncom/auth/lonroles.pm between versions 1.153 and 1.155

version 1.153, 2006/06/02 13:58:37 version 1.155, 2006/06/02 22:02:51
Line 265  ENDENTERKEY Line 265  ENDENTERKEY
     return OK;      return OK;
  } else {   } else {
                             my $type = 'Course/Group';                              my $type = 'Course/Group';
     if ($env{'request.course.id'}) {      if (!$env{'request.course.id'}) {
                                 if (defined($env{'course.'.                                  if (defined($env{'course.'.
                                             $env{'request.course.id'}.'.type'})) {                                              $env{'request.course.id'}.'.type'})) {
                                     $type = $env{'course.'.                                      $type = $env{'course.'.
Line 1037  sub set_privileges { Line 1037  sub set_privileges {
     my $area = '/'.$dcdom.'/'.$pickedcourse;      my $area = '/'.$dcdom.'/'.$pickedcourse;
     my $role = 'cc';      my $role = 'cc';
     my $spec = $role.'.'.$area;      my $spec = $role.'.'.$area;
     my $userroles = &Apache::lonnet::set_arearole($role,$area,'','',$dcdom,$env{'user.name'});      my %userroles = &Apache::lonnet::set_arearole($role,$area,'','',$dcdom,$env{'user.name'});
     my %ccrole = ();      my %ccrole = ();
     &Apache::lonnet::standard_roleprivs(\%ccrole,$role,$dcdom,$spec,$pickedcourse,$area);      &Apache::lonnet::standard_roleprivs(\%ccrole,$role,$dcdom,$spec,$pickedcourse,$area);
     my ($author,$adv)= &Apache::lonnet::set_userprivs(\$userroles,\%ccrole);      my ($author,$adv)= &Apache::lonnet::set_userprivs(\%userroles,\%ccrole);
     my @newprivs = split/\n/,$userroles;      &Apache::lonnet::appenv(%userroles);
     my %newccroles = ();  
     foreach (@newprivs) {  
         my ($key,$val) = split/=/,$_;  
         $newccroles{$key} = $val;  
     }  
     &Apache::lonnet::appenv(%newccroles);  
     &Apache::lonnet::log($env{'user.domain'},      &Apache::lonnet::log($env{'user.domain'},
                          $env{'user.name'},                           $env{'user.name'},
                          $env{'user.home'},                           $env{'user.home'},
Removed from v.1.153  
changed lines
  Added in v.1.155

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