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

Diff for /loncom/auth/lonroles.pm between versions 1.80.2.1 and 1.110

version 1.80.2.1, 2004/01/27 23:07:13 version 1.110, 2004/11/14 18:27:08
Line 25 Line 25
 #  #
 # http://www.lon-capa.org/  # http://www.lon-capa.org/
 #  #
 # (Directory Indexer  
 # (Login Screen  
 # YEAR=1999  
 # 5/21/99,5/22,5/25,5/26,5/31,6/2,6/10,7/12,7/14 Gerd Kortemeyer)  
 # 11/23 Gerd Kortemeyer)  
 # YEAR=2000  
 # 1/14,03/06,06/01,07/22,07/24,07/25,  
 # 09/04,09/06,09/28,09/29,09/30,10/2,10/5,10/26,10/28,  
 # 12/08,12/28,  
 # YEAR=2001  
 # 01/15/01 Gerd Kortemeyer  
 # 03/02,05/03,05/25,05/30,06/01,07/06,08/06 Gerd Kortemeyer  
 # 12/29 Gerd Kortemeyer  
 #  
 ###  ###
   
 package Apache::lonroles;  package Apache::lonroles;
Line 50  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');
     $r->print (<<ENDREDIR);  # Note to style police: 
   # This must only replace the spaces, nothing else, or it bombs elsewhere.
       $url=~s/ /\%20/g;
       $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 84  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 %dcroles = ();
       my $numdc = &check_fordc(\%dcroles,$then);
       my %recentroles;
       if ($numdc > 0) {
           %recentroles = &Apache::lonnet::dump(&recent_filename('roles'));
       }
   
 # ================================================================== Roles Init  # ================================================================== Roles Init
   
     if ($ENV{'form.selectrole'}) {      if ($ENV{'form.selectrole'}) {
  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 100  sub handler { Line 103  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 if user is a DC trying to enter a course and needs privs to be created
           if ($numdc > 0) {
               foreach my $envkey (keys %ENV) {
                   if ($envkey =~ m-^form\.cc\./(\w+)/(\w+)$-) {
                       if ($dcroles{$1}) {
                           my $cckey = 'user.role.cc./'.$1.'/'.$2;
                           &check_privs($cckey,$then,$now);
                       }
                       last;
                   }
               }
           }
   
   # Check if user is a DC with courses in the recent list which need privs.
   #        if ($numdc > 0) {
   #            %recentroles = &Apache::lonnet::dump(&recent_filename('recent_roles'));
   #            foreach my $rolekey (keys %recentroles) {
   #                if ($rolekey =~ m-^user\.role.cc\./\w+/\w+$-) {
   #                    &check_privs($rolekey,$then,$now);
   #                }
   #            }
   #        }
   
         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);
 # 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')) {
          unless (&Apache::lonnet::validate_access_key(  # who is key authority?
    my $authdom=$cdom;
    my $authnum=$cnum;
    if ($ENV{'course.'.$cdom.'_'.$cnum.'.keyauth'}) {
       ($authnum,$authdom)=
    split(/\W/,$ENV{'course.'.$cdom.'_'.$cnum.'.keyauth'});
    }
   # check with key authority
    unless (&Apache::lonnet::validate_access_key(
      $ENV{'environment.key.'.$cdom.'_'.$cnum},       $ENV{'environment.key.'.$cdom.'_'.$cnum},
      $cdom,$cnum)) {       $authdom,$authnum)) {
 # there is no valid key  # there is no valid key
      if ($ENV{'form.newkey'}) {       if ($ENV{'form.newkey'}) {
 # student attempts to register a new key  # student attempts to register a new key
    &Apache::loncommon::content_type($r,'text/html');
    &Apache::loncommon::no_cache($r);
    $r->send_http_header;
    my $swinfo=&Apache::lonmenu::rawconfig();
    my $bodytag=&Apache::loncommon::bodytag
       ('Verifying Access Key to Unlock this Course');
    my $buttontext=&mt('Enter Course');
    my $message=&mt('Successfully registered key');
    my $assignresult=
        &Apache::lonnet::assign_access_key(
        $ENV{'form.newkey'},
        $authdom,$authnum,
        $cdom,$cnum,
                                                        $ENV{'user.domain'},
        $ENV{'user.name'},
         'Assigned from '.$ENV{'REMOTE_ADDR'}.' at '.localtime().' for '.
                                                        $trolecode);
    unless ($assignresult eq 'ok') {
        $assignresult=~s/^error\:\s*//;
        $message=&mt($assignresult).
        '<br /><a href="/adm/logout">'.
        &mt('Logout').'</a>';
        $buttontext=&mt('Re-Enter Key');
    }
    $r->print(<<ENDENTEREDKEY);
   <head><title>Verifying Course Access Key</title>
   </head>
   <html>
   $bodytag
   <script>
   $swinfo
   </script>
   <form method="post">
   <input type="hidden" name="selectrole" value="1" />
   <input type="hidden" name="$trolecode" value="1" />
   <font size="+2">$message</font><br />
   <input type="submit" value="$buttontext" />
   </form>
   </body></html>
   ENDENTEREDKEY
                                    return OK;
      } else {       } else {
 # print form to enter a new key  # print form to enter a new key
  &Apache::loncommon::content_type($r,'text/html');   &Apache::loncommon::content_type($r,'text/html');
Line 146  $bodytag Line 210  $bodytag
 $swinfo  $swinfo
 </script>  </script>
 <form method="post">  <form method="post">
 <input type="hidden" name="selectrole" value="$ENV{'form.selectrole'}" />  <input type="hidden" name="selectrole" value="1" />
   <input type="hidden" name="$trolecode" value="1" />
 <input type="text" size="20" name="newkey" value="$ENV{'form.newkey'}" />  <input type="text" size="20" name="newkey" value="$ENV{'form.newkey'}" />
 <input type="submit" value="Enter key" />  <input type="submit" value="Enter key" />
 </form>  </form>
Line 156  ENDENTERKEY Line 221  ENDENTERKEY
      }       }
  }   }
      }       }
                     my $tadv=0;      &Apache::lonnet::log($ENV{'user.domain'},
                     if (($trolecode!~/^st/) &&    $ENV{'user.name'},
                         ($trolecode!~/^ta/) &&    $ENV{'user.home'},
                         ($trolecode!~/^cm/)) { $tadv=1; }   "Role ".$trolecode);
       
     &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 200  ENDENTERKEY Line 269  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 selecting a course
                               if (($numdc > 0) && ($role eq 'cc')) {
                                   my $formaction = '/adm/roles/';
                                   my ($dcdom,$pickedcourse) = split/_/,$courseid;
                                   if ($ENV{'user.role.dc./'.$dcdom.'/'}) {
                                       &Apache::lonhtmlcommon::store_recent('roles',
                                       $envkey,$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 222  ENDENTERKEY Line 301  ENDENTERKEY
                                        $redirect_url);                                         $redirect_url);
                         return OK;                          return OK;
                     }                      }
                       if ($role eq 'dc') {
                           my $redirect_url = '/adm/menu/';
                           &redirect_user($r,&mt('Loading Domain Coordinator Menu'),
                                          $redirect_url);
                           return OK;
                       }
  }   }
             }              }
         }          }
