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

Diff for /loncom/auth/lonroles.pm between versions 1.181.2.2 and 1.192

version 1.181.2.2, 2008/03/22 03:52:04 version 1.192, 2008/05/15 01:00:37
Line 106  sub handler { Line 106  sub handler {
   
 # ================================================================== Roles Init  # ================================================================== Roles Init
     if ($env{'form.selectrole'}) {      if ($env{'form.selectrole'}) {
   
           my $locknum=&Apache::lonnet::get_locks();
           if ($locknum) { return 409; }
   
         if ($env{'form.newrole'}) {          if ($env{'form.newrole'}) {
             $env{'form.'.$env{'form.newrole'}}=1;              $env{'form.'.$env{'form.newrole'}}=1;
  }   }
  if ($env{'request.course.id'}) {   if ($env{'request.course.id'}) {
               # Check if user is CC trying to select a course role
               if ($env{'form.switchrole'}) {
                   if (!defined($env{'user.role.'.$env{'form.switchrole'}})) {
                       &adhoc_course_role($then);
                   }
               }
     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);
     &Apache::lonnet::delenv('user.state.'.$env{'request.course.id'});      &Apache::lonnet::delenv('user.state.'.$env{'request.course.id'});
  }   }
  &Apache::lonnet::appenv("request.course.id"   => '',   &Apache::lonnet::appenv({"request.course.id"   => '',
  "request.course.fn"   => '',   "request.course.fn"   => '',
  "request.course.uri"  => '',   "request.course.uri"  => '',
  "request.course.sec"  => '',   "request.course.sec"  => '',
  "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 if user is a DC trying to enter a course or author space and needs privs to be created
 # Check if user is a DC trying to enter a course and needs privs to be created  
         if ($numdc > 0) {          if ($numdc > 0) {
             foreach my $envkey (keys %env) {              foreach my $envkey (keys %env) {
   # Is this an ad-hoc CC-role?
                 if (my ($domain,$coursenum) =                  if (my ($domain,$coursenum) =
     ($envkey =~ m-^form\.cc\./($match_domain)/($match_courseid)$-)) {      ($envkey =~ m-^form\.cc\./($match_domain)/($match_courseid)$-)) {
                      # See if that is even allowed
                      my %crsenv=&Apache::lonnet::get('environment',['internal.courseowner'],$domain,$coursenum);
                      # First find course owner
                      my ($owneruser,$ownerdomain)=split(/\:/,$crsenv{'internal.courseowner'});
                      # Check if course owner blocked cc-access
                       if (($owneruser) && ($ownerdomain)) {
                          my %blocked=&Apache::lonnet::get('environment',['domcoord.cc'],$ownerdomain,$owneruser);
                          if ($blocked{'domcoord.cc'} eq 'blocked') {
                             $env{'user.error.msg'}=':::1:Course owner '.$owneruser.' in domain '.$ownerdomain.' blocked domain coordinator access';
                             last;
                          }
                       }
                     if ($dcroles{$domain}) {                      if ($dcroles{$domain}) {
                         &check_privs($domain,$coursenum,$then,$now);                          &check_privs($domain,$coursenum,$then,$now,'cc');
                       }
                       last;
                   }
   # Is this a recent ad-hoc CA-role?
                   if (my ($domain,$user) =
       ($envkey =~ m-^form\.ca\./($match_domain)/($match_username)$-)) {
                      # See if still allowed
                       my %blocked=&Apache::lonnet::get('environment',['domcoord.author'],$domain,$user);
                       if ($blocked{'domcoord.author'} eq 'blocked') {
                          delete($env{$envkey});
                          $env{'user.error.msg'}=':::1:User '.$user.' in domain '.$domain.' blocked domain coordinator access';
                          last;
                       }
                       if (($dcroles{$domain}) && (&is_author_homeserver($user,$domain))) {
                           &check_privs($domain,$user,$then,$now,'ca');
                       } else {
                           delete($env{$envkey});
                       }
                       last;
                   }
   # Is this a new ad-hoc CA-role?
                   if (my ($domain) =
                       ($envkey =~ m-^form\.adhocca\./($match_domain)$-)) {
                       my $user=$env{'form.adhoccauname.'.$domain};
                       if (!$user) { $user=$env{'form.adhoccaunamerecent.'.$domain} };
                      # See if that is even allowed
                       my %blocked=&Apache::lonnet::get('environment',['domcoord.author'],$domain,$user);
                       if ($blocked{'domcoord.author'} eq 'blocked') {
                          $env{'user.error.msg'}=':::1:User '.$user.' in domain '.$domain.' blocked domain coordinator access';
                          last;
                       }
                       if ($dcroles{$domain}) {
                           if (($user) && ($user=~/$match_username/) && (&is_author_homeserver($user,$domain))) { 
                              &check_privs($domain,$user,$then,$now,'ca');
                              $env{'form.ca./'.$domain.'/'.$user}=1;
          }
                     }                      }
                     last;                      last;
                 }                  }
Line 245  ENDENTERKEY Line 303  ENDENTERKEY
  "Role ".$trolecode);   "Role ".$trolecode);
           
     &Apache::lonnet::appenv(      &Apache::lonnet::appenv(
    'request.role'        => $trolecode,     {'request.role'        => $trolecode,
    'request.role.domain' => $cdom,      'request.role.domain' => $cdom,
    'request.course.sec'  => $csec,      'request.course.sec'  => $csec,
                                            'request.course.groups' => $cgrps);                                              'request.course.groups' => $cgrps});
                     my $tadv=0;                      my $tadv=0;
   
     if (($cnum) && ($role ne 'ca') && ($role ne 'aa')) {      if (($cnum) && ($role ne 'ca') && ($role ne 'aa')) {
Line 259  ENDENTERKEY Line 317  ENDENTERKEY
     ($env{'form.orgurl'}!~/^\/adm\/flip/)) {      ($env{'form.orgurl'}!~/^\/adm\/flip/)) {
     my $dest=$env{'form.orgurl'};      my $dest=$env{'form.orgurl'};
     if (&Apache::lonnet::allowed('adv') eq 'F') { $tadv=1; }      if (&Apache::lonnet::allowed('adv') eq 'F') { $tadv=1; }
     &Apache::lonnet::appenv('request.role.adv'=>$tadv);      &Apache::lonnet::appenv({'request.role.adv'=>$tadv});
                             if (($ferr) && ($tadv)) {                              if (($ferr) && ($tadv)) {
  &error_page($r,$ferr,$dest);   &error_page($r,$ferr,$dest);
     } else {      } else {
Line 269  ENDENTERKEY Line 327  ENDENTERKEY
  } else {   } else {
     if (!$env{'request.course.id'}) {      if (!$env{'request.course.id'}) {
  &Apache::lonnet::appenv(   &Apache::lonnet::appenv(
       "request.course.id"  => $cdom.'_'.$cnum);        {"request.course.id"  => $cdom.'_'.$cnum});
  $furl='/adm/roles?tryagain=1';   $furl='/adm/roles?tryagain=1';
  $msg=   $msg=
     '<h1><span class="LC_error">'.      '<h1><span class="LC_error">'.
Line 278  ENDENTERKEY Line 336  ENDENTERKEY
     '</span></h1><h3>'.&mt('Please try again.').'</h3>'.$ferr;      '</span></h1><h3>'.&mt('Please try again.').'</h3>'.$ferr;
     }      }
     if (&Apache::lonnet::allowed('adv') eq 'F') { $tadv=1; }      if (&Apache::lonnet::allowed('adv') eq 'F') { $tadv=1; }
     &Apache::lonnet::appenv('request.role.adv'=>$tadv);      &Apache::lonnet::appenv({'request.role.adv'=>$tadv});
   
     if (($ferr) && ($tadv)) {      if (($ferr) && ($tadv)) {
  &error_page($r,$ferr,$furl);   &error_page($r,$ferr,$furl);
Line 295  ENDENTERKEY Line 353  ENDENTERKEY
     $furl = "/adm/helper/course.initialization.helper";      $furl = "/adm/helper/course.initialization.helper";
     # Send the user to the course they selected      # Send the user to the course they selected
  } elsif ($env{'request.course.id'}) {   } elsif ($env{'request.course.id'}) {
                                       if ($env{'form.destinationurl'}) {
                                           my $dest = $env{'form.destinationurl'};
                                           &redirect_user($r,&mt('Entering [_1]',
                                                         $env{'course.'.$courseid.'.description'}),
                                                  $dest,$msg,
                                                  $env{'environment.remotenavmap'});
                                           return OK;
                                       }
     if (&Apache::lonnet::allowed('whn',      if (&Apache::lonnet::allowed('whn',
  $env{'request.course.id'})   $env{'request.course.id'})
  || &Apache::lonnet::allowed('whn',   || &Apache::lonnet::allowed('whn',
Line 464  ENDHEADER Line 530  ENDHEADER
   
     my (%roletext,%sortrole,%roleclass);      my (%roletext,%sortrole,%roleclass);
     my $countactive=0;      my $countactive=0;
       my $countfuture=0;
       my $countwill=0;
     my $inrole=0;      my $inrole=0;
     my $possiblerole='';      my $possiblerole='';
       my %futureroles;
       my %roles_nextlogin;
     foreach $envkey (sort keys %env) {      foreach $envkey (sort keys %env) {
         my $button = 1;          my $button = 1;
         my $switchserver='';          my $switchserver='';
Line 502  ENDHEADER Line 572  ENDHEADER
                 } elsif ($tstatus eq 'future') {                  } elsif ($tstatus eq 'future') {
                     $tbg='#FFFF77';                      $tbg='#FFFF77';
                     $button=0;                      $button=0;
                       $futureroles{$trolecode} = $tstart.':'.$tend;
                       $countfuture ++;
                 } elsif ($tstatus eq 'will') {                  } elsif ($tstatus eq 'will') {
                     $tbg='#FFAA77';                      $tbg='#FFAA77';
                     $tremark.=&mt('Active at next login. ');                      $tremark.=&mt('Active at next login. ');
                       $roles_nextlogin{$trolecode} = $tstart.':'.$tend;
                       $countwill ++;
                 } elsif ($tstatus eq 'expired') {                  } elsif ($tstatus eq 'expired') {
                     $tbg='#FF7777';                      $tbg='#FF7777';
                     $tfont='#330000';                      $tfont='#330000';
Line 627  ENDHEADER Line 701  ENDHEADER
  } else {   } else {
     $r->print('<h2>'.&mt('Currently no active roles or courses').'</h2>');      $r->print('<h2>'.&mt('Currently no active roles or courses').'</h2>');
  }   }
  $r->print('</form>'.&Apache::loncommon::end_page());          &findcourse_advice($r);
    $r->print('</form>');
           if ($countfuture) {
               $r->print(&mt('The following [quant,_1,role,roles] will become active in the future:',$countfuture));
               my $doheaders = &roletable_headers($r,\%roleclass,\%sortrole,
                                                  $nochoose);
               &print_rolerows($r,$doheaders,\%roleclass,\%sortrole,\%dcroles,
                               \%roletext);
               my $tremark='';
               my $tfont='#003300';
               if ($env{'request.role'} eq 'cm') {
                   $r->print('<tr bgcolor="#11CC55">');
                   $tremark=&mt('Currently selected. ');
                   $tfont='#002200';
               } else {
                   $r->print('<tr bgcolor="#77FF77">');
               }
               $r->print('<td></td><td colspan="3"><font color="'.$tfont.'"><span class="LC_rolesinfo">'.&mt('No role specified').
                         '</span></font></td><td><font color="'.$tfont.'">'.$tremark.
                         '&nbsp;</font></td></tr>'."\n");
   
               $r->print('</table>');
           }
           $r->print(&Apache::loncommon::end_page());
  return OK;   return OK;
 # Is there only one choice?  # Is there only one choice?
     } elsif (($countactive==1) && ($env{'request.role'} eq 'cm')) {      } elsif (($countactive==1) && ($env{'request.role'} eq 'cm')) {
Line 645  ENDHEADER Line 742  ENDHEADER
     unless ((!&Apache::lonmenu::show_course()) || ($nochoose)) {      unless ((!&Apache::lonmenu::show_course()) || ($nochoose)) {
  $r->print("<h2>".&mt('Select a Course to Enter')."</h2>\n");   $r->print("<h2>".&mt('Select a Course to Enter')."</h2>\n");
     }      }
     $r->print('<br /><table id="LC_rolesmenu"><tr>');      my $doheaders = &roletable_headers($r,\%roleclass,\%sortrole,$nochoose);
     unless ($nochoose) { $r->print('<th>&nbsp;</th>'); }  
     $r->print('<th>'.&mt('User Role').'</th><th>'.&mt('Extent').  
          '</th><th>'.&mt('Start').'</th><th>'.&mt('End').'</th></tr>'."\n");  
     my $doheaders=-1;  
     foreach my $type ('Domain','Construction Space','Course','Unavailable','System') {  
  my $haverole=0;  
  foreach my $which (sort {uc($a) cmp uc($b)} (keys(%sortrole))) {  
     if ($roleclass{$sortrole{$which}} =~ /^\Q$type\E/) {   
  $haverole=1;  
     }  
  }  
  if ($haverole) { $doheaders++; }  
     }  
   
     if ($env{'environment.recentroles'}) {      if ($env{'environment.recentroles'}) {
         my %recent_roles =          my %recent_roles =
                &Apache::lonhtmlcommon::get_recent('roles',$env{'environment.recentrolesn'});                 &Apache::lonhtmlcommon::get_recent('roles',$env{'environment.recentrolesn'});
Line 669  ENDHEADER Line 752  ENDHEADER
  $output.=$roletext{'user.role.'.$_};   $output.=$roletext{'user.role.'.$_};
                 if ($_ =~ m-dc\./($match_domain)/-                   if ($_ =~ m-dc\./($match_domain)/- 
     && $dcroles{$1}) {      && $dcroles{$1}) {
     $output .= &allcourses_row($1,'recent');      $output .= &adhoc_roles_row($1,'recent');
                 }                  }
     } elsif ($numdc > 0) {      } elsif ($numdc > 0) {
                 unless ($_ =~/^error\:/) {                  unless ($_ =~/^error\:/) {
Line 679  ENDHEADER Line 762  ENDHEADER
  }   }
  if ($output) {   if ($output) {
     $r->print("<tr><td align='center' colspan='5'><font face='arial'>".      $r->print("<tr><td align='center' colspan='5'><font face='arial'>".
       &mt('Recent Roles')."</font></td>");        &mt('Recent Roles')."</font></td></tr>");
     $r->print($output);      $r->print($output);
     $r->print("</tr>");  
             $doheaders ++;              $doheaders ++;
  }   }
     }      }
Line 690  ENDHEADER Line 772  ENDHEADER
         $r->print(&coursepick_jscript());          $r->print(&coursepick_jscript());
         $r->print(&Apache::loncommon::coursebrowser_javascript());          $r->print(&Apache::loncommon::coursebrowser_javascript());
     }      }
     foreach my $type ('Construction Space','Domain','Course','Unavailable','System') {      &print_rolerows($r,$doheaders,\%roleclass,\%sortrole,\%dcroles,\%roletext);
  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 ($sortrole{$which} =~ m-dc\./($match_domain)/-) {  
                     if ($dcroles{$1}) {  
                         $output .= &allcourses_row($1,'');  
                     }  
                 }  
     }  
  }  
  if ($output) {  
     if ($doheaders > 0) {  
  $r->print("<tr>".  
   "<td align='center' colspan='5'><font face='arial'>".&mt($type)."</font></td></tr>");  
     }  
     $r->print($output);  
  }  
     }  
     my $tremark='';      my $tremark='';
     my $tfont='#003300';      my $tfont='#003300';
     if ($env{'request.role'} eq 'cm') {      if ($env{'request.role'} eq 'cm') {
Line 722  ENDHEADER Line 785  ENDHEADER
     unless ($nochoose) {      unless ($nochoose) {
  if ($env{'request.role'} ne 'cm') {   if ($env{'request.role'} ne 'cm') {
     $r->print('<td><input type="submit" value="'.      $r->print('<td><input type="submit" value="'.
       &mt('Select').'" name="cm"></td>');        &mt('Select').'" name="cm" /></td>');
  } else {   } else {
     $r->print('<td>&nbsp;</td>');      $r->print('<td>&nbsp;</td>');
  }   }
     }      }
     $r->print('<td colspan="3"><font color="'.$tfont.'"><span class="LC_rolesinfo">'.&mt('No role specified').      $r->print('<td colspan="3"><font color="'.$tfont.'"><span class="LC_rolesinfo">'.&mt('No role specified').
       '</font></span></td><td><font color="'.$tfont.'">'.$tremark.        '</span></font></td><td><font color="'.$tfont.'">'.$tremark.
       '&nbsp;</font></td></tr>'."\n");        '&nbsp;</font></td></tr>'."\n");
   
     $r->print('</table>');      $r->print('</table>');
Line 750  ENDHEADER Line 813  ENDHEADER
     return OK;      return OK;
 }  }
   
   sub roletable_headers {
       my ($r,$roleclass,$sortrole,$nochoose) = @_;
       my $doheaders;
       if ((ref($sortrole) eq 'HASH') && (ref($roleclass) eq 'HASH')) {
           $r->print('<br /><table id="LC_rolesmenu"><tr>');
           if (!$nochoose) { $r->print('<th>&nbsp;</th>'); }
           $r->print('<th>'.&mt('User Role').'</th><th>'.&mt('Extent')
                     .'</th><th>'.&mt('Start').'</th><th>'.&mt('End')
                     .'</th></tr>'."\n");
           $doheaders=-1;
           my @roletypes = &roletypes();
           foreach my $type (@roletypes) {
               my $haverole=0;
               foreach my $which (sort {uc($a) cmp uc($b)} (keys(%{$sortrole}))) {
                   if ($roleclass->{$sortrole->{$which}} =~ /^\Q$type\E/) {
                       $haverole=1;
                   }
               }
               if ($haverole) { $doheaders++; }
           }
       }
       return $doheaders;
   }
   
   sub roletypes {
       my @types = ('Domain','Construction Space','Course','Unavailable','System');
       return @types; 
   }
   
   sub print_rolerows {
       my ($r,$doheaders,$roleclass,$sortrole,$dcroles,$roletext) = @_;
       if ((ref($roleclass) eq 'HASH') && (ref($sortrole) eq 'HASH')) {
           my @types = &roletypes();
           foreach my $type (@types) {
               my $output;
               foreach my $which (sort {uc($a) cmp uc($b)} (keys(%{$sortrole}))) {
                   if ($roleclass->{$sortrole->{$which}} =~ /^\Q$type\E/) {
                       if (ref($roletext) eq 'HASH') {
                           $output.=$roletext->{$sortrole->{$which}};
                           if ($sortrole->{$which} =~ m-dc\./($match_domain)/-) {
                               if (ref($dcroles) eq 'HASH') {
                                   if ($dcroles->{$1}) {
                                       $output .= &adhoc_roles_row($1,'');
                                   }
                               }
                           }
                       }
                   }
               }
               if ($output) {
                   if ($doheaders > 0) {
                       $r->print("<tr>".
                                 "<td align='center' colspan='5'><font face='arial'>".
                                 &mt($type)."</font></td></tr>");
                   }
                   $r->print($output);
               }
           }
       }
   }
   
   sub findcourse_advice {
       my ($r) = @_;
       my $domdesc = &Apache::lonnet::domain($env{'user.domain'},'description');
       if (&check_autoenroll($env{'user.domain'})) {
           $r->print(&mt('If you were expecting to see an active role listed for a particular course in the [_1] domain, it may be missing for one of the following reasons:',$domdesc).'
   <ul>
    <li>'.&mt('The course has yet to be created.').'</li>
    <li>'.&mt('Automatic enrollment of registered students has not been enabled for the course.').'</li>
    <li>'.&mt('You are in a section of course for which automatic enrollment in the corresponding LON-CAPA course is not active.').'</li>
    <li>'.&mt('The start date for automated enrollment has yet to be reached.').'</li>
    <li>'.&mt('You registered for the course recently and there is a time lag between the time you register, and the time this information becomes available for the update of LON-CAPA course rosters.').'</li>
    </ul>');
       } else {
           $r->print(&mt('If you were expecting to see an active role listed for a particular course, that course may not have been created yet.').'<br />');
       }
       $r->print('<p>'.&mt('The [_1]Course Catalog[_2] provides information about all [_3] classes for which LON-CAPA courses have been created.','<a href="/adm/coursecatalog">','</a>',$domdesc).'<br />');
       $r->print(&mt('You can search the course catalog for courses which permit self-enrollment, if you would like to enroll in a course.').'</p>');
       return;
   }
   
 sub privileges_info {  sub privileges_info {
     my ($which) = @_;      my ($which) = @_;
     my $output;      my $output;
Line 850  sub build_roletext { Line 994  sub build_roletext {
         } elsif ($tstatus eq 'is') {          } elsif ($tstatus eq 'is') {
             $roletext.='<td'.$rowspan.'><input name="'.$buttonname.'" type="button" value="'.              $roletext.='<td'.$rowspan.'><input name="'.$buttonname.'" type="button" value="'.
                         &mt('Select').'" onClick="javascript:enterrole(this.form,\''.                          &mt('Select').'" onClick="javascript:enterrole(this.form,\''.
                         $trolecode."','".$buttonname.'\');"></td>';                          $trolecode."','".$buttonname.'\');" /></td>';
         } elsif ($tryagain) {          } elsif ($tryagain) {
             $roletext.=              $roletext.=
                 '<td'.$rowspan.'><input name="'.$buttonname.'" type="button" value="'.                  '<td'.$rowspan.'><input name="'.$buttonname.'" type="button" value="'.
                 &mt('Try Selecting Again').'" onClick="javascript:enterrole(this.form,\''.                  &mt('Try Selecting Again').'" onClick="javascript:enterrole(this.form,\''.
                         $trolecode."','".$buttonname.'\');"></td>';                          $trolecode."','".$buttonname.'\');" /></td>';
         } elsif ($advanced) {          } elsif ($advanced) {
             $roletext.=              $roletext.=
                 '<td'.$rowspan.'><input name="'.$buttonname.'" type="button" value="'.                  '<td'.$rowspan.'><input name="'.$buttonname.'" type="button" value="'.
                 &mt('Re-Initialize').'" onClick="javascript:enterrole(this.form,\''.                  &mt('Re-Initialize').'" onClick="javascript:enterrole(this.form,\''.
                         $trolecode."','".$buttonname.'\');"></td>';                          $trolecode."','".$buttonname.'\');" /></td>';
         } else {          } else {
             $roletext.='<td'.$rowspan.'>&nbsp;</td>';              $roletext.='<td'.$rowspan.'>&nbsp;</td>';
         }          }
Line 881  sub build_roletext { Line 1025  sub build_roletext {
     return $roletext;      return $roletext;
 }  }
   
   sub is_author_homeserver {
       my ($uname,$udom)=@_;
       my $home = &Apache::lonnet::homeserver($uname,$udom);
       my @ids=&Apache::lonnet::current_machine_ids();
       foreach my $id (@ids) { 
          if ($id eq $home) { 
             if (-e "/home/".$uname."/public_html") {
                return 1;
             }
          }
       }
       return 0;
   }
   
 sub check_privs {  sub check_privs {
     my ($cdom,$cnum,$then,$now) = @_;      my ($cdom,$cnum,$then,$now,$checkrole) = @_;
     my $cckey = 'user.role.cc./'.$cdom.'/'.$cnum;       my $cckey = 'user.role.'.$checkrole.'./'.$cdom.'/'.$cnum; 
     if ($env{$cckey}) {      if ($env{$cckey}) {
         my ($role,$where,$trolecode,$tstart,$tend,$tremark,$tstatus,$tpstart,$tpend,$tfont);          my ($role,$where,$trolecode,$tstart,$tend,$tremark,$tstatus,$tpstart,$tpend,$tfont);
         &role_status($cckey,$then,$now,\$role,\$where,\$trolecode,\$tstatus,\$tstart,\$tend);          &role_status($cckey,$then,$now,\$role,\$where,\$trolecode,\$tstatus,\$tstart,\$tend);
         unless (($tstatus eq 'is') || ($tstatus eq 'will_not')) {          unless (($tstatus eq 'is') || ($tstatus eq 'will_not')) {
             &set_privileges($cdom,$cnum);              &set_privileges($cdom,$cnum,$checkrole);
         }          }
     } else {      } else {
         &set_privileges($cdom,$cnum);          &set_privileges($cdom,$cnum,$checkrole);
     }      }
 }  }
   
Line 916  sub check_fordc { Line 1074  sub check_fordc {
     return $numdc;      return $numdc;
 }  }
   
   sub adhoc_course_role {
       my ($then) = @_; 
       my ($cdom,$cnum);
       my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
       my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
       if (&check_forcc($cdom,$cnum,$then)) {
           my $setprivs;
           if (!defined($env{'user.role.'.$env{'form.selectrole'}})) {
               $setprivs = 1;
           } else {
               my ($start,$end) = split(/\./,$env{'user.role.'.$env{'form.selectrole'}});
               if (($start && ($start>$then || $start == -1)) ||
                   ($end && $end<$then)) {
                   $setprivs = 1;
               }
           } 
           if ($setprivs) {
               if ($env{'form.switchrole'} =~ m-^(in|ta|ep|ad|st|cr)([\w/]*)\./\Q$cdom\E/\Q$cnum\E(/?\w*)$-) {
                   my $role = $1;
                   my $custom_role = $2;
                   my $usec = $3;
                   if ($role eq 'cr') {
                       if ($custom_role =~ m-^$match_domain/$match_courseid/\w+$-) {
                           $role .= $custom_role;
                       } else {
                           return;
                       }
                   }
                   my (%userroles,%newrole,%newgroups);
                   my $area = '/'.$cdom.'/'.$cnum;
                   my $spec = $role.'.'.$area;
                   if ($usec ne '') {
                       $spec .= '/'.$usec;
                       $area .= '/'.$usec;
                   }
                   &Apache::lonnet::standard_roleprivs(\%newrole,$role,$cdom,$spec,$cnum,$area);
                   &Apache::lonnet::set_userprivs(\%userroles,\%newrole,%newgroups);
                   my $adhocstart = $then-1;
                   $userroles{'user.role.'.$spec} = $adhocstart.'.';
                   &Apache::lonnet::appenv(\%userroles,[$role,'cm']);
               }
           }
       }
       return;
   }
   
   sub check_forcc {
       my ($cdom,$cnum,$then) = @_;
       my $is_cc;
       if ($cdom ne '' && $cnum ne '') {
           if (&Apache::lonnet::is_course($cdom,$cnum)) {
               my $envkey = 'user.role.cc./'.$cdom.'/'.$cnum;
               if (defined($env{$envkey})) {
                   $is_cc = 1;
                   my ($tstart,$tend)=split(/\./,$env{$envkey});
                   if ($tstart && $tstart>$then) { $is_cc = 0; }
                   if ($tend   && $tend  <$then) { $is_cc = 0; }
               }
           }
       }
       return $is_cc;
   }
   
 sub courselink {  sub courselink {
     my ($dcdom,$rowtype,$selecttype) = @_;      my ($dcdom,$rowtype,$selecttype) = @_;
     my $courseform=&Apache::loncommon::selectcourse_link      my $courseform=&Apache::loncommon::selectcourse_link
Line 933  sub coursepick_jscript { Line 1154  sub coursepick_jscript {
     my %lt = &Apache::lonlocal::texthash(      my %lt = &Apache::lonlocal::texthash(
                   plsu => "Please use the 'Select Course' link to open a separate pick course window where you may select the course you wish to enter.",                    plsu => "Please use the 'Select Course' link to open a separate pick course window where you may select the course you wish to enter.",
                   youc => 'You can only use this screen to select courses in the current domain.',                    youc => 'You can only use this screen to select courses in the current domain.',
             );               );
     my $verify_script = <<"END";      my $verify_script = <<"END";
 <script type="text/javascript">  <script type="text/javascript">
 function verifyCoursePick(caller) {  function verifyCoursePick(caller) {
Line 953  function verifyCoursePick(caller) { Line 1174  function verifyCoursePick(caller) {
         }          }
     }      }
     else {      else {
         alert("$lt{'youc'}");          alert("$lt{'youc'}")
     }      }
 }  }
 function getIndex(caller) {  function getIndex(caller) {
Line 1001  sub display_cc_role { Line 1222  sub display_cc_role {
     return ($roletext);      return ($roletext);
 }  }
   
 sub allcourses_row {  sub adhoc_roles_row {
     my ($dcdom,$rowtype) = @_;      my ($dcdom,$rowtype) = @_;
     my $output = '<tr bgcolor="#77FF77">'.      my $output = '<tr bgcolor="#77FF77">'.
                  ' <td colspan="5">';                   ' <td colspan="5"><table><tr><td><span class="LC_rolesinfo">'
                    .&mt('[_1]Ad hoc[_2] roles in domain [_3] --',
                    '<span class="LC_cusr_emph">','</span>',$dcdom).'</span></td><td>';
     my $selectlink = &courselink($dcdom,$rowtype);      my $selectlink = &courselink($dcdom,$rowtype);
     my $ccrole = &Apache::lonnet::plaintext('cc');      my $ccrole = &Apache::lonnet::plaintext('cc');
       my $carole = &Apache::lonnet::plaintext('ca');
       my $inputlink='<input type="text" size="10" name="adhoccauname'.$rowtype.'.'.$dcdom.'" />';
       my $gobutton='<input type="submit" name="adhocca./'.$dcdom.'" value="'.&mt('Go').'" />';
     $output.= '<span class="LC_rolesinfo">'.      $output.= '<span class="LC_rolesinfo">'.
             &mt('[_1]: [_2] from domain [_3]',$ccrole,$selectlink,$dcdom).              &mt('[_1]: [_2]',$ccrole,$selectlink).
             '</span><br /></tr><tr><td colspan="5" height="3"></td></tr>'."\n";              '</span><br /></td><td>&nbsp;&nbsp;</td><td><span class="LC_rolesinfo">'.
               &mt('[_1]: [_2] [_3]',$carole,$inputlink,$gobutton).
               '</span><br /></td></tr></table></td></tr>'.
               '<tr><td colspan="5" height="3"></td></tr>'."\n";
     return $output;      return $output;
 }  }
   
Line 1019  sub recent_filename { Line 1248  sub recent_filename {
 }  }
   
 sub set_privileges {  sub set_privileges {
     my ($dcdom,$pickedcourse) = @_;  # role can be cc or ca
       my ($dcdom,$pickedcourse,$role) = @_;
     my $area = '/'.$dcdom.'/'.$pickedcourse;      my $area = '/'.$dcdom.'/'.$pickedcourse;
     my $role = 'cc';  
     my $spec = $role.'.'.$area;      my $spec = $role.'.'.$area;
     my %userroles = &Apache::lonnet::set_arearole($role,$area,'','',      my %userroles = &Apache::lonnet::set_arearole($role,$area,'','',
   $env{'user.domain'},    $env{'user.domain'},
Line 1029  sub set_privileges { Line 1258  sub set_privileges {
     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);
     &Apache::lonnet::appenv(%userroles);      &Apache::lonnet::appenv(\%userroles,[$role,'cm']);
   
     &Apache::lonnet::log($env{'user.domain'},      &Apache::lonnet::log($env{'user.domain'},
                          $env{'user.name'},                           $env{'user.name'},
                          $env{'user.home'},                           $env{'user.home'},
                         "Role ".$role);                          "Role ".$role);
     &Apache::lonnet::appenv(      &Apache::lonnet::appenv(
                           'request.role'        => $spec,                            {'request.role'        => $spec,
                           'request.role.domain' => $dcdom,                            'request.role.domain' => $dcdom,
                           'request.course.sec'  => '');                            'request.course.sec'  => ''});
     my $tadv=0;      my $tadv=0;
     if (&Apache::lonnet::allowed('adv') eq 'F') { $tadv=1; }      if (&Apache::lonnet::allowed('adv') eq 'F') { $tadv=1; }
     &Apache::lonnet::appenv('request.role.adv'    => $tadv);      &Apache::lonnet::appenv({'request.role.adv'    => $tadv});
 }  }
   
 sub courseloadpage {  sub courseloadpage {
Line 1060  sub courseloadpage { Line 1290  sub courseloadpage {
     return $startpage;      return $startpage;
 }  }
   
   sub check_autoenroll {
       my ($dom) = @_;
       my $run_enroll = 0;
       my $settings;
       my %domconfig =
           &Apache::lonnet::get_dom('configuration',['autoenroll'],$dom);
       if (ref($domconfig{'autoenroll'}) eq 'HASH') {
           $settings = $domconfig{'autoenroll'};
           if ($settings->{'run'} eq '1') {
               $run_enroll = 1;
           }
       } else {
           $run_enroll = &localenroll::run($dom);
       }
       return $run_enroll;
   }
   
   
 1;  1;
 __END__  __END__
   
Removed from v.1.181.2.2  
changed lines
  Added in v.1.192

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