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

Diff for /loncom/interface/loncreateuser.pm between versions 1.26 and 1.29

version 1.26, 2002/02/11 21:25:07 version 1.29, 2002/04/04 21:46:44
Line 70  BEGIN { Line 70  BEGIN {
     $krbdefdom=~tr/a-z/A-Z/;      $krbdefdom=~tr/a-z/A-Z/;
     $authformnop=(<<END);      $authformnop=(<<END);
 <p>  <p>
 <input type=radio name=login value=nop checked='checked'  <input type="radio" name="login" value="" checked="checked"
 onClick="clicknop(this.form);">  onClick="clicknop(this.form);">
 Do not change login data  Do not change login data
 </p>  </p>
Line 260  ENDDOCHEAD Line 260  ENDDOCHEAD
 <input type="hidden" name="pres_value"  value="" >  <input type="hidden" name="pres_value"  value="" >
 <input type="hidden" name="pres_type"   value="" >  <input type="hidden" name="pres_type"   value="" >
 <input type="hidden" name="pres_marker" value="" >  <input type="hidden" name="pres_marker" value="" >
 <input type="hidden" name="cuname"      value="$ccuname">  
 <input type="hidden" name="cdomain"     value="$ccdomain">  
 ENDFORMINFO  ENDFORMINFO
     my $uhome=&Apache::lonnet::homeserver($ccuname,$ccdomain);      my $uhome=&Apache::lonnet::homeserver($ccuname,$ccdomain);
     my %incdomains;       my %incdomains; 
     my %inccourses;      my %inccourses;
       my %home_servers = &get_home_servers($ccdomain);  
     foreach (%Apache::lonnet::hostdom) {      foreach (%Apache::lonnet::hostdom) {
        $incdomains{$_}=1;         $incdomains{$_}=1;
     }      }
Line 275  ENDFORMINFO Line 274  ENDFORMINFO
         }          }
     }      }
     if ($uhome eq 'no_host') {      if ($uhome eq 'no_host') {
           my $home_server_list=
               '<option value="default" selected>default</option>'."\n";
           foreach (sort keys(%home_servers)) {
               $home_server_list.=
                   '<option value="'.$_.'">'.$_.' '.
                       $home_servers{$_}."</option>\n";
           }
  $r->print(<<ENDNEWUSER);   $r->print(<<ENDNEWUSER);
 $dochead  $dochead
 <h1>Create New User</h1>  <h1>Create New User</h1>
Line 295  $loginscript Line 301  $loginscript
     <td><input type='text' name='cgen'    size='5'  /></td></tr>      <td><input type='text' name='cgen'    size='5'  /></td></tr>
 </table>  </table>
 ID/Student Number <input type='text' name='cstid'   size='15' /></p>  ID/Student Number <input type='text' name='cstid'   size='15' /></p>
   Home Server: <select name="hserver" size="1"> $home_server_list </select>
 <hr />  <hr />
   
 <h3>Login Data</h3>  <h3>Login Data</h3>
 $generalrule  $generalrule
 $authformkrb  $authformkrb
Line 312  $dochead Line 317  $dochead
 $forminfo  $forminfo
 <h2>User "$ccuname" in domain $ccdomain </h2>  <h2>User "$ccuname" in domain $ccdomain </h2>
 ENDCHANGEUSER  ENDCHANGEUSER
         my $rolesdump=&Apache::lonnet::reply(          # Get the users information
                                   "dump:$ccdomain:$ccuname:roles",$uhome);          my %userenv = &Apache::lonnet::get('environment',
                             ['firstname','middlename','lastname','generation'],
                             $ccdomain,$ccuname);
           my %rolesdump=&Apache::lonnet::dump('roles',$ccdomain,$ccuname);
           $r->print(<<END);
   <hr />
   <table border="2">
   <tr>
   <th>first name</th><th>middle name</th><th>last name</th><th>generation</th>
   </tr>
   <tr>
   END
           foreach ('firstname','middlename','lastname','generation') {
              if (&Apache::lonnet::allowed('mau',$ccdomain)) {
                 $r->print(<<"END");            
   <td><input type="text" name="c$_" value="$userenv{$_}" size="15"/></td>
   END
              } else {
                  $r->print('<td>'.$userenv{$_}.'</td>');
              }
           }
           $r->print(<<END);
   </tr>
   </table>
   END
         # Build up table of user roles to allow revocation of a role.          # Build up table of user roles to allow revocation of a role.
         unless ($rolesdump eq 'con_lost' || $rolesdump =~ m/^error/i) {           my ($tmp) = keys(%rolesdump);
           unless ($tmp =~ /^(con_lost|error)/i) {
            my $now=time;             my $now=time;
            $r->print('<hr /><h3>Revoke Existing Roles</h3>'.             $r->print('<hr /><h3>Revoke Existing Roles</h3>'.
              '<table border=2><tr><th>Revoke</th><th>Role</th><th>Extent</th>'.               '<table border=2><tr><th>Revoke</th><th>Role</th><th>Extent</th>'.
      '<th>Start</th><th>End</th>');       '<th>Start</th><th>End</th>');
    foreach (split(/&/,$rolesdump)) {     foreach my $area (keys(%rolesdump)) {
              if ($_!~/^rolesdef\&/) {                if ($area!~/^rolesdef/) {
               my ($area,$role)=split(/=/,$_);                   my $role = $rolesdump{$area};
               my $thisrole=$area;                   my $thisrole=$area;
               $area=~s/\_\w\w$//;                   $area=~s/\_\w\w$//;
               my ($role_code,$role_end_time,$role_start_time)=split(/_/,$role);                   my ($role_code,$role_end_time,$role_start_time) =
               my $bgcol='ffffff';                       split(/_/,$role);
               my $allows=0;                   my $bgcol='ffffff';
               if ($area=~/^\/(\w+)\/(\d\w+)/) {                   my $allows=0;
                  my %coursedata=&Apache::lonnet::coursedescription($1.'_'.$2);                   if ($area=~/^\/(\w+)\/(\d\w+)/) {
                  my $carea='Course: '.$coursedata{'description'};                      my %coursedata=
                  $inccourses{$1.'_'.$2}=1;                          &Apache::lonnet::coursedescription($1.'_'.$2);
                  if (&Apache::lonnet::allowed('c'.$role_code,$1.'/'.$2)) {                      my $carea='Course: '.$coursedata{'description'};
      $allows=1;                      $inccourses{$1.'_'.$2}=1;
                  }                      if (&Apache::lonnet::allowed('c'.$role_code,$1.'/'.$2)) {
  # Compute the background color based on $area                          $allows=1;
                  $bgcol=$1.'_'.$2;                      }
                  $bgcol=~s/[^8-9b-e]//g;                      # Compute the background color based on $area
                  $bgcol=substr($bgcol.$bgcol.$bgcol.'ffffff',0,6);                      $bgcol=$1.'_'.$2;
                  if ($area=~/^\/(\w+)\/(\d\w+)\/(\w+)/) {                      $bgcol=~s/[^8-9b-e]//g;
                      $carea.='<br>Section/Group: '.$3;                      $bgcol=substr($bgcol.$bgcol.$bgcol.'ffffff',0,6);
  }                      if ($area=~/^\/(\w+)\/(\d\w+)\/(\w+)/) {
                  $area=$carea;                         $carea.='<br>Section/Group: '.$3;
       } else {                      }
                  if ($area=~/^\/(\w+)\//) {                      $area=$carea;
                      if (&Apache::lonnet::allowed('c'.$role_code,$1)) {  
  $allows=1;  
                      }  
                  } else {                   } else {
                      if (&Apache::lonnet::allowed('c'.$role_code,'/')) {                       # Determine if current user is able to revoke privileges
  $allows=1;                       if ($area=~/^\/(\w+)\//) {
                           if (&Apache::lonnet::allowed('c'.$role_code,$1)) {
                              $allows=1;
                           }
                        } else {
                           if (&Apache::lonnet::allowed('c'.$role_code,'/')) {
                              $allows=1;
                           }
                      }                       }
                  }                   }
       }                   $r->print('<tr bgcolor=#"'.$bgcol.'"><td>');
                    my $active=1;
               $r->print('<tr bgcolor=#"'.$bgcol.'"><td>');                   $active=0 if (($role_end_time) && ($now>$role_end_time));
               my $active=1;                   if (($active) && ($allows)) {
               if (($role_end_time) && ($now>$role_end_time)) { $active=0; }                      $r->print('<input type="checkbox" name="rev:'
               if (!($active) && ($allows)) {                                .$thisrole.'">');
   $r->print('<input type=checkbox name="rev:'.$thisrole.'">');                   } else {
               } else {                      $r->print('&nbsp;');
                   $r->print('&nbsp;');                   }
                    $r->print('</td><td>'.
                              &Apache::lonnet::plaintext($role_code).
                              '</td><td>'.$area.'</td><td>'.
                              ($role_start_time ? localtime($role_start_time)
                                                : '&nbsp;' )
                              .'</td><td>'.
                              ($role_end_time   ? localtime($role_end_time)
                                                : '&nbsp;' )
                              ."</td></tr>\n");
               }                }
               $r->print('</td><td>'.&Apache::lonnet::plaintext($role_code).             } # end of foreach        (table building loop)
                         '</td><td>'.$area.'</td><td>'.  
                         ($role_start_time ? localtime($role_start_time)  
                                           : '&nbsp;' )  
  .'</td><td>'.  
                         ($role_end_time   ? localtime($role_end_time)  
                                           : '&nbsp;' )  
  ."</td></tr>\n");  
      }  
    }   
    $r->print('</table>');     $r->print('</table>');
          }             }  # End of unless
  my $currentauth=&Apache::lonnet::queryauthenticate($ccuname,$ccdomain);   my $currentauth=&Apache::lonnet::queryauthenticate($ccuname,$ccdomain);
  if ($currentauth=~/^krb4:/) {   if ($currentauth=~/^krb4:/) {
     $currentauth=~/^krb4:(.*)/;      $currentauth=~/^krb4:(.*)/;
Line 543  ENDDROW Line 577  ENDDROW
 # ================================================================= Phase Three  # ================================================================= Phase Three
 sub phase_three {  sub phase_three {
     my $r=shift;      my $r=shift;
       my $uhome=&Apache::lonnet::homeserver($ENV{'form.ccuname'},
                                             $ENV{'form.ccdomain'});
       # Error messages
       my $error     = '<font color="#ff0000">Error:</font>';
       my $end       = '</body></html>';
       # Print header
     $r->print(<<ENDTHREEHEAD);      $r->print(<<ENDTHREEHEAD);
 <html>  <html>
 <head>  <head>
 <title>The LearningOnline Network with CAPA</title>  <title>The LearningOnline Network with CAPA</title>
 </head>  </head>
 <body bgcolor="#FFFFFF">  <body bgcolor="#FFFFFF">
 <img align=right src=/adm/lonIcons/lonlogos.gif>  <img align="right" src="/adm/lonIcons/lonlogos.gif">
 <h1>Create User, Change User Privileges</h1>  
 ENDTHREEHEAD  ENDTHREEHEAD
    $r->print('<h2>'.$ENV{'form.cuname'}.' at '.$ENV{'form.cdomain'}.'</h2>');      # Check Inputs
    if ($ENV{'form.makeuser'}) {      if (! $ENV{'form.ccuname'} ) {
     $r->print('<h3>Creating User</h3>');   $r->print($error.'No login name specified.'.$end);
     if (($ENV{'form.cuname'})&&($ENV{'form.cuname'}!~/\W/)&&   return;
         ($ENV{'form.cdomain'})&&($ENV{'form.cdomain'}!~/\W/)) {      }
  my $amode='';      if (  $ENV{'form.ccuname'}  =~/\W/) {
         my $genpwd='';   $r->print($error.'Invalid login name.  '.
         if ($ENV{'form.login'} eq 'krb') {    'Only letters, numbers, and underscores are valid.'.
            $amode='krb4';    $end);
            $genpwd=$ENV{'form.krbdom'};   return;
         } elsif ($ENV{'form.login'} eq 'int') {      }
            $amode='internal';      if (! $ENV{'form.ccdomain'}       ) {
            $genpwd=$ENV{'form.intpwd'};   $r->print($error.'No domain specified.'.$end);
         } elsif ($ENV{'form.login'} eq 'fsys') {   return;
            $amode='unix';      }
            $genpwd=$ENV{'form.fsyspwd'};      if (  $ENV{'form.ccdomain'} =~/\W/) {
         } elsif ($ENV{'form.login'} eq 'loc') {   $r->print($error.'Invalid domain name.  '.
     $amode='localauth';    'Only letters, numbers, and underscores are valid.'.
     $genpwd=$ENV{'form.locarg'};    $end);
     if (!$genpwd) { $genpwd=" "; }   return;
  }      }
         if (($amode) && ($genpwd)) {      if (! exists($ENV{'form.makeuser'})) {
           $r->print('Generating user: '.&Apache::lonnet::modifyuser(          # Modifying an existing user, so check the validity of the name
                       $ENV{'form.cdomain'},$ENV{'form.cuname'},          if ($uhome eq 'no_host') {
                       $ENV{'form.cstid'},$amode,$genpwd,              $r->print($error.'Unable to determine home server for '.
                $ENV{'form.cfirst'},$ENV{'form.cmiddle'},                        $ENV{'form.ccuname'}.' in domain '.
                       $ENV{'form.clast'},$ENV{'form.cgen'}));                        $ENV{'form.ccdomain'}.'.');
           $r->print('<br>Home server: '.&Apache::lonnet::homeserver              return;
                       ($ENV{'form.cuname'},$ENV{'form.cdomain'}));          }
   
  } else {  
            $r->print('Invalid login mode or password');      
         }            
     } else {  
         $r->print('Invalid username or domain');  
     }      }
    }      # Determine authentication method and password for the user being modified
    if (!$ENV{'form.makeuser'} and $ENV{'form.login'} ne 'nop') {      my $amode='';
     $r->print('<h3>Changing User Login Data</h3>');      my $genpwd='';
     if (($ENV{'form.cuname'})&&($ENV{'form.cuname'}!~/\W/)&&      if ($ENV{'form.login'} eq 'krb') {
         ($ENV{'form.cdomain'})&&($ENV{'form.cdomain'}!~/\W/)) {   $amode='krb4';
  my $amode='';   $genpwd=$ENV{'form.krbdom'};
         my $genpwd='';      } elsif ($ENV{'form.login'} eq 'int') {
         if ($ENV{'form.login'} eq 'krb') {   $amode='internal';
            $amode='krb4';   $genpwd=$ENV{'form.intpwd'};
            $genpwd=$ENV{'form.krbdom'};      } elsif ($ENV{'form.login'} eq 'fsys') {
         } elsif ($ENV{'form.login'} eq 'int') {   $amode='unix';
            $amode='internal';   $genpwd=$ENV{'form.fsyspwd'};
            $genpwd=$ENV{'form.intpwd'};      } elsif ($ENV{'form.login'} eq 'loc') {
         } elsif ($ENV{'form.login'} eq 'fsys') {   $amode='localauth';
            $amode='unix';   $genpwd=$ENV{'form.locarg'};
            $genpwd=$ENV{'form.fsyspwd'};   $genpwd=" " if (!$genpwd);
         } elsif ($ENV{'form.login'} eq 'loc') {      }
     $amode='localauth';      if ($ENV{'form.makeuser'}) {
     $genpwd=$ENV{'form.locarg'};          # Create a new user
     if (!$genpwd) { $genpwd=" "; }   $r->print(<<ENDNEWUSERHEAD);
   <h1>Create User</h1>
   <h3>Creating user "$ENV{'form.ccuname'}" in domain "$ENV{'form.ccdomain'}"</h2>
   ENDNEWUSERHEAD
           # Check for the authentication mode and password
           if (! $amode || ! $genpwd) {
       $r->print($error.'Invalid login mode or password'.$end);    
       return;
  }   }
         if (($amode) && ($genpwd)) {          # Determine desired host
           my $desiredhost = $ENV{'form.hserver'};
           if (lc($desiredhost) eq 'default') {
               $desiredhost = undef;
           } else {
               my %home_servers = &get_home_servers($ENV{'form.ccdomain'});  
               if (! exists($home_servers{$desiredhost})) {
                   $r->print($error.'Invalid home server specified');
                   return;
               }
           }
    # Call modifyuser
    my $result = &Apache::lonnet::modifyuser
       ($ENV{'form.ccdomain'},$ENV{'form.ccuname'},$ENV{'form.cstid'},
                $amode,$genpwd,$ENV{'form.cfirst'},
                $ENV{'form.cmiddle'},$ENV{'form.clast'},$ENV{'form.cgen'},
                undef,$desiredhost
        );
    $r->print('Generating user: '.$result);
           my $home = &Apache::lonnet::homeserver($ENV{'form.ccuname'},
                                                  $ENV{'form.ccdomain'});
           $r->print('<br>Home server: '.$home.' '.
                     $Apache::lonnet::libserv{$home});
       } elsif ($ENV{'form.login'} ne '') {
    # Modify user privileges
    $r->print(<<ENDMODIFYUSERHEAD);
   <h1>Change User Privileges</h1>
   <h2>User "$ENV{'form.ccuname'}" in domain "$ENV{'form.ccdomain'}"</h2>
   ENDMODIFYUSERHEAD
           if (! $amode || ! $genpwd) {
       $r->print($error.'Invalid login mode or password'.$end);    
       return;
    }
    # Only allow authentification modification if the person has authority
    if (&Apache::lonnet::allowed('mau',$ENV{'user.domain'})) {
     $r->print('Modifying authentication: '.      $r->print('Modifying authentication: '.
  &Apache::lonnet::modifyuserauth(    &Apache::lonnet::modifyuserauth(
        $ENV{'form.cdomain'},$ENV{'form.cuname'},         $ENV{'form.ccdomain'},$ENV{'form.ccuname'},
                        $amode,$genpwd));                         $amode,$genpwd));
             $r->print('<br>Home server: '.&Apache::lonnet::homeserver              $r->print('<br>Home server: '.&Apache::lonnet::homeserver
                       ($ENV{'form.cuname'},$ENV{'form.cdomain'}));    ($ENV{'form.ccuname'},$ENV{'form.ccdomain'}));
   
  } else {   } else {
            $r->print('Invalid login mode or password');          # Okay, this is a non-fatal error.
         }                $r->print($error.'You do not have the authority to modify '.
     } else {        'this users authentification information.');    
         $r->print('Invalid username or domain');   }
     }      }
    }      ##
       if (! $ENV{'form.makeuser'} ) {
           # Check for need to change
           my %userenv = &Apache::lonnet::get
               ('environment',['firstname','middlename','lastname','generation'],
                $ENV{'form.ccdomain'},$ENV{'form.ccuname'});
           my ($tmp) = keys(%userenv);
           if ($tmp =~ /^(con_lost|error)/i) { 
               %userenv = ();
           }
           # Check to see if we need to change user information
           foreach ('firstname','middlename','lastname','generation') {
               # Strip leading and trailing whitespace
               $ENV{'form.c'.$_} =~ s/(\s+$|^\s+)//g; 
           }
           if (&Apache::lonnet::allowed('mau',$ENV{'form.ccdomain'}) && 
               ($ENV{'form.cfirstname'}  ne $userenv{'firstname'}  ||
                $ENV{'form.cmiddlename'} ne $userenv{'middlename'} ||
                $ENV{'form.clastname'}   ne $userenv{'lastname'}   ||
                $ENV{'form.cgeneration'} ne $userenv{'generation'} )) {
               # Make the change
               my %changeHash;
               $changeHash{'firstname'}  = $ENV{'form.cfirstname'};
               $changeHash{'middlename'} = $ENV{'form.cmiddlename'};
               $changeHash{'lastname'}   = $ENV{'form.clastname'};
               $changeHash{'generation'} = $ENV{'form.cgeneration'};
               my $putresult = &Apache::lonnet::put
                   ('environment',\%changeHash,
                    $ENV{'form.ccdomain'},$ENV{'form.ccuname'});
               if ($putresult eq 'ok') {
               # Tell the user we changed the name
                   $r->print(<<"END");
   <table border="2">
   <caption>User Information Changed</caption>
   <tr><th>&nbsp;</th>
       <th>first</th>
       <th>middle</th>
       <th>last</th>
       <th>generation</th></tr>
   <tr><td>Previous</td>
       <td>$userenv{'firstname'}  </td>
       <td>$userenv{'middlename'} </td>
       <td>$userenv{'lastname'}   </td>
       <td>$userenv{'generation'} </td></tr>
   <tr><td>Changed To</td>
       <td>$ENV{'form.cfirstname'}  </td>
       <td>$ENV{'form.cmiddlename'} </td>
       <td>$ENV{'form.clastname'}   </td>
       <td>$ENV{'form.cgeneration'} </td></tr>
   </table>
   END
               } else { # error occurred
                   $r->print("<h2>Unable to successfully change environment for ".
                         $ENV{'form.ccuname'}." in domain ".
                         $ENV{'form.ccdomain'}."</h2>");
               }
           }  else { # End of if ($ENV ... ) logic
               # They did not want to change the users name but we can
               # still tell them what the name is
                   $r->print(<<"END");
   <h2>User "$ENV{'form.ccuname'}" in domain "$ENV{'form.ccdomain'}"</h2>
   <h4>$userenv{'firstname'} $userenv{'middlename'} $userenv{'lastname'} </h4>
   <h4>Generation: $userenv{'generation'}</h4>
   END
           }
       }
       ##
     my $now=time;      my $now=time;
     $r->print('<h3>Modifying Roles</h3>');      $r->print('<h3>Modifying Roles</h3>');
     foreach (keys (%ENV)) {      foreach (keys (%ENV)) {
  if (($_=~/^form\.rev\:([^\_]+)\_([^\_]+)$/) && ($ENV{$_})) {   next if (! $ENV{$_});
            $r->print('Revoking '.$2.' in '.$1.': '.   # Revoke roles
           &Apache::lonnet::assignrole($ENV{'form.cdomain'},$ENV{'form.cuname'},   if ($_=~/^form\.rev/) {
                                       $1,$2,$now).'<br>');      if ($_=~/^form\.rev\:([^\_]+)\_([^\_]+)$/) {
            if ($2 eq 'st') {          $r->print('Revoking '.$2.' in '.$1.': '.
                $1=~/^\/(\w+)\/(\w+)/;                       &Apache::lonnet::assignrole($ENV{'form.ccdomain'},
                my $cid=$1.'_'.$2;                       $ENV{'form.ccuname'},$1,$2,$now).'<br>');
        $r->print('Drop from classlist: '.   if ($2 eq 'st') {
           &Apache::lonnet::critical('put:'.$ENV{'course.'.$cid.'.domain'}.':'.      $1=~/^\/(\w+)\/(\w+)/;
               $ENV{'course.'.$cid.'.num'}.':classlist:'.      my $cid=$1.'_'.$2;
                       &Apache::lonnet::escape($ENV{'form.cuname'}.':'.      $r->print('Drop from classlist: '.
                                               $ENV{'form.cdomain'}).'='.   &Apache::lonnet::critical('put:'.
                       &Apache::lonnet::escape($now.':'),                               $ENV{'course.'.$cid.'.domain'}.':'.
               $ENV{'course.'.$cid.'.home'}).'<br>');                       $ENV{'course.'.$cid.'.num'}.':classlist:'.
            }                           &Apache::lonnet::escape($ENV{'form.ccuname'}.':'.
  }                               $ENV{'form.ccdomain'}).'='.
     }                            &Apache::lonnet::escape($now.':'),
     foreach (keys(%ENV)) {                       $ENV{'course.'.$cid.'.home'}).'<br>');
  if (($_=~/^form\.act\_([^\_]+)\_([^\_]+)\_([^\_]+)$/) && ($ENV{$_})) {   }
             my $url='/'.$1.'/'.$2;      } 
             if ($ENV{'form.sec_'.$1.'_'.$2.'_'.$3}) {   } elsif ($_=~/^form\.act/) {
  $url.='/'.$ENV{'form.sec_'.$1.'_'.$2.'_'.$3};      if ($_=~/^form\.act\_([^\_]+)\_([^\_]+)\_([^\_]+)$/) {
             }   # Activate roles for sections with 3 id numbers
             my $start=$now;   # set start, end times, and the url for the class
             if ($ENV{'form.start_'.$1.'_'.$2.'_'.$3}) {   my $start = ( $ENV{'form.start_'.$1.'_'.$2} ? 
  $start=$ENV{'form.start_'.$1.'_'.$2.'_'.$3};        $ENV{'form.start_'.$1.'_'.$2} : 
             }        $now );
             my $end=0;   my $end   = ( $ENV{'form.end_'.$1.'_'.$2} ? 
             if ($ENV{'form.end_'.$1.'_'.$2.'_'.$3}) {        $ENV{'form.end_'.$1.'_'.$2} :
  $end=$ENV{'form.end_'.$1.'_'.$2.'_'.$3};        0 );
             }   my $url='/'.$1.'/'.$2;
             $r->print('Assigning: '.$3.' in '.$url.': '.   if ($ENV{'form.sec_'.$1.'_'.$2.'_'.$3}) {
           &Apache::lonnet::assignrole($ENV{'form.cdomain'},$ENV{'form.cuname'},      $url.='/'.$ENV{'form.sec_'.$1.'_'.$2.'_'.$3};
                                       $url,$3,$end,$start).'<br>');   }
             if ($3 eq 'st') {   # Assign the role and report it
  $url=~/^\/(\w+)\/(\w+)/;   $r->print('Assigning: '.$3.' in '.$url.': '.
                 my $cid=$1.'_'.$2;                            &Apache::lonnet::assignrole(
                $r->print('Add to classlist: '.                                $ENV{'form.ccdomain'},$ENV{'form.ccuname'},
           &Apache::lonnet::critical('put:'.$ENV{'course.'.$cid.'.domain'}.':'.                                $url,$3,$end,$start).
               $ENV{'course.'.$cid.'.num'}.':classlist:'.    '<br>');
                       &Apache::lonnet::escape($ENV{'form.cuname'}.':'.   # Handle students differently
                                               $ENV{'form.cdomain'}).'='.   if ($3 eq 'st') {
                       &Apache::lonnet::escape($end.':'.$start),      $url=~/^\/(\w+)\/(\w+)/;
               $ENV{'course.'.$cid.'.home'}).'<br>');      my $cid=$1.'_'.$2;
       $r->print('Add to classlist: '.
         &Apache::lonnet::critical(
     'put:'.$ENV{'course.'.$cid.'.domain'}.':'.
                              $ENV{'course.'.$cid.'.num'}.':classlist:'.
                                      &Apache::lonnet::escape(
                                          $ENV{'form.ccuname'}.':'.
                                          $ENV{'form.ccdomain'} ).'='.
                                      &Apache::lonnet::escape($end.':'.$start),
          $ENV{'course.'.$cid.'.home'})
         .'<br>');
    }
       } elsif ($_=~/^form\.act\_([^\_]+)\_([^\_]+)$/) {
    # Activate roles for sections with two id numbers
    # set start, end times, and the url for the class
    my $start = ( $ENV{'form.start_'.$1.'_'.$2} ? 
         $ENV{'form.start_'.$1.'_'.$2} : 
         $now );
    my $end   = ( $ENV{'form.end_'.$1.'_'.$2} ? 
         $ENV{'form.end_'.$1.'_'.$2} :
         0 );
    my $url='/'.$1.'/';
    # Assign the role and report it.
    $r->print('Assigning: '.$2.' in '.$url.': '.
                             &Apache::lonnet::assignrole(
                                 $ENV{'form.ccdomain'},$ENV{'form.ccuname'},
                                 $url,$2,$end,$start)
     .'<br>');
     }      }
  } elsif (($_=~/^form\.act\_([^\_]+)\_([^\_]+)$/) && ($ENV{$_})) {   } 
             my $url='/'.$1.'/';      } # End of foreach (keys(%ENV))
             my $start=$now;  
             if ($ENV{'form.start_'.$1.'_'.$2}) {  
  $start=$ENV{'form.start_'.$1.'_'.$2};  
             }  
             my $end=0;  
             if ($ENV{'form.end_'.$1.'_'.$2}) {  
  $end=$ENV{'form.end_'.$1.'_'.$2};  
             }  
             $r->print('Assigning: '.$2.' in '.$url.': '.  
           &Apache::lonnet::assignrole($ENV{'form.cdomain'},$ENV{'form.cuname'},  
                                       $url,$2,$end,$start).'<br>');  
         }  
     }  
     $r->print('</body></html>');      $r->print('</body></html>');
 }  }
   
Line 724  sub handler { Line 877  sub handler {
    return OK;     return OK;
 }   } 
   
   #-------------------------------------------------- functions for &phase_two
 sub course_level_table {  sub course_level_table {
     my %inccourses = @_;      my %inccourses = @_;
     my $table = '';      my $table = '';
Line 778  $table Line 931  $table
 ENDTABLE  ENDTABLE
     return $result;      return $result;
 }  }
   #---------------------------------------------- end functions for &phase_two
   
   #--------------------------------- functions for &phase_two and &phase_three
   sub get_home_servers {
       my $domain = shift;
       my %home_servers;
       foreach (keys(%Apache::lonnet::libserv)) {
           if ($Apache::lonnet::hostdom{$_} eq $domain) {
               $home_servers{$_} = $Apache::lonnet::hostname{$_};
           }
       }
       return %home_servers;
   }
   
   #--------------------------end of functions for &phase_two and &phase_three
   
 1;  1;
 __END__  __END__
Removed from v.1.26  
changed lines
  Added in v.1.29

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