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

Diff for /loncom/interface/loncreateuser.pm between versions 1.59 and 1.60

version 1.59, 2003/07/17 19:40:39 version 1.60, 2003/07/18 13:45:14
Line 264  ENDNEWUSER Line 264  ENDNEWUSER
 $dochead  $dochead
 <h1>Change User Privileges</h1>  <h1>Change User Privileges</h1>
 $forminfo  $forminfo
 <h2>User "$ccuname" in domain $ccdomain </h2>  <h2>User "$ccuname" in domain "$ccdomain"</h2>
 ENDCHANGEUSER  ENDCHANGEUSER
         # Get the users information          # Get the users information
         my %userenv = &Apache::lonnet::get('environment',          my %userenv = &Apache::lonnet::get('environment',
Line 875  sub custom_role_editor { Line 875  sub custom_role_editor {
                      'Create Users, Change User Privileges').'<h2>');                       'Create Users, Change User Privileges').'<h2>');
     my ($rdummy,$roledef)=      my ($rdummy,$roledef)=
  &Apache::lonnet::get('roles',["rolesdef_$rolename"]);   &Apache::lonnet::get('roles',["rolesdef_$rolename"]);
   # ------------------------------------------------------- Does this role exist?
     if (($rdummy ne 'con_lost') && ($roledef ne '')) {      if (($rdummy ne 'con_lost') && ($roledef ne '')) {
  $r->print('Existing Role "');   $r->print('Existing Role "');
     } else {      } else {
Line 882  sub custom_role_editor { Line 883  sub custom_role_editor {
  $roledef='';   $roledef='';
     }      }
     $r->print($rolename.'"</h2>');      $r->print($rolename.'"</h2>');
   # ------------------------------------------------------- What can be assigned?
       my %full=();
       my %courselevel=();
       foreach (split(/\:/,$Apache::lonnet::pr{'cr:c'})) {
    my ($priv,$restrict)=split(/\&/,$_);
           unless ($restrict) { $restrict='F'; }
           $courselevel{$priv}=$restrict;
    $full{$priv}=1;
       }
       my %domainlevel=();
       foreach (split(/\:/,$Apache::lonnet::pr{'cr:d'})) {
    my ($priv,$restrict)=split(/\&/,$_);
           unless ($restrict) { $restrict='F'; }
           $domainlevel{$priv}=$restrict;
    $full{$priv}=1;
       }
       $r->print('<table border="2"><tr><th>Privilege</th><th>Course Level</th><th>Domain Level</th></tr>');
       foreach (sort keys %full) {
    $r->print('<tr><td>'.&Apache::lonnet::plaintext($_).'</td><td>'.
     $courselevel{$_}.'</td><td>'.$domainlevel{$_}.'</td></tr>');
       }
       $r->print('</table>');
     $r->print('Not yet implemented.');      $r->print('Not yet implemented.');
 }  }
   
Removed from v.1.59  
changed lines
  Added in v.1.60

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