Line 237  ENDENTERKEY Line 322  ENDENTERKEY
   
     my $swinfo=&Apache::lonmenu::rawconfig();      my $swinfo=&Apache::lonmenu::rawconfig();
     my $bodytag=&Apache::loncommon::bodytag('User Roles');      my $bodytag=&Apache::loncommon::bodytag('User Roles');
     my $helptag=&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"));  
     $r->print(<<ENDHEADER);      $r->print(<<ENDHEADER);
 <html>  <html>
 <head>  <head>
Line 304  ENDHEADER Line 388  ENDHEADER
       "<br />\n");        "<br />\n");
     $r->print(&mt(      $r->print(&mt(
       "Author and Co-Author roles may not be available on servers other than your home server."));        "Author and Co-Author roles may not be available on servers other than your home server."));
         } else {  
     $r->print("<h2>".&mt('Select a Course to Enter')."</h2>\n");  
         }          }
         if (($ENV{'REDIRECT_QUERY_STRING'}) && ($fn)) {          if (($ENV{'REDIRECT_QUERY_STRING'}) && ($fn)) {
        $fn.='?'.$ENV{'REDIRECT_QUERY_STRING'};         $fn.='?'.$ENV{'REDIRECT_QUERY_STRING'};
         }          }
         $r->print('<form method=post action="'.(($fn)?$fn:$r->uri).'">');          $r->print('<form method="post" name="rolechoice" action="'.(($fn)?$fn:$r->uri).'">');
         $r->print('<input type=hidden name=orgurl value="'.$fn.'">');          $r->print('<input type=hidden name=orgurl value="'.$fn.'">');
         $r->print('<input type=hidden name=selectrole value=1>');          $r->print('<input type=hidden name=selectrole value=1>');
     }      }
