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

Diff for /loncom/auth/lonroles.pm between versions 1.106 and 1.114

version 1.106, 2004/11/11 22:18:23 version 1.114, 2004/12/03 05:34:04
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 121  sub handler { Line 100  sub handler {
                                 "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                              # Check if user is a DC trying to enter a course and needs privs to be created
 # course selection page          if ($numdc > 0) {
         my $dcflag = 0;              foreach my $envkey (keys %ENV) {
         if ($ENV{'form.dccourse'}) {                  if ($envkey =~ m-^form\.cc\./(\w+)/(\w+)$-) {
             my $dcdom = $ENV{'form.dcdomain'};                      if ($dcroles{$1}) {
             my $pickedcourse = $ENV{'form.dccourse'};                          my $cckey = 'user.role.cc./'.$1.'/'.$2;
             if ($dcdom && $pickedcourse) {                          &check_privs($cckey,$then,$now);
                 unless ($ENV{'user.role.cc./'.$dcdom.'/'.$pickedcourse}) {  
                     if ($ENV{'user.role.dc./'.$dcdom.'/'}) {  
                         &set_privileges($dcdom,$pickedcourse);  
                         my $msg=&mt('Entering course ...');  
                         my ($furl,$ferr)=&Apache::lonuserstate::readmap($dcdom.'/'.$pickedcourse);  
                         my $formaction = '/adm/roles/';  
                         my $courseid = $dcdom.'_'.$pickedcourse;  
                         &Apache::lonhtmlcommon::store_recent('cc_pickby_dc_'.$dcdom,  
                             $courseid,$formaction);  
                         # Send the user to the course they selected  
                         &redirect_user($r,&mt('Entering Course'),  
                                 $furl,$msg,  
                                 $ENV{'environment.remotenavmap'});  
                         return OK;  
                     }                      }
                       last;
                 }                  }
             }              }
         }          }
Line 155  sub handler { Line 121  sub handler {
  if ($tstatus eq 'is') {   if ($tstatus eq 'is') {
     $where=~s/^\///;      $where=~s/^\///;
     my ($cdom,$cnum,$csec)=split(/\//,$where);      my ($cdom,$cnum,$csec)=split(/\//,$where);
   # store role if recent_role list being kept
                       if ($ENV{'environment.recentroles'}) {
    &Apache::lonhtmlcommon::store_recent('roles',
        $trolecode,' ');
                       }
   
   
 # check for keyed access  # check for keyed access
     if (($role eq 'st') &&       if (($role eq 'st') && 
                        ($ENV{'course.'.$cdom.'_'.$cnum.'.keyaccess'} eq 'yes')) {                         ($ENV{'course.'.$cdom.'_'.$cnum.'.keyaccess'} eq 'yes')) {
Line 289  ENDENTERKEY Line 262  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  
                             # course selection page  
                             my $dcflag = 0;  
                             if ($ENV{'form.dccourse'}) {  
                                 my $formaction = '/adm/roles/';  
                                 my ($dcdom,$pickedcourse) = split/_/,$courseid;  
                                 if ($ENV{'user.role.dc./'.$dcdom.'/'}) {  
                                     &Apache::lonhtmlcommon::store_recent('cc_pickby_dc_'.$dcdom,  
                                     $courseid,$formaction);  
                                 }  
                             }  
                             #  
                             # Send the user to the course they selected                              # Send the user to the course they selected
                             &redirect_user($r,&mt('Entering Course'),                              &redirect_user($r,&mt('Entering Course'),
                                            $furl,$msg,                                             $furl,$msg,
Line 324  ENDENTERKEY Line 285  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 345  ENDENTERKEY Line 304  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 358  $helptag<br /> Line 316  $helptag<br />
 <script>  <script>
 $swinfo  $swinfo
 window.focus();  window.focus();
 $setDCchoice  
 </script>  </script>
 ENDHEADER  ENDHEADER
   
Line 377  ENDHEADER Line 334  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 435  ENDHEADER Line 386  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 591  ENDHEADER Line 539  ENDHEADER
     $sortkey=$role.$twhere;      $sortkey=$role.$twhere;
                 }                  }
     
                 $roletext.='<tr bgcolor='.$tbg.'>';                  $roletext.=&build_roletext($trolecode,$tdom,$trest,$tstatus,$tryagain,$advanced,$tremark,$tbg,$tfont,$trole,$ttype,$twhere,$tpstart,$tpend,$nochoose,$button,$switchserver);
                 unless ($nochoose) {  
                     if (!$button) {  
  if ($switchserver) {  
     $roletext.='<td><a href="/adm/logout?handover='.  
                               $switchserver.'">'.&mt('Switch Server').'</a></td>';  
                         } else {  
                             $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";  
  $roletext{$envkey}=$roletext;   $roletext{$envkey}=$roletext;
  if (!$sortkey) {$sortkey=$twhere."\0".$envkey;}   if (!$sortkey) {$sortkey=$twhere."\0".$envkey;}
  $sortrole{$sortkey}=$envkey;   $sortrole{$sortkey}=$envkey;
Line 672  ENDHEADER Line 586  ENDHEADER
  }   }
  if ($haverole) { $doheaders++; }   if ($haverole) { $doheaders++; }
     }      }
   
       if ($ENV{'environment.recentroles'}) {
           my %recent_roles =
                  &Apache::lonhtmlcommon::get_recent('roles',$ENV{'environment.recentrolesn'});
    my $output='';
    foreach (sort(keys(%recent_roles))) {
       if (defined($roletext{'user.role.'.$_})) {
    $output.=$roletext{'user.role.'.$_};
       } elsif ($numdc > 0) {
                   unless ($_ =~/^error\:/) {
                       $output.=&display_cc_role('user.role.'.$_);
                   }
               } 
    }
    if ($output) {
       $r->print("<tr bgcolor='#BBffBB'><td align='center' colspan='7'>".
         &mt('Recent Roles')."</td>");
       $r->print($output);
       $r->print("</tr>");
               $doheaders ++;
    }
       }
   
     if ($numdc > 0) {      if ($numdc > 0) {
          $r->print('<tr bgcolor="#BBffBB">'.          $r->print(&coursepick_jscript());
                       '<td align="center" colspan="7">'.          $r->print(&Apache::loncommon::coursebrowser_javascript());
                       '<input type="hidden" name="all_cc_roles" value="1"/>'.      }
                       '<input type="hidden" name="dcselected" value=""/>'.      foreach my $type ('Construction Space','Course','Domain','System') {
                       &mt('Domain').'</td>');   my $output;
          foreach my $dcdom (keys %dcroles) {   foreach my $which (sort {uc($a) cmp uc($b)} (keys(%sortrole))) {
              my $output = $roletext{$dcroles{$dcdom}};      if ($roleclass{$sortrole{$which}} =~ /^\Q$type\E/) { 
              my $ccrole = Apache::lonnet::plaintext('cc');   $output.=$roletext{$sortrole{$which}};
              if ($ENV{'request.role'} =~ m-cc\./$dcdom/-) {                  if ($sortrole{$which} =~ m-dc\./(\w+)/-) {
                  $output.=$roletext{'user.role.'.$ENV{'request.role'}};                      if ($dcroles{$1}) {
              }                          $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)\./$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></tr>");
         $r->print($output);  
     }      }
         }      $r->print($output);
    }
     }      }
     my $tremark='';      my $tremark='';
     my $tfont='#003300';      my $tfont='#003300';
Line 851  sub role_status { Line 747  sub role_status {
     }      }
 }  }
   
 sub dc_script {  sub build_roletext {
     my $response = (<<"END");      my ($trolecode,$tdom,$trest,$tstatus,$tryagain,$advanced,$tremark,$tbg,$tfont,$trole,$ttype,$twhere,$tpstart,$tpend,$nochoose,$button,$switchserver) = @_;
 function setDCchoice(caller) {      my $roletext='<tr bgcolor="'.$tbg.'">';
     var dcname = "dc./"+caller+"/"      unless ($nochoose) {
     document.rolechoice.dcselected.value = caller          if (!$button) {
     document.rolechoice.elements[3].name = dcname              if ($switchserver) {
     document.rolechoice.submit()                  $roletext.='<td><a href="/adm/logout?handover='.
                   $switchserver.'">'.&mt('Switch Server').'</a></td>';
               } else {
                   $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";
       return $roletext;
 }  }
 END  
     return $response;  sub check_privs {
       my ($cckey,$then,$now) = @_;
       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);
       }
 }  }
                                                                                    
 sub check_fordc {  sub check_fordc {
     my ($dcroles,$then) = @_;      my ($dcroles,$then) = @_;
     my $numdc = 0;      my $numdc = 0;
Line 884  sub check_fordc { Line 822  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 $courseform=&Apache::loncommon::selectcourse_link
                        ('rolechoice','dccourse_'.$dcdom,'dcdomain_'.$dcdom,'coursedesc_'.$dcdom,$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 $courseform.$hiddenitems;
   }
   
   sub coursepick_jscript {
     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.elements[numbutton+4].value
     if (document.roles.dcdomain.value == document.roles.origdom.value) {      var pickedDomain = document.rolechoice.elements[numbutton+2].value
       if (document.rolechoice.elements[numbutton+2].value == document.rolechoice.elements[numbutton+3].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("Please use the 'Select Course' link to open a separate pick course window where you may select the course you wish to enter.");
         }          }
     }      }
     else {      else {
         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 display_cc_role {
     my ($r,$dcdom,$then,$now)=@_;      my $rolekey = shift;
       my $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));      unless ($rolekey =~/^error\:/) {
     my $numrecent = 0;          if ($rolekey =~ m-^user\.role.cc\./(\w+)/(\w+)$-) {
     my $roletext = '<h3>'.&mt('Enter a recently visited course').'</h3>'.              my $tcourseid = $1.'_'.$2;
                    '<form name="rolechoice" action="/adm/roles" method="post">'.              my $trolecode = 'cc./'.$1.'/'.$2;
                    '<table><tr><th>&nbsp;</th>'.              my $trole = Apache::lonnet::plaintext('cc');
                    '<th>'.&mt('User Role').'</th><th colspan=2>'.&mt('Extent').              my $twhere;
                    '</th><th>'.&mt('Start').'</th><th>'.&mt('End').'</th><th>'.              my $tbg='#77FF77';
                    &mt('Remarks and Calendar Announcements').'</th></tr>'."\n".              my $tfont='#003300';
                    '<tr bgcolor="#BBffBB">'.              my %newhash=&Apache::lonnet::coursedescription($tcourseid);
                    '<td align="center" colspan="7">'.              if (%newhash) {
                    &mt('Domain').' - '.&mt('Recent courses accessed in this domain').                  $twhere=$newhash{'description'}.
                     '</td></tr>'."\n";                          ' <font size="-2">'.
     foreach my $courseid (sort keys %recent) {                          &Apache::loncommon::syllabuswrapper(&mt('Syllabus'),$2,$1,$tfont).
         unless ($courseid =~/^error\:/) {                          '</font>';
             my ($dom,$crs) = split/_/,$courseid;              } else {
             if ($dom eq $dcdom) {                  $twhere=&mt('Currently not available');
                 $numrecent ++;                  $ENV{'course.'.$tcourseid.'.description'}=$twhere;
                 my $crskey = 'user.role.cc./'.$dom.'/'.$crs;  
                 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";  
             }              }
               $twhere.="<br />".&mt('Domain').":".$1;
               $roletext = &build_roletext($trolecode,$1,$2,'is',$tryagain,$advanced,'',$tbg,$tfont,$trole,&mt('Course'),$twhere,'','','',1,'');
         }          }
     }      }
     if ($numrecent > 0) {      return $roletext;
         $r->print($roletext.'</table><input type="hidden" '.  }
                   '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 {
Line 1044  sub set_privileges { Line 966  sub set_privileges {
     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);
     $userroles .= &Apache::lonnet::set_userprivs(\$userroles,\%ccrole);                        my @newprivs = split/\n/,$userroles;      my ($author,$adv)= &Apache::lonnet::set_userprivs(\$userroles,\%ccrole);
       my @newprivs = split/\n/,$userroles;
     my %newccroles = ();      my %newccroles = ();
     foreach (@newprivs) {      foreach (@newprivs) {
         my ($key,$val) = split/=/,$_;          my ($key,$val) = split/=/,$_;
Line 1055  sub set_privileges { Line 978  sub set_privileges {
                          $ENV{'user.name'},                           $ENV{'user.name'},
                          $ENV{'user.home'},                           $ENV{'user.home'},
                         "Role ".$role);                          "Role ".$role);
                                                                                              
     &Apache::lonnet::appenv(      &Apache::lonnet::appenv(
                           'request.role'        => $role,                            'request.role'        => $role,
                           'request.role.domain' => $dcdom,                            'request.role.domain' => $dcdom,
Removed from v.1.106  
changed lines
  Added in v.1.114

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