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

Diff for /loncom/interface/loncreateuser.pm between versions 1.27 and 1.28

version 1.27, 2002/02/12 21:42:18 version 1.28, 2002/03/22 22:23:23
Line 295  $loginscript Line 295  $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>
   
 <hr />  <hr />
   
 <h3>Login Data</h3>  <h3>Login Data</h3>
 $generalrule  $generalrule
 $authformkrb  $authformkrb
Line 312  $dochead Line 310  $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 {                      }
  # Determine if current user is able to revoke privileges                      $area=$carea;
                  if ($area=~/^\/(\w+)\//) {  
                      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:'                   } else {
     .$thisrole.'">');                      $r->print('&nbsp;');
               } else {                   }
                   $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 641  ENDMODIFYUSERHEAD Line 666  ENDMODIFYUSERHEAD
  }   }
     }      }
     ##      ##
       if (! $ENV{'form.makeuser'} ) {
           # Check for need to change
           my %userenv = &Apache::lonnet::get
               ('environment',['firstname','middlename','lastname','generation'],
                $ENV{'form.cdomain'},$ENV{'form.cuname'});
           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.cdomain'}) && 
               ($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.cdomain'},$ENV{'form.cuname'});
               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.cuname'}." in domain ".
                         $ENV{'form.cdomain'}."</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.cuname'}" in domain "$ENV{'form.cdomain'}"</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)) {
Removed from v.1.27  
changed lines
  Added in v.1.28

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