Line 320  ENDHEADER Line 402  ENDHEADER
  if ($ENV{'form.showall'}) { $r->print(' checked'); }   if ($ENV{'form.showall'}) { $r->print(' checked'); }
  $r->print('><input type=submit value="'.&mt('Display').'">');   $r->print('><input type=submit value="'.&mt('Display').'">');
     }      }
 # ----------------------------------------------------------------------- Table  
     $r->print('<br /><table><tr>');  
     unless ($nochoose) { $r->print('<th>&nbsp;</th>'); }  
     $r->print('<th>'.&mt('User Role').'</th><th colspan=2>'.&mt('Extent').  
          '</th><th>'.&mt('Start').'</th><th>'.&mt('End').'</th><th>'.  
       &mt('Remark').'</th></tr>'."\n");  
   
     my (%roletext,%sortrole,%roleclass);      my (%roletext,%sortrole,%roleclass);
       my $countactive=0;
       my $inrole=0;
       my $possiblerole='';
     foreach $envkey (sort keys %ENV) {      foreach $envkey (sort keys %ENV) {
         my $button = 1;          my $button = 1;
         my $switchserver='';          my $switchserver='';
  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 368  ENDHEADER Line 435  ENDHEADER
                 if ($tstatus eq 'is') {                  if ($tstatus eq 'is') {
                     $tbg='#77FF77';                      $tbg='#77FF77';
                     $tfont='#003300';                      $tfont='#003300';
       $possiblerole=$trolecode;
       $countactive++;
                 } elsif ($tstatus eq 'future') {                  } elsif ($tstatus eq 'future') {
                     $tbg='#FFFF77';                      $tbg='#FFFF77';
                     $button=0;                      $button=0;
Line 384  ENDHEADER Line 453  ENDHEADER
                 } elsif ($tstatus eq 'selected') {                  } elsif ($tstatus eq 'selected') {
                     $tbg='#11CC55';                      $tbg='#11CC55';
                     $tfont='#002200';                      $tfont='#002200';
       $inrole=1;
       $countactive++;
                     $tremark.=&mt('Currently selected. ');                      $tremark.=&mt('Currently selected. ');
                 }                  }
                 my $trole;                  my $trole;
Line 411  ENDHEADER Line 482  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 420  ENDHEADER Line 491  ENDHEADER
  ': '.$tdom.'<br />'.   ': '.$tdom.'<br />'.
                         ' '.&mt('Server').':&nbsp;'.$home;                          ' '.&mt('Server').':&nbsp;'.$home;
                     $ENV{'course.'.$tdom.'_'.$trest.'.description'}='ca';                      $ENV{'course.'.$tdom.'_'.$trest.'.description'}='ca';
       $tremark.=&Apache::lonhtmlcommon::authorbombs('/res/'.$tdom.'/'.$trest.'/');
     $sortkey=$role."$trest:$tdom";      $sortkey=$role."$trest:$tdom";
                 } elsif ($role eq 'au') {                  } elsif ($role eq 'au') {
                     # Authors                      # Authors
Line 434  ENDHEADER Line 506  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 442  ENDHEADER Line 514  ENDHEADER
                     $twhere=&mt('Domain').': '.$tdom.'<br />'.&mt('Server').                      $twhere=&mt('Domain').': '.$tdom.'<br />'.&mt('Server').
  ':&nbsp;'.$home;   ':&nbsp;'.$home;
                     $ENV{'course.'.$tdom.'_'.$trest.'.description'}='ca';                      $ENV{'course.'.$tdom.'_'.$trest.'.description'}='ca';
       $tremark.=&Apache::lonhtmlcommon::authorbombs('/res/'.$tdom.'/'.$ENV{'user.name'}.'/');
     $sortkey=$role;      $sortkey=$role;
                 } elsif ($trest) {                  } elsif ($trest) {
                     $ttype='Course';                      $ttype='Course';
Line 458  ENDHEADER Line 531  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 485  ENDHEADER Line 557  ENDHEADER
                 }                  }
     
                 $roletext.='<tr bgcolor='.$tbg.'>';                  $roletext.='<tr bgcolor='.$tbg.'>';
                 unless ($nochoose) {                  $roletext.=&build_roletext($trolecode,$tdom,$trest,$tstatus,$tryagain,$advanced,$tremark,$tbg,$tfont,$trole,$ttype,$twhere,$tpstart,$tpend,$nochoose,$button,$switchserver);
                     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 526  ENDHEADER Line 565  ENDHEADER
     }      }
         }          }
     }      }
   # No active roles
       if ($countactive==0) {
    if ($inrole) {
       $r->print('<h2>'.&mt('Currently no additional roles or courses').'</h2>');
    } else {
       $r->print('<h2>'.&mt('Currently no active roles or courses').'</h2>');
    }
    $r->print('</form></body></html>');
    return OK;
   # Is there only one choice?
       } elsif (($countactive==1) && ($ENV{'request.role'} eq 'cm')) {
    $r->print('<h3>'.&mt('Please stand by.').'</h3>'.
       '<input type="hidden" name="'.$possiblerole.'" value="1" />');
    $r->print("</form>\n");
    $r->rflush();
    $r->print('<script>document.forms.rolechoice.submit();</script>');
    $r->print('</body></html>');
    return OK;
       }
   # More than one possible role
   # ----------------------------------------------------------------------- Table
       unless (($advanced) || ($nochoose)) {
    $r->print("<h2>".&mt('Select a Course to Enter')."</h2>\n");
       }
       $r->print('<br /><table><tr>');
       unless ($nochoose) { $r->print('<th>&nbsp;</th>'); }
       $r->print('<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");
     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 536  ENDHEADER Line 604  ENDHEADER
  }   }
  if ($haverole) { $doheaders++; }   if ($haverole) { $doheaders++; }
     }      }
       if ($numdc > 0) {
           &display_recent_roles($r,\%roletext,\%recentroles);
       }
     foreach my $type ('Construction Space','Course','Domain','System') {      foreach my $type ('Construction Space','Course','Domain','System') {
  my $output;   my $output;
  foreach my $which (sort {uc($a) cmp uc($b)} (keys(%sortrole))) {   foreach my $which (sort {uc($a) cmp uc($b)} (keys(%sortrole))) {
     if ($roleclass{$sortrole{$which}} =~ /^\Q$type\E/) {       if ($roleclass{$sortrole{$which}} =~ /^\Q$type\E/) { 
  $output.=&mt($roletext{$sortrole{$which}});   $output.=$roletext{$sortrole{$which}};
                   if ($sortrole{$which} =~ m-dc\./(\w+)/-) {
                       if ($dcroles{$1}) {
                           $output .= &allcourses_row($1);
                       }
                   }
     }      }
  }   }
  if ($output) {   if ($output) {
Line 548  ENDHEADER Line 624  ENDHEADER
  $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='';
Line 633  ENDHEADER Line 709  ENDHEADER
     $r->print(&Apache::lonnet::getannounce());      $r->print(&Apache::lonnet::getannounce());
     if ($advanced) {      if ($advanced) {
  $r->print('<p><small><i>This is LON-CAPA '.   $r->print('<p><small><i>This is LON-CAPA '.
   $r->dir_config('lonVersion').'</i></small></p>');    $r->dir_config('lonVersion').'</i><br />'.
     '<a href="/adm/logout">'.&mt('Logout').'</a></small></p>');
     }      }
     $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 build_roletext {
       my ($trolecode,$tdom,$trest,$tstatus,$tryagain,$advanced,$tremark,$tbg,$tfont,$trole,$ttype,$twhere,$tpstart,$tpend,$nochoose,$button,$switchserver) = @_;
       my $roletext='<tr bgcolor='.$tbg.'>';
       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";
       return $roletext;
   }
   
   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 {
       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 courselink {
       my ($dcdom) = @_;
       my $cb_jscript = &Apache::loncommon::coursebrowser_javascript($dcdom,$dcdom);
       my $verify_script = &coursepick_jscript($dcdom);
       my $courseform=&Apache::loncommon::selectcourse_link
                        ('rolechoice','dccourse_'.$dcdom,'dcdomain_'.$dcdom,'coursedesc_'.$dcdom);
       my $hiddenitems = '<input type="hidden" name="dcdomain_'.$dcdom.'" value="'.$dcdom.'" />'.
                         '<input type="hidden" name="origdom_'.$dcdom.'" value="'.$dcdom.'" />'.
                         '<input type="hidden" name="dccourse_'.$dcdom.'" value="" />'.
                         '<input type="hidden" name="coursedesc_'.$dcdom.'" value="" />';
       return $cb_jscript.$verify_script.$courseform.$hiddenitems;
   }
   
   sub coursepick_jscript {
       my ($dcdom) = @_;
       my $verify_script = <<"END";
   <script>
   function verifyCoursePick(caller) {
       var numbutton = getIndex(caller)
       var pickedCourse = document.rolechoice.dccourse_$dcdom.value
       var pickedDomain = document.rolechoice.dcdomain_$dcdom.value
       if (document.rolechoice.dcdomain_$dcdom.value == document.rolechoice.origdom_$dcdom.value) {
           if (pickedCourse != '') {
               if (numbutton != -1) {
                   var courseTarget = "cc./"+pickedDomain+"/"+pickedCourse
                   document.rolechoice.elements[numbutton+1].name = courseTarget
                   document.rolechoice.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")
       }
   }
   function getIndex(caller) {
       for (var i=0;i<document.rolechoice.elements.length;i++) {
           if (document.rolechoice.elements[i] == caller) {
               return i;
           }
       }
       return -1;
   }
   </script>
   END
       return $verify_script;
   }
   
   sub processpick {
       my $dcdom = shift;
       my $process_pick = <<"END";
   <script>
   function process_pick(dom) {
       var numbutton = getIndex(dom)
       var pickedCourse = opener.document.rolechoice.dccourse_$dcdom.value
       var pickedDomain = opener.document.rolechoice.dcdomain_$dcdom.value
       if (opener.document.rolechoice.dcdomain_$dcdom.value == opener.document.rolechoice.origdom_$dcdom.value) {
           if (pickedCourse != '') {
               if (numbutton != -1) {
                   var courseTarget = "cc./"+pickedDomain+"/"+pickedCourse
                   opener.document.rolechoice.elements[numbutton+1].name = courseTarget
                   opener.document.rolechoice.submit()
               }
           }
       }
   }
    
   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 display_recent_roles {
       my ($r,$roletext,$recentroles)=@_;
       my $advanced = $ENV{'user.adv'};
       my $tryagain = $ENV{'form.tryagain'};
       my $numrecent = 0;
       my $roledisplay = '<tr bgcolor="#BBffBB">'.
                      '<td align="center" colspan="7">'.
                      &mt('Recent courses accessed by DC').
                       '</td></tr>'."\n";
       foreach my $rolekey (sort keys %{$recentroles}) {
           unless ($rolekey =~/^error\:/) {
               unless ($$roletext{$rolekey}) {
                   if ($rolekey =~ m-^user\.role.cc\./(\w+)/(\w+)$-) {
                       my $tcourseid = $1.'_'.$2;
                       my $trolecode = 'cc./'.$1.'/'.$2;
                       my $trole = Apache::lonnet::plaintext('cc');
                       my $twhere;
                       my $tbg='#77FF77';
                       my $tfont='#003300';
                       my %newhash=&Apache::lonnet::coursedescription($tcourseid);
                       if (%newhash) {
                           $twhere=$newhash{'description'}.
                                  ' <font size="-2">'.
                                  &Apache::loncommon::syllabuswrapper(&mt('Syllabus'),$2,$1,$tfont).
                                  '</font>';
                       } else {
                           $twhere=&mt('Currently not available');
                           $ENV{'course.'.$tcourseid.'.description'}=$twhere;
                       }
                       $twhere.="<br />".&mt('Domain').":".$1;
                       $$roletext{$rolekey} = &build_roletext($trolecode,$1,$2,'is',$tryagain,$advanced,'',$tbg,$tfont,$trole,&mt('Course'),$twhere,'','','',1,'');
                   }
               }
               $roledisplay.=$$roletext{$rolekey};
               $numrecent ++;
           }
       }
       if ($numrecent > 0) {
           $r->print("$roledisplay\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 {
       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.80.2.1  
changed lines
  Added in v.1.110

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
500 Internal Server Error

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator at root@localhost to inform them of the time this error occurred, and the actions you performed just before this error.

More information about this error may be available in the server error log.