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

Diff for /loncom/auth/lonroles.pm between versions 1.92 and 1.107

version 1.92, 2004/05/21 19:16:35 version 1.107, 2004/11/11 23:17:13
Line 36  use Apache::Constants qw(:common); Line 36  use Apache::Constants qw(:common);
 use Apache::File();  use Apache::File();
 use Apache::lonmenu;  use Apache::lonmenu;
 use Apache::loncommon;  use Apache::loncommon;
   use Apache::lonhtmlcommon;
 use Apache::lonannounce;  use Apache::lonannounce;
 use Apache::lonlocal;  use Apache::lonlocal;
   
 sub redirect_user {  sub redirect_user {
     my ($r,$title,$url,$msg) = @_;      my ($r,$title,$url,$msg,$launch_nav) = @_;
     $msg = $title if (! defined($msg));      $msg = $title if (! defined($msg));
     &Apache::loncommon::content_type($r,'text/html');      &Apache::loncommon::content_type($r,'text/html');
     &Apache::loncommon::no_cache($r);      &Apache::loncommon::no_cache($r);
     $r->send_http_header;      $r->send_http_header;
     my $swinfo=&Apache::lonmenu::rawconfig();      my $swinfo=&Apache::lonmenu::rawconfig();
       my $navwindow;
       if ($launch_nav eq 'on') {
    $navwindow.=&Apache::lonnavmaps::launch_win('now');
       } else {
    $navwindow.=&Apache::lonnavmaps::close();
       }
     my $bodytag=&Apache::loncommon::bodytag('Switching Role');      my $bodytag=&Apache::loncommon::bodytag('Switching Role');
 # Note to style police:   # Note to style police: 
 # This must only replace the spaces, nothing else, or it bombs elsewhere.  # This must only replace the spaces, nothing else, or it bombs elsewhere.
     $url=~s/ /\%20/g;      $url=~s/ /\%20/g;
    $r->print (<<ENDREDIR);      $r->print(<<ENDREDIR);
 <head><title>$title</title>  <head><title>$title</title>
 <meta HTTP-EQUIV="Refresh" CONTENT="1; url=$url">  <meta HTTP-EQUIV="Refresh" CONTENT="1; url=$url">
 </head>  </head>
 <html>  <html>
 $bodytag  $bodytag
 <script>  <script type="text/javascript">
 $swinfo  $swinfo
 </script>  </script>
   $navwindow
 <h1>$msg</h1>  <h1>$msg</h1>
   <a href="$url">Continue</a>
 </body>  </body>
 </html>  </html>
 ENDREDIR  ENDREDIR
Line 73  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);
         }      &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"  => '',
Line 89  sub handler { Line 121  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}) {
                           unless ($ENV{'user.role.cc./'.$1.'/'.$2}) {
                               &set_privileges($1,$2);
                           }
                       }
                       last;
                   }
               }
           }
   
           if ($ENV{'form.dccourse'}) {
               my $dcdom = $ENV{'form.dcdomain'};
               my $pickedcourse = $ENV{'form.dccourse'};
               if ($dcdom && $pickedcourse) {
                   unless ($ENV{'user.role.cc./'.$dcdom.'/'.$pickedcourse}) {
                       if ($ENV{'user.role.dc./'.$dcdom.'/'}) {
                           &set_privileges($dcdom,$pickedcourse);
                       }
                   }
               }
           }
   
         foreach $envkey (keys %ENV) {          foreach $envkey (keys %ENV) {
             next if ($envkey!~/^user\.role\./);              next if ($envkey!~/^user\.role\./);
     my (undef,undef,$role,@pwhere)=split(/\./,$envkey);              my ($where,$trolecode,$role,$tstatus,$tend,$tstart);
             my $where=join('.',@pwhere);              &role_status($envkey,$then,$now,\$role,\$where,\$trolecode,\$tstatus,\$tstart,\$tend);
             my $trolecode=$role.'.'.$where;  
             if ($ENV{'form.'.$trolecode}) {              if ($ENV{'form.'.$trolecode}) {
  my ($tstart,$tend)=split(/\./,$ENV{$envkey});  
  my $tstatus='is';  
  if ($tstart) {  
     if ($tstart>$then) {   
  $tstatus='future';  
     }  
  }  
  if ($tend) {  
     if ($tend<$then) { $tstatus='expired'; }  
     if ($tend<$now) { $tstatus='will_not'; }  
  }  
  if ($tstatus eq 'is') {   if ($tstatus eq 'is') {
     $where=~s/^\///;      $where=~s/^\///;
     my ($cdom,$cnum,$csec)=split(/\//,$where);      my ($cdom,$cnum,$csec)=split(/\//,$where);
Line 199  ENDENTERKEY Line 246  ENDENTERKEY
  $ENV{'user.name'},   $ENV{'user.name'},
  $ENV{'user.home'},   $ENV{'user.home'},
  "Role ".$trolecode);   "Role ".$trolecode);
                     my $tadv=0;      
                     if (($trolecode!~/^st/) &&   
                         ($trolecode!~/^ta/) &&   
                         ($trolecode!~/^cm/)) { $tadv=1; }  
     &Apache::lonnet::appenv(      &Apache::lonnet::appenv(
                                            'request.role'        => $trolecode,     'request.role'        => $trolecode,
    'request.role.adv'    => $tadv,  
    'request.role.domain' => $cdom,     'request.role.domain' => $cdom,
    'request.course.sec'  => $csec);     'request.course.sec'  => $csec);
                       my $tadv=0;
       if (&Apache::lonnet::allowed('adv') eq 'F') { $tadv=1; }
       &Apache::lonnet::appenv('request.role.adv'    => $tadv);
   
     my $msg=&mt('Entering course ...');      my $msg=&mt('Entering course ...');
   
     if (($cnum) && ($role ne 'ca')) {      if (($cnum) && ($role ne 'ca')) {
Line 243  ENDENTERKEY Line 290  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
                               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,
      $ENV{'environment.remotenavmap'});
                             return OK;                              return OK;
  }   }
     }      }
Line 265  ENDENTERKEY Line 323  ENDENTERKEY
                                        $redirect_url);                                         $redirect_url);
                         return OK;                          return OK;
                     }                      }
                       if ($role eq 'dc') {
                           unless ($dcselect) {
                               my $redirect_url = '/adm/menu/';
                               &redirect_user($r,&mt('Loading Domain Coordinator Menu'),
                                          $redirect_url);
                               return OK;
                           }
                       }
  }   }
             }              }
         }          }
Line 279  ENDENTERKEY Line 345  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_topic      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>';
      ("General_Intro",&mt("Click here for help")).'</td><td>'.  
       &Apache::loncommon::help_open_faq(1,&mt('Click here for FAQ')).'</td><td>'.  
       &Apache::loncommon::help_open_bug('',&mt('Click here to report bugs')).'</td></tr></table>';  
     $r->print(<<ENDHEADER);      $r->print(<<ENDHEADER);
 <html>  <html>
 <head>  <head>
Line 294  $helptag<br /> Line 358  $helptag<br />
 <script>  <script>
 $swinfo  $swinfo
 window.focus();  window.focus();
   $setDCchoice
 </script>  </script>
 ENDHEADER  ENDHEADER
   
Line 312  ENDHEADER Line 377  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 374  ENDHEADER Line 445  ENDHEADER
  my $roletext;   my $roletext;
  my $sortkey;   my $sortkey;
         if ($envkey=~/^user\.role\./) {          if ($envkey=~/^user\.role\./) {
     my (undef,undef,$role,@pwhere)=split(/\./,$envkey);              my ($role,$where,$trolecode,$tstart,$tend,$tremark,$tstatus,$tpstart,$tpend,$tfont);
               &role_status($envkey,$then,$now,\$role,\$where,\$trolecode,\$tstatus,\$tstart,\$tend);
             next if (!defined($role) || $role eq '');              next if (!defined($role) || $role eq '');
             my $where=join('.',@pwhere);              $tremark='';
             my $trolecode=$role.'.'.$where;              $tpstart='&nbsp;';
             my ($tstart,$tend)=split(/\./,$ENV{$envkey});              $tpend='&nbsp;';
             my $tremark='';              $tfont='#000000';
             my $tstatus='is';  
             my $tpstart='&nbsp;';  
             my $tpend='&nbsp;';  
             my $tfont='#000000';  
             if ($tstart) {              if ($tstart) {
  if ($tstart>$then) {   
                     $tstatus='future';  
                     if ($tstart<$now) { $tstatus='will'; }  
                 }  
                 $tpstart=&Apache::lonlocal::locallocaltime($tstart);                  $tpstart=&Apache::lonlocal::locallocaltime($tstart);
             }              }
             if ($tend) {              if ($tend) {
                 if ($tend<$then) {   
                     $tstatus='expired';   
                 } elsif ($tend<$now) {   
                     $tstatus='will_not';   
                 }  
                 $tpend=&Apache::lonlocal::locallocaltime($tend);                  $tpend=&Apache::lonlocal::locallocaltime($tend);
             }              }
             if ($ENV{'request.role'} eq $trolecode) {              if ($ENV{'request.role'} eq $trolecode) {
Line 455  ENDHEADER Line 514  ENDHEADER
                          $Apache::lonnet::hostname{$home}.                           $Apache::lonnet::hostname{$home}.
                          '/adm/login?domain='.$ENV{'user.domain'}.                           '/adm/login?domain='.$ENV{'user.domain'}.
   '&username='.$ENV{'user.name'}.    '&username='.$ENV{'user.name'}.
                           '&firsturl=/priv/'.$trest);                            '&firsturl=/priv/'.$trest.'/');
                     }                      }
                     #next if ($home eq 'no_host');                      #next if ($home eq 'no_host');
                     $home = $Apache::lonnet::hostname{$home};                      $home = $Apache::lonnet::hostname{$home};
Line 479  ENDHEADER Line 538  ENDHEADER
                          $Apache::lonnet::hostname{$home}.                           $Apache::lonnet::hostname{$home}.
                           '/adm/login?domain='.$ENV{'user.domain'}.                            '/adm/login?domain='.$ENV{'user.domain'}.
    '&username='.$ENV{'user.name'}.     '&username='.$ENV{'user.name'}.
                            '&firsturl=/priv/'.$ENV{'user.name'});                             '&firsturl=/priv/'.$ENV{'user.name'}.'/');
                     }                      }
                     #next if ($home eq 'no_host');                      #next if ($home eq 'no_host');
                     $home = $Apache::lonnet::hostname{$home};                      $home = $Apache::lonnet::hostname{$home};
Line 504  ENDHEADER Line 563  ENDHEADER
                                     '</font>';                                      '</font>';
  }   }
                     } else {                      } else {
                         my %newhash=Apache::lonnet::coursedescription                          my %newhash=&Apache::lonnet::coursedescription($tcourseid);
                             ($tcourseid);  
                         if (%newhash) {                          if (%newhash) {
     $sortkey=$role."\0".$tdom."\0".$newhash{'description'}.      $sortkey=$role."\0".$tdom."\0".$newhash{'description'}.
  "\0".$envkey;   "\0".$envkey;
Line 600  ENDHEADER Line 658  ENDHEADER
     unless ($nochoose) { $r->print('<th>&nbsp;</th>'); }      unless ($nochoose) { $r->print('<th>&nbsp;</th>'); }
     $r->print('<th>'.&mt('User Role').'</th><th colspan=2>'.&mt('Extent').      $r->print('<th>'.&mt('User Role').'</th><th colspan=2>'.&mt('Extent').
          '</th><th>'.&mt('Start').'</th><th>'.&mt('End').'</th><th>'.           '</th><th>'.&mt('Start').'</th><th>'.&mt('End').'</th><th>'.
       &mt('Remark').'</th></tr>'."\n");        &mt('Remarks and Calendar Announcements').'</th></tr>'."\n");
     my $doheaders=-1;      my $doheaders=-1;
     foreach my $type ('Construction Space','Course','Domain','System') {      foreach my $type ('Construction Space','Course','Domain','System') {
  my $haverole=0;   my $haverole=0;
Line 611  ENDHEADER Line 669  ENDHEADER
  }   }
  if ($haverole) { $doheaders++; }   if ($haverole) { $doheaders++; }
     }      }
     foreach my $type ('Construction Space','Course','Domain','System') {      if ($numdc > 0) {
  my $output;           $r->print('<tr bgcolor="#BBffBB">'.
  foreach my $which (sort {uc($a) cmp uc($b)} (keys(%sortrole))) {                        '<td align="center" colspan="7">'.
     if ($roleclass{$sortrole{$which}} =~ /^\Q$type\E/) {                         '<input type="hidden" name="all_cc_roles" value="1"/>'.
  $output.=&mt($roletext{$sortrole{$which}});                        '<input type="hidden" name="dcselected" value=""/>'.
                         &mt('Domain').'</td>');
            foreach my $dcdom (keys %dcroles) {
                my $output = $roletext{$dcroles{$dcdom}};
                my $ccrole = Apache::lonnet::plaintext('cc');
                if ($ENV{'request.role'} =~ m-cc\./$dcdom/-) {
                    $output.=$roletext{'user.role.'.$ENV{'request.role'}};
                }
                $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 ($output) {          if ($doheaders > 0) {
     if ($doheaders > 0) {      $r->print("<tr bgcolor='#BBffBB'>".
  $r->print("<tr bgcolor='#BBffBB'>".        "<td align='center' colspan='7'>".&mt($type)."</td>");
   "<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 713  ENDHEADER Line 821  ENDHEADER
     }      }
     $r->print("</body></html>\n");      $r->print("</body></html>\n");
     return OK;      return OK;
 }   }
   
   sub role_status {
       my ($rolekey,$then,$now,$role,$where,$trolecode,$tstatus,$tstart,$tend) = @_;
       my @pwhere = ();
       if (exists($ENV{$rolekey}) && $ENV{$rolekey} ne '') {
           (undef,undef,$$role,@pwhere)=split(/\./,$rolekey);
           unless (!defined($$role) || $$role eq '') {
               $$where=join('.',@pwhere);
               $$trolecode=$$role.'.'.$$where;
               ($$tstart,$$tend)=split(/\./,$ENV{$rolekey});
               $$tstatus='is';
               if ($$tstart && $$tstart>$then) {
    $$tstatus='future';
    if ($$tstart<$now) { $$tstatus='will'; }
               }
               if ($$tend) {
                   if ($$tend<$then) {
                       $$tstatus='expired';
                   } elsif ($$tend<$now) {
                       $$tstatus='will_not';
                   }
               }
           }
       }
   }
   
   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 {
       my ($dcroles,$then) = @_;
       my $numdc = 0;
       if ($ENV{'user.adv'}) {
           foreach my $envkey (sort keys %ENV) {
               if ($envkey=~/^user\.role\.dc\.\/(\w+)\/$/) {
                   my $dcdom = $1;
                   my $livedc = 1;
                   my ($tstart,$tend)=split(/\./,$ENV{$envkey});
                   if ($tstart && $tstart>$then) { $livedc = 0; }
                   if ($tend   && $tend  <$then) { $livedc = 0; }
                   if ($livedc) {
                       $$dcroles{$dcdom} = $envkey;
                       $numdc++;
                   }
               }
           }
       }
       return $numdc;
   }
   
   sub choosecourse_display {
       my ($r,$dcdom,$then,$now) = @_;
       my $cb_jscript = &Apache::loncommon::coursebrowser_javascript($dcdom,'dom');
       my $verify_script = <<"END";
   <script>
   function verifyCoursePick() {
       var pickedCourse = document.roles.dccourse.value
       var pickedDomain = document.roles.dcdomain.value
       if (document.roles.dcdomain.value == document.roles.origdom.value) {
           if (pickedCourse != '') {
               var courseTarget = "cc./"+pickedDomain+"/"+pickedCourse
               document.roles.elements[0].value = 1
               document.roles.elements[0].name = courseTarget
               document.roles.selectrole.value = 1
               document.roles.submit()
           }
           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");
           }
       }
       else {
           alert("You can only use this screen to select courses in the current domain")
       }
   }
   </script>
   END
       my $courseform=&Apache::loncommon::selectcourse_link
                        ('roles','dccourse','dcdomain','coursedesc');
       $r->print($cb_jscript.$verify_script);
       my $formaction='/adm/roles';
       $formaction=~s/\/+/\//g;
       my $crs;
       &select_recent_courses($r,$dcdom,$then,$now);
       $r->print('<br /><form name="roles" method="post" action="'.$formaction.'" />');
       $r->print('<h3>'.&mt('Choose a course from domain').': '.$dcdom.'</h3><font size="+1">'.$courseform.'</font><br /><br />'.
                 '<input type="hidden" name="chosencourse" value=""/>'.
                 'Course Title: <input type="text" size="20" name="coursedesc" value=""><br />'.
                 'Course ID: <input type="text" size="15" name="dccourse" />'.
                 '<input type="hidden" name="dcdomain" value="'.$dcdom.'" />'.
                 '<input type="hidden" name="origdom" value="'.$dcdom.'" />'.
                 '<input type="hidden" name="selectrole" value="" />'.
                 '<br /><br /><input type="button" name="proceed" value="'.&mt('Enter this course').'" onClick="verifyCoursePick()" />'.
                 '</form>');
       return;
   }
   
   sub select_recent_courses {
       my ($r,$dcdom,$then,$now)=@_;
       my $advanced = $ENV{'user.adv'};
       my $tryagain = $ENV{'form.tryagain'};
       my %recent=&Apache::lonnet::dump(&recent_filename('cc_pickby_dc_'.$dcdom));
       my $numrecent = 0;
       my $roletext = '<h3>'.&mt('Enter a recently visited course').'</h3>'.
                      '<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">'.
                      &mt('Domain').' - '.&mt('Recent courses accessed in this domain').
                       '</td></tr>'."\n";
       foreach my $courseid (sort keys %recent) {
           unless ($courseid =~/^error\:/) {
               my ($dom,$crs) = split/_/,$courseid;
               if ($dom eq $dcdom) {
                   $numrecent ++;
                   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";
               }
           }
       }
       if ($numrecent > 0) {
           $r->print($roletext.'</table><input type="hidden" '.
                     'name="selectrole" value="1" /></form>'."\n");
       }
   }
   
   sub recent_filename {
       my $area=shift;
       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.92  
changed lines
  Added in v.1.107

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