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

Diff for /loncom/auth/lonroles.pm between versions 1.105 and 1.109

version 1.105, 2004/11/09 20:04:48 version 1.109, 2004/11/12 23:29:55
Line 82  sub handler { Line 82  sub handler {
     my $now=time;      my $now=time;
     my $then=$ENV{'user.login.time'};      my $then=$ENV{'user.login.time'};
     my $envkey;      my $envkey;
     my $dcselect='';      my %dcroles = ();
       my $numdc = &check_fordc(\%dcroles,$then);
   
 # ================================================================== Roles Init  # ================================================================== Roles Init
     if ($ENV{'form.selectrole'}) {      if ($ENV{'form.selectrole'}) {
         if ($ENV{'form.dcselected'}) {  
             my $dcdom = $ENV{'form.dcselected'};  
             my $dckey = 'user.role.dc./'.$dcdom.'/';  
             if ($ENV{$dckey}) {  
                 my ($dcstart,$dcend)=split(/\./,$ENV{$dckey});  
                 my $active_dc = 1;  
                 if ($dcstart) {  
                     if ($dcstart>$then) {  
                         $active_dc = 0;  
                     }  
                 }  
                 if ($dcend) {  
                     if ($dcend < $then) {  
                         $active_dc = 0;  
                     }  
                 }  
                 if ($active_dc) {  
                     $dcselect = $dcdom;  
                 }  
             }  
         }  
  if ($ENV{'request.course.id'}) {   if ($ENV{'request.course.id'}) {
     my %temp=('logout_'.$ENV{'request.course.id'} => time);      my %temp=('logout_'.$ENV{'request.course.id'} => time);
     &Apache::lonnet::put('email_status',\%temp);      &Apache::lonnet::put('email_status',\%temp);
Line 120  sub handler { Line 99  sub handler {
  "request.role"        => 'cm',   "request.role"        => 'cm',
                                 "request.role.adv"    => $ENV{'user.adv'},                                  "request.role.adv"    => $ENV{'user.adv'},
  "request.role.domain" => $ENV{'user.domain'});   "request.role.domain" => $ENV{'user.domain'});
   
   # Check to see if the user is a DC trying to enter a course and needs privs to be created
           if ($numdc > 0) {
               foreach my $envkey (keys %ENV) {
                   if ($envkey =~ m-^form\.cc\./(\w+)/(\w+)$-) {
                       if ($dcroles{$1}) {
                           my $cckey = 'user.role.cc./'.$1.'/'.$2;
                           if ($ENV{$cckey}) {
                               my ($role,$where,$trolecode,$tstart,$tend,$tremark,$tstatus,$tpstart,$tpend,$tfont);
                               &role_status($cckey,$then,$now,\$role,\$where,\$trolecode,\$tstatus,\$tstart,\$tend);
                               unless (($tstatus eq 'is') || ($tstatus eq 'will_not')) {
                                   &set_privileges($1,$2);
                               }
                           } else {
                               &set_privileges($1,$2);
                           }
                       }
                       last;
                   }
               }
           }
   
         foreach $envkey (keys %ENV) {          foreach $envkey (keys %ENV) {
             next if ($envkey!~/^user\.role\./);              next if ($envkey!~/^user\.role\./);
             my ($where,$trolecode,$role,$tstatus,$tend,$tstart);              my ($where,$trolecode,$role,$tstatus,$tend,$tstart);
Line 262  ENDENTERKEY Line 263  ENDENTERKEY
   '.course.helper.not.run'}) {    '.course.helper.not.run'}) {
  $furl = "/adm/helper/course.initialization.helper";   $furl = "/adm/helper/course.initialization.helper";
     }      }
                             # Check to see if the user is a DC coming from the                              # Check to see if the user is a DC selecting a course
                             # course selection page                              if (($numdc > 0) && ($role eq 'cc')) {
                             my $dcflag = 0;  
                             if ($ENV{'form.dccourse'}) {  
                                 my $formaction = '/adm/roles/';                                  my $formaction = '/adm/roles/';
                                 my ($dcdom,$pickedcourse) = split/_/,$courseid;                                  my ($dcdom,$pickedcourse) = split/_/,$courseid;
                                 if ($ENV{'user.role.dc./'.$dcdom.'/'}) {                                  if ($ENV{'user.role.dc./'.$dcdom.'/'}) {
                                     &Apache::lonhtmlcommon::store_recent('cc_pickby_dc_'.$dcdom,                                      &Apache::lonhtmlcommon::store_recent('recent_roles',
                                     $courseid,$formaction);                                      $courseid,$formaction);
                                 }                                  }
                             }                              }
Line 297  ENDENTERKEY Line 296  ENDENTERKEY
                         return OK;                          return OK;
                     }                      }
                     if ($role eq 'dc') {                      if ($role eq 'dc') {
                         unless ($dcselect) {                          my $redirect_url = '/adm/menu/';
                             my $redirect_url = '/adm/menu/';                          &redirect_user($r,&mt('Loading Domain Coordinator Menu'),
                             &redirect_user($r,&mt('Loading Domain Coordinator Menu'),  
                                        $redirect_url);                                         $redirect_url);
                             return OK;                          return OK;
                         }  
                     }                      }
  }   }
             }              }
Line 318  ENDENTERKEY Line 315  ENDENTERKEY
     return OK if $r->header_only;      return OK if $r->header_only;
   
     my $swinfo=&Apache::lonmenu::rawconfig();      my $swinfo=&Apache::lonmenu::rawconfig();
     my $setDCchoice = &dc_script();  
     my $bodytag=&Apache::loncommon::bodytag('User Roles');      my $bodytag=&Apache::loncommon::bodytag('User Roles');
     my $helptag='<table><tr><td>'.&Apache::loncommon::help_open_menu('','General Intro','General_Intro','User Roles',1,undef,undef,undef,undef,,&mt("Click here for help")).'</td></td></tr></table>';      my $helptag='<table><tr><td>'.&Apache::loncommon::help_open_menu('','General Intro','General_Intro','User Roles',1,undef,undef,undef,undef,,&mt("Click here for help")).'</td></td></tr></table>';
     $r->print(<<ENDHEADER);      $r->print(<<ENDHEADER);
Line 331  $helptag<br /> Line 327  $helptag<br />
 <script>  <script>
 $swinfo  $swinfo
 window.focus();  window.focus();
 $setDCchoice  
 </script>  </script>
 ENDHEADER  ENDHEADER
   
Line 350  ENDHEADER Line 345  ENDHEADER
     my $tryagain=$ENV{'form.tryagain'};      my $tryagain=$ENV{'form.tryagain'};
   
 # -------------------------------------------------------- Generate Page Output  # -------------------------------------------------------- Generate Page Output
 # -------------------------------------------------------- Domain Coordinator?   
     if ($dcselect ne '') {  
         &choosecourse_display($r,$dcselect,$then,$now);  
         return OK;  
     }  
   
 # --------------------------------------------------------------- Error Header?  # --------------------------------------------------------------- Error Header?
     if ($error) {      if ($error) {
  $r->print("<h1>LON-CAPA Access Control</h1>");   $r->print("<h1>LON-CAPA Access Control</h1>");
Line 408  ENDHEADER Line 397  ENDHEADER
  $r->print('><input type=submit value="'.&mt('Display').'">');   $r->print('><input type=submit value="'.&mt('Display').'">');
     }      }
   
     my %dcroles = ();  
     my $numdc = &check_fordc(\%dcroles,$then);  
   
     my (%roletext,%sortrole,%roleclass);      my (%roletext,%sortrole,%roleclass);
     my $countactive=0;      my $countactive=0;
     my $inrole=0;      my $inrole=0;
Line 646  ENDHEADER Line 632  ENDHEADER
  if ($haverole) { $doheaders++; }   if ($haverole) { $doheaders++; }
     }      }
     if ($numdc > 0) {      if ($numdc > 0) {
          $r->print('<tr bgcolor="#BBffBB">'.          &select_recent_courses($r,\%roletext);
                       '<td align="center" colspan="7">'.      }
                       '<input type="hidden" name="all_cc_roles" value="1"/>'.      foreach my $type ('Construction Space','Course','Domain','System') {
                       '<input type="hidden" name="dcselected" value=""/>'.   my $output;
                       &mt('Domain').'</td>');   foreach my $which (sort {uc($a) cmp uc($b)} (keys(%sortrole))) {
          foreach my $dcdom (keys %dcroles) {      if ($roleclass{$sortrole{$which}} =~ /^\Q$type\E/) { 
              my $output = $roletext{$dcroles{$dcdom}};   $output.=$roletext{$sortrole{$which}};
              my $ccrole = Apache::lonnet::plaintext('cc');                  if ($sortrole{$which} =~ m-dc\./(\w+)/-) {
              if ($ENV{'request.role'} =~ m-cc\./$dcdom/-) {                      if ($dcroles{$1}) {
                  $output.=$roletext{'user.role.'.$ENV{'request.role'}};                          $output .= &allcourses_row($1);
              }  
              $r->print($output);  
              $r->print('<tr bgcolor="#77FF77">');  
              $r->print('<td><input type="button" value="'.  
                       &mt('Select').'" name="dcpick_'.$dcdom.'/" '.  
                       'onClick="setDCchoice('."'$dcdom'".')"></td>'.  
                       '<td><font color="#002200">'.  
                       $ccrole.'</font></td><td>'.&mt('Course').'</td>'.  
                       '<td><font color="#002200"><b>'.&mt('All courses').'</b>'.  
                       '<br />'.&mt('Domain').':'.$dcdom.'</font>'.  
                       '<td colspan="4"><font color="#002200">'.  
                       &mt('Course Coordinator access to all courses in domain').  
                       ': <b>'.$dcdom.'</b></font></td></tr>'."\n");  
          }  
          foreach my $type ('Construction Space','Course','Domain','System') {  
              my $output;  
              foreach my $which (sort {uc($a) cmp uc($b)} (keys(%sortrole))) {  
                 my $skiprole = 0;  
                 foreach my $dcdom (keys %dcroles) {  
                     if ($sortrole{$which} =~ m-(dc|cc)\./$dcdom/-) {  
                         $skiprole = 1;  
                         last;  
                     }                      }
                 }                  }
                 if (($roleclass{$sortrole{$which}} =~ /^\Q$type\E/) && (!$skiprole)) {  
                     $output.=$roletext{$sortrole{$which}};  
                 }  
             }  
             if ($output) {  
                 if ($doheaders > 0) {  
                     $r->print("<tr bgcolor='#BBffBB'>".  
                           "<td align='center' colspan='7'>".&mt($type)."</td>  
 ");  
                 }  
                 $r->print($output);  
             }  
         }  
     } else {  
         foreach my $type ('Construction Space','Course','Domain','System') {  
     my $output;  
     foreach my $which (sort {uc($a) cmp uc($b)} (keys(%sortrole))) {  
         if ($roleclass{$sortrole{$which}} =~ /^\Q$type\E/) {   
     $output.=$roletext{$sortrole{$which}};  
         }  
     }      }
     if ($output) {   }
         if ($doheaders > 0) {   if ($output) {
     $r->print("<tr bgcolor='#BBffBB'>".      if ($doheaders > 0) {
       "<td align='center' colspan='7'>".&mt($type)."</td>");   $r->print("<tr bgcolor='#BBffBB'>".
         }    "<td align='center' colspan='7'>".&mt($type)."</td>");
         $r->print($output);      
     }      }
         }      $r->print($output);
    }
     }      }
     my $tremark='';      my $tremark='';
     my $tfont='#003300';      my $tfont='#003300';
Line 824  sub role_status { Line 768  sub role_status {
     }      }
 }  }
   
 sub dc_script {  
     my $response = (<<"END");  
 function setDCchoice(caller) {  
     var dcname = "dc./"+caller+"/"  
     document.rolechoice.dcselected.value = caller  
     document.rolechoice.elements[3].name = dcname  
     document.rolechoice.submit()  
 }  
 END  
     return $response;  
 }  
                                                                                    
 sub check_fordc {  sub check_fordc {
     my ($dcroles,$then) = @_;      my ($dcroles,$then) = @_;
     my $numdc = 0;      my $numdc = 0;
Line 857  sub check_fordc { Line 789  sub check_fordc {
     return $numdc;      return $numdc;
 }  }
   
 sub choosecourse_display {  sub courselink {
     my ($r,$dcdom,$then,$now) = @_;      my ($dcdom) = @_;
     my $cb_jscript = &Apache::loncommon::coursebrowser_javascript($dcdom,'dom');      my $cb_jscript = &Apache::loncommon::coursebrowser_javascript($dcdom,$dcdom);
       my $verify_script = &coursepick_jscript($dcdom);
       my $courseform=&Apache::loncommon::selectcourse_link
                        ('rolechoice','dccourse_'.$dcdom,'dcdomain_'.$dcdom,'coursedesc_'.$dcdom);
       my $hiddenitems = '<input type="hidden" name="dcdomain_'.$dcdom.'" value="'.$dcdom.'" />'.
                         '<input type="hidden" name="origdom_'.$dcdom.'" value="'.$dcdom.'" />'.
                         '<input type="hidden" name="dccourse_'.$dcdom.'" value="" />'.
                         '<input type="hidden" name="coursedesc_'.$dcdom.'" value="" />';
       return $cb_jscript.$verify_script.$courseform.$hiddenitems;
   }
   
   sub coursepick_jscript {
       my ($dcdom) = @_;
     my $verify_script = <<"END";      my $verify_script = <<"END";
 <script>  <script>
 function verifyCoursePick() {  function verifyCoursePick(caller) {
     var pickedCourse = document.roles.dccourse.value      var numbutton = getIndex(caller)
     var pickedDomain = document.roles.dcdomain.value      var pickedCourse = document.rolechoice.dccourse_$dcdom.value
     if (document.roles.dcdomain.value == document.roles.origdom.value) {      var pickedDomain = document.rolechoice.dcdomain_$dcdom.value
       if (document.rolechoice.dcdomain_$dcdom.value == document.rolechoice.origdom_$dcdom.value) {
         if (pickedCourse != '') {          if (pickedCourse != '') {
             var courseTarget = "cc./"+pickedDomain+"/"+pickedCourse              if (numbutton != -1) {
             document.roles.elements[0].value = 1                  var courseTarget = "cc./"+pickedDomain+"/"+pickedCourse
             document.roles.elements[0].name = courseTarget                  document.rolechoice.elements[numbutton+1].name = courseTarget
             document.roles.selectrole.value = 1                  document.rolechoice.submit()
             document.roles.submit()              }
         }          }
         else {          else {
             alert("You must use the 'Select Course' link to open a separate pick course window which you can use to select the course you wish to enter");              alert("You must use the 'Select Course' link to open a separate pick course window which you can use to select the course you wish to enter");
Line 881  function verifyCoursePick() { Line 826  function verifyCoursePick() {
         alert("You can only use this screen to select courses in the current domain")          alert("You can only use this screen to select courses in the current domain")
     }      }
 }  }
   function getIndex(caller) {
       for (var i=0;i<document.rolechoice.elements.length;i++) {
           if (document.rolechoice.elements[i] == caller) {
               return i;
           }
       }
       return -1;
   }
 </script>  </script>
 END  END
     my $courseform=&Apache::loncommon::selectcourse_link      return $verify_script;
                      ('roles','dccourse','dcdomain','coursedesc');  }
     $r->print($cb_jscript.$verify_script);  
     my $formaction='/adm/roles';  sub processpick {
     $formaction=~s/\/+/\//g;      my $dcdom = shift;
     my $crs;      my $process_pick = <<"END";
     &select_recent_courses($r,$dcdom,$then,$now);  <script>
     $r->print('<br /><form name="roles" method="post" action="'.$formaction.'" />');  function process_pick(dom) {
     $r->print('<h3>'.&mt('Choose a course from domain').': '.$dcdom.'</h3><font size="+1">'.$courseform.'</font><br /><br />'.      var numbutton = getIndex(dom)
               '<input type="hidden" name="chosencourse" value=""/>'.      var pickedCourse = opener.document.rolechoice.dccourse_$dcdom.value
               'Course Title: <input type="text" size="20" name="coursedesc" value=""><br />'.      var pickedDomain = opener.document.rolechoice.dcdomain_$dcdom.value
               'Course ID: <input type="text" size="15" name="dccourse" />'.      if (opener.document.rolechoice.dcdomain_$dcdom.value == opener.document.rolechoice.origdom_$dcdom.value) {
               '<input type="hidden" name="dcdomain" value="'.$dcdom.'" />'.          if (pickedCourse != '') {
               '<input type="hidden" name="origdom" value="'.$dcdom.'" />'.              if (numbutton != -1) {
               '<input type="hidden" name="selectrole" value="" />'.                  var courseTarget = "cc./"+pickedDomain+"/"+pickedCourse
               '<br /><br /><input type="button" name="proceed" value="'.&mt('Enter this course').'" onClick="verifyCoursePick()" />'.                  opener.document.rolechoice.elements[numbutton+1].name = courseTarget
               '</form>');                  opener.document.rolechoice.submit()
     return;              }
           }
       }
   }
    
   function getIndex(dom) {
       var callername = 'ccpick_'+dom
       for (var i=0;i<opener.document.rolechoice.elements.length;i++) {
           var elemname = opener.document.rolechoice.elements[i].name
           if (elemname == callername) {
               return i;
           }
       }
       return -1;
   }
   </script>
   END
       return $process_pick;
 }  }
   
 sub select_recent_courses {  sub select_recent_courses {
     my ($r,$dcdom,$then,$now)=@_;      my ($r,$roletext)=@_;
     my $advanced = $ENV{'user.adv'};      my $advanced = $ENV{'user.adv'};
     my $tryagain = $ENV{'form.tryagain'};      my $tryagain = $ENV{'form.tryagain'};
     my %recent=&Apache::lonnet::dump(&recent_filename('cc_pickby_dc_'.$dcdom));      my %recent=&Apache::lonnet::dump(&recent_filename('recent_roles'));
     my $numrecent = 0;      my $numrecent = 0;
     my $roletext = '<h3>'.&mt('Enter a recently visited course').'</h3>'.      my $roledisplay = '<tr bgcolor="#BBffBB">'.
                    '<form name="rolechoice" action="/adm/roles" method="post">'.  
                    '<table><tr><th>&nbsp;</th>'.  
                    '<th>'.&mt('User Role').'</th><th colspan=2>'.&mt('Extent').  
                    '</th><th>'.&mt('Start').'</th><th>'.&mt('End').'</th><th>'.  
                    &mt('Remarks and Calendar Announcements').'</th></tr>'."\n".  
                    '<tr bgcolor="#BBffBB">'.  
                    '<td align="center" colspan="7">'.                     '<td align="center" colspan="7">'.
                    &mt('Domain').' - '.&mt('Recent courses accessed in this domain').                     &mt('Recent courses accessed by DC').
                     '</td></tr>'."\n";                      '</td></tr>'."\n";
     foreach my $courseid (sort keys %recent) {      foreach my $courseid (sort keys %recent) {
         unless ($courseid =~/^error\:/) {          unless ($courseid =~/^error\:/) {
               print STDERR "$courseid\n";
             my ($dom,$crs) = split/_/,$courseid;              my ($dom,$crs) = split/_/,$courseid;
             if ($dom eq $dcdom) {              $numrecent ++;
                 $numrecent ++;              my $crskey = 'user.role.cc./'.$dom.'/'.$crs;
                 my $crskey = 'user.role.cc./'.$dom.'/'.$crs;              $roledisplay.=$$roletext{$crskey};
                 my ($where,$trolecode,$role,$tstatus,$tend,$tstart,$tbg,$tfont,$tremark,$inrole,$tpstart,$tpend);  
                 my $button = 1;  
                 &role_status($crskey,$then,$now,\$role,\$where,\$trolecode,\$tstatus,\$tstart,\$tend);  
                 if ($tstart) {  
                     $tpstart=&Apache::lonlocal::locallocaltime($tstart);  
                 }  
                 if ($tend) {  
                     $tpend=&Apache::lonlocal::locallocaltime($tend);  
                 }  
                 my $ttype = &mt('Course');  
                 my $twhere;  
                 if ($ENV{'course.'.$courseid.'.description'}) {  
                     $twhere=$ENV{'course.'.$courseid.'.description'};  
                 }  
                 my ($tdom,$trest,$tsection)=  
                     split(/\//,Apache::lonnet::declutter($where));  
                 if ($ENV{'request.role'} eq $trolecode) {  
                     $tstatus='selected';  
                 }  
                 if ($tstatus eq 'is') {  
                     $tbg='#77FF77';  
                     $tfont='#003300';  
                 } elsif ($tstatus eq 'future') {  
                     $tbg='#FFFF77';  
                     $button=0;  
                 } elsif ($tstatus eq 'will') {  
                     $tbg='#FFAA77';  
                     $tremark.=&mt('Active at next login. ');  
                 } elsif ($tstatus eq 'expired') {  
                     $tbg='#FF7777';  
                     $tfont='#330000';  
                     $button=0;  
                 } elsif ($tstatus eq 'will_not') {  
                     $tbg='#AAFF77';  
                     $tremark.=&mt('Expired after logout. ');  
                 } elsif ($tstatus eq 'selected') {  
                     $tbg='#11CC55';  
                     $tfont='#002200';  
                     $inrole=1;  
                     $tremark.=&mt('Currently selected. ');  
                 }  
                 my $trole=Apache::lonnet::plaintext($role);  
                 $roletext.='<tr bgcolor='.$tbg.'>';  
                 if (!$button) {  
                     $roletext.=('<td>&nbsp;</td>');  
                 } elsif ($tstatus eq 'is') {  
                     $roletext.=('<td><input type=submit value="'.  
                               &mt('Select').'" name="'.  
                               $trolecode.'"></td>');  
                 } elsif ($tryagain) {  
                     $roletext.=  
                         '<td><input type=submit value="'.  
                         &mt('Try Selecting Again').'" name="'.$trolecode.'"></td>';  
                 } elsif ($advanced) {  
                     $roletext.=  
                         '<td><input type=submit value="'.  
                         &mt('Re-Initialize').'" name="'.$trolecode.'"></td>';  
                 } else {  
                     $roletext.='<td>&nbsp;</td>';  
                 }  
                 $tremark.=&Apache::lonannounce::showday(time,1,  
                          &Apache::lonannounce::readcalendar($tdom.'_'.$trest));  
                                                                                     
                 $roletext.='<td><font color="'.$tfont.'">'.$trole.  
                       '</font></td><td><font color="'.$tfont.'">'.$ttype.  
                       '</font></td><td><font color="'.$tfont.'">'.$twhere.  
                       '</font></td><td><font color="'.$tfont.'">'.$tpstart.  
                       '</font></td><td><font color="'.$tfont.'">'.$tpend.  
                       '</font></td><td><font color="'.$tfont.'">'.$tremark.  
                       '&nbsp;</font></td></tr>'."\n";  
             }  
         }          }
     }      }
     if ($numrecent > 0) {      if ($numrecent > 0) {
         $r->print($roletext.'</table><input type="hidden" '.          $r->print("$roledisplay\n");
                   'name="selectrole" value="1" /></form>'."\n");  
     }      }
 }  }
   
   sub allcourses_row {
       my $dcdom = shift;
       my $ccrole = Apache::lonnet::plaintext('cc');
       my $selectlink = &courselink($dcdom);
       my $output = '<tr bgcolor="#77FF77">'.
                 '<td><input type="button" value="'.
                 &mt('Select').'" name="ccpick_'.$dcdom.'"'.
                 'onClick="verifyCoursePick(this)">'.
                 '<input type="hidden" name="pick_'.$dcdom.'" value="1"></td>'.
                 '<td><font color="#002200">'.
                 $ccrole.'</font></td><td>'.&mt('Course').'</td>'.
                 '<td><font color="#002200">'.&mt('All courses').':<b>&nbsp;'.
                 $selectlink.'</b>'.
                 '<br />'.&mt('Domain').':'.$dcdom.'</font>'.
                 '<td colspan="4"><font color="#002200">'.
                 &mt('Course Coordinator access to all courses in domain').
                 ': <b>'.$dcdom.'</b></font></td></tr>'."\n";
       return $output;
   }
   
 sub recent_filename {  sub recent_filename {
     my $area=shift;      my $area=shift;
     return 'nohist_recent_'.&Apache::lonnet::escape($area);      return 'nohist_recent_'.&Apache::lonnet::escape($area);
 }  }
   
   sub set_privileges {
       my ($dcdom,$pickedcourse) = @_;
       my $area = '/'.$dcdom.'/'.$pickedcourse;
       my $role = 'cc';
       my $spec = $role.'.'.$area;
       my $userroles = &Apache::lonnet::set_arearole($role,$area,'','',$dcdom,$ENV{'user.name'});
       my %ccrole = ();
       &Apache::lonnet::standard_roleprivs(\%ccrole,$role,$dcdom,$spec,$pickedcourse,$area);
       my ($author,$adv)= &Apache::lonnet::set_userprivs(\$userroles,\%ccrole);
       my @newprivs = split/\n/,$userroles;
       my %newccroles = ();
       foreach (@newprivs) {
           my ($key,$val) = split/=/,$_;
           $newccroles{$key} = $val;
       }
       &Apache::lonnet::appenv(%newccroles);
       &Apache::lonnet::log($ENV{'user.domain'},
                            $ENV{'user.name'},
                            $ENV{'user.home'},
                           "Role ".$role);
       &Apache::lonnet::appenv(
                             'request.role'        => $role,
                             'request.role.domain' => $dcdom,
                             'request.course.sec'  => '');
       my $tadv=0;
       if (&Apache::lonnet::allowed('adv') eq 'F') { $tadv=1; }
       &Apache::lonnet::appenv('request.role.adv'    => $tadv);
   }
   
 1;  1;
 __END__  __END__
   
Removed from v.1.105  
changed lines
  Added in v.1.109

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