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

Diff for /loncom/interface/loncreateuser.pm between versions 1.188 and 1.197

version 1.188, 2007/10/09 17:33:57 version 1.197, 2007/12/01 03:49:08
Line 65  use Apache::lonnet; Line 65  use Apache::lonnet;
 use Apache::loncommon;  use Apache::loncommon;
 use Apache::lonlocal;  use Apache::lonlocal;
 use Apache::longroup;  use Apache::longroup;
   use Apache::lonuserutils;
 use LONCAPA qw(:DEFAULT :match);  use LONCAPA qw(:DEFAULT :match);
   
 my $loginscript; # piece of javascript used in two separate instances  my $loginscript; # piece of javascript used in two separate instances
Line 111  sub auth_abbrev { Line 112  sub auth_abbrev {
     return %abv_auth;      return %abv_auth;
 }  }
   
 # ======================================================= Existing Custom Roles  
   
 sub my_custom_roles {  
     my %returnhash=();  
     my %rolehash=&Apache::lonnet::dump('roles');  
     foreach my $key (keys %rolehash) {  
  if ($key=~/^rolesdef\_(\w+)$/) {  
     $returnhash{$1}=$1;  
  }  
     }  
     return %returnhash;  
 }  
   
 # ==================================================== Figure out author access  # ==================================================== Figure out author access
   
 sub authorpriv {  sub authorpriv {
Line 237  sub print_username_entry_form { Line 225  sub print_username_entry_form {
                 'onload' => "javascript:setFormElements(document.$formtoset)",                  'onload' => "javascript:setFormElements(document.$formtoset)",
                     );                      );
     my $start_page =      my $start_page =
  &Apache::loncommon::start_page('Create Users, Change User Privileges',   &Apache::loncommon::start_page('User Management',
        $jscript,{'add_entries' => \%loaditems,});         $jscript,{'add_entries' => \%loaditems,});
    &Apache::lonhtmlcommon::add_breadcrumb      if ($env{'form.action'} eq 'singleuser') {
      ({href=>"javascript:backPage(document.crtuser)",          &Apache::lonhtmlcommon::add_breadcrumb
        text=>"User modify/custom role edit",            ({href=>"javascript:backPage(document.crtuser)",
        faq=>282,bug=>'Instructor Interface',});              text=>"Single user search",
               faq=>282,bug=>'Instructor Interface',});
       } elsif ($env{'form.action'} eq 'custom') {
           &Apache::lonhtmlcommon::add_breadcrumb
             ({href=>"javascript:backPage(document.crtuser)",
               text=>"Pick custom role",});
       }
     my $crumbs = &Apache::lonhtmlcommon::breadcrumbs('User Management');      my $crumbs = &Apache::lonhtmlcommon::breadcrumbs('User Management');
     my %existingroles=&my_custom_roles();      my %existingroles=&Apache::lonuserutils::my_custom_roles();
     my $choice=&Apache::loncommon::select_form('make new role','rolename',      my $choice=&Apache::loncommon::select_form('make new role','rolename',
  ('make new role' => 'Generate new role ...',%existingroles));   ('make new role' => 'Generate new role ...',%existingroles));
     my %lt=&Apache::lonlocal::texthash(      my %lt=&Apache::lonlocal::texthash(
                     'srch' => "User Search",                      'srch' => "User Search",
                      or    => "or",                       or    => "or",
     'siur' => "Set Individual User Roles",  
     'usr'  => "Username",      'usr'  => "Username",
                     'dom'  => "Domain",                      'dom'  => "Domain",
                     'ecrp' => "Edit Custom Role Privileges",                      'ecrp' => "Edit Custom Role Privileges",
Line 266  sub print_username_entry_form { Line 258  sub print_username_entry_form {
     if ($sellink) {      if ($sellink) {
         $sellink = "$lt{'or'} ".$sellink;          $sellink = "$lt{'or'} ".$sellink;
     }       } 
     $r->print("      $r->print($start_page."\n".$crumbs);
 $start_page      if ($env{'form.action'} eq 'singleuser') {
 $crumbs          $r->print("
 <h2>$lt{siur}$helpsiur</h2>  <h3>$lt{'srch'} $sellink $lt{'mod'}$helpsiur</h3>
 <h3>$lt{'srch'} $sellink $lt{'mod'}</h3>  
 $response");  $response");
     $r->print(&entry_form($defdom,$srch,$forcenewuser));          $r->print(&entry_form($defdom,$srch,$forcenewuser));
     if (&Apache::lonnet::allowed('mcr','/')) {      } elsif ($env{'form.action'} eq 'custom') {
         $r->print(<<ENDCUSTOM);          if (&Apache::lonnet::allowed('mcr','/')) {
               $r->print(<<ENDCUSTOM);
 <form action="/adm/createuser" method="post" name="docustom">  <form action="/adm/createuser" method="post" name="docustom">
   <input type="hidden" name="action" value="$env{'form.action'}" />
 <input type="hidden" name="phase" value="selected_custom_edit" />  <input type="hidden" name="phase" value="selected_custom_edit" />
 <h2>$lt{'ecrp'}$helpecpr</h2>  <h3>$lt{'ecrp'}$helpecpr</h3>
 $lt{'nr'}: $choice <input type="text" size="15" name="newrolename" /><br />  $lt{'nr'}: $choice <input type="text" size="15" name="newrolename" /><br />
 <input name="customeditor" type="submit" value="$lt{'cre'}" />  <input name="customeditor" type="submit" value="$lt{'cre'}" />
 </form>  </form>
 ENDCUSTOM  ENDCUSTOM
           }
     }      }
     $r->print(&Apache::loncommon::end_page());      $r->print(&Apache::loncommon::end_page());
 }  }
Line 294  sub entry_form { Line 288  sub entry_form {
     my $srchbutton = &mt('Search');      my $srchbutton = &mt('Search');
     my $output = <<"ENDDOCUMENT";      my $output = <<"ENDDOCUMENT";
 <form action="/adm/createuser" method="post" name="crtuser">  <form action="/adm/createuser" method="post" name="crtuser">
   <input type="hidden" name="action" value="$env{'form.action'}" />
 <input type="hidden" name="phase" value="get_user_info" />  <input type="hidden" name="phase" value="get_user_info" />
 $userpicker  $userpicker
 <input name="userrole" type="button" value="$srchbutton" onclick="javascript:validateEntry(document.crtuser)" />  <input name="userrole" type="button" value="$srchbutton" onclick="javascript:validateEntry(document.crtuser)" />
Line 331  END Line 326  END
   
 # =================================================================== Phase two  # =================================================================== Phase two
 sub print_user_selection_page {  sub print_user_selection_page {
     my ($r,$response,$srch,$srch_results,$context,$srcharray) = @_;      my ($r,$response,$srch,$srch_results,$operation,$srcharray) = @_;
     my @fields = ('username','domain','lastname','firstname','permanentemail');      my @fields = ('username','domain','lastname','firstname','permanentemail');
     my $sortby = $env{'form.sortby'};      my $sortby = $env{'form.sortby'};
   
Line 365  ENDSCRIPT Line 360  ENDSCRIPT
                                        'firstname'      => "first name",                                         'firstname'      => "first name",
                                        'permanentemail' => "permanent e-mail",                                         'permanentemail' => "permanent e-mail",
                                       );                                        );
     if ($context eq 'createuser') {      if ($operation eq 'createuser') {
         $r->print(&Apache::loncommon::start_page('Create Users, Change User Privileges',$jscript));          $r->print(&Apache::loncommon::start_page('User Management',$jscript));
         &Apache::lonhtmlcommon::add_breadcrumb          &Apache::lonhtmlcommon::add_breadcrumb
             ({href=>"javascript:backPage(document.usersrchform,'','')",              ({href=>"javascript:backPage(document.usersrchform,'','')",
               text=>"User modify/custom role edit",                text=>"Create/modify user",
               faq=>282,bug=>'Instructor Interface',},                faq=>282,bug=>'Instructor Interface',},
              {href=>"javascript:backPage(document.usersrchform,'get_user_info','select')",               {href=>"javascript:backPage(document.usersrchform,'get_user_info','select')",
               text=>"Select User",                text=>"Select User",
Line 425  ENDSCRIPT Line 420  ENDSCRIPT
               ' <input type="hidden" name="seluname" value="" />'."\n".                ' <input type="hidden" name="seluname" value="" />'."\n".
               ' <input type="hidden" name="seludom" value="" />'."\n".                ' <input type="hidden" name="seludom" value="" />'."\n".
               ' <input type="hidden" name="currstate" value="select" />'."\n".                ' <input type="hidden" name="currstate" value="select" />'."\n".
               ' <input type="hidden" name="phase" value="get_user_info" />'."\n");                ' <input type="hidden" name="phase" value="get_user_info" />'."\n".
                 ' <input type="hidden" name="action" value="singleuser" />'."\n");
     $r->print($response);      $r->print($response);
     if ($context eq 'createuser') {      if ($operation eq 'createuser') {
         $r->print('</form>'.&Apache::loncommon::end_page());          $r->print('</form>'.&Apache::loncommon::end_page());
     } else {      } else {
         $r->print('<input type="hidden" name="action" value="enrollstudent" />'."\n".          $r->print('<input type="hidden" name="action" value="enrollstudent" />'."\n".
Line 444  sub print_user_query_page { Line 440  sub print_user_query_page {
 }  }
   
 sub print_user_modification_page {  sub print_user_modification_page {
     my ($r,$ccuname,$ccdomain,$srch,$response) = @_;      my ($r,$ccuname,$ccdomain,$srch,$response,$context) = @_;
     if (($ccuname eq '') || ($ccdomain eq '')) {      if (($ccuname eq '') || ($ccdomain eq '')) {
         my $usermsg = &mt('No username and/or domain provided.');           my $usermsg = &mt('No username and/or domain provided.'); 
  &print_username_entry_form($r,$usermsg);   &print_username_entry_form($r,$usermsg);
         return;          return;
     }      }
     my %abv_auth = &auth_abbrev();      my %abv_auth = &auth_abbrev();
     my ($curr_authtype,$instsrch,$rulematch,$rules,%inst_results,      my ($curr_authtype,%rulematch,%inst_results,$curr_kerb_ver,$newuser,
         $curr_kerb_ver,$newuser);          %alerts,%curr_rules,%got_rules);
     my $uhome=&Apache::lonnet::homeserver($ccuname,$ccdomain);      my $uhome=&Apache::lonnet::homeserver($ccuname,$ccdomain);
     if ($uhome eq 'no_host') {      if ($uhome eq 'no_host') {
         $newuser = 1;          $newuser = 1;
         $instsrch =          my $checkhash;
                       {          my $checks = { 'username' => 1 };
                          srchin => 'instd',          $checkhash->{$ccuname.':'.$ccdomain} = { 'newuser' => $newuser };
                          srchby => 'uname',          &Apache::loncommon::user_rule_check($checkhash,$checks,
                          srchtype => 'exact',              \%alerts,\%rulematch,\%inst_results,\%curr_rules,\%got_rules);
                          srchterm => $ccuname,          if (ref($alerts{'username'}) eq 'HASH') {
                          srchdomain => $ccdomain,              if (ref($alerts{'username'}{$ccdomain}) eq 'HASH') {
                        };                  my $domdesc =
         (my $usercheckmsg,$rulematch,$rules,%inst_results) =                       &Apache::lonnet::domain($ccdomain,'description');
             &Apache::loncommon::username_rule_check($instsrch,'new');                  if ($alerts{'username'}{$ccdomain}{$ccuname}) {
         if ($usercheckmsg) {                      my $userchkmsg;
             &print_username_entry_form($r,$usercheckmsg);                      if (ref($curr_rules{$ccdomain}) eq 'HASH') {  
             return;                          $userchkmsg = 
                               &Apache::loncommon::instrule_disallow_msg('username',
                                                                    $domdesc,1).
                           &Apache::loncommon::user_rule_formats($ccdomain,
                               $domdesc,$curr_rules{$ccdomain}{'username'},
                               'username');
                       }
                       &print_username_entry_form($r,$userchkmsg);
                       return;
                   } 
               }
         }          }
     } else {      } else {
         $newuser = 0;          $newuser = 0;
Line 707  ENDSECCODE Line 713  ENDSECCODE
         my ($krbdef,$krbdefdom) =          my ($krbdef,$krbdefdom) =
             &Apache::loncommon::get_kerberos_defaults($ccdomain);              &Apache::loncommon::get_kerberos_defaults($ccdomain);
         $javascript_validations =           $javascript_validations = 
             &Apache::londropadd::javascript_validations('auth',$krbdefdom,undef,              &Apache::lonuserutils::javascript_validations('auth',$krbdefdom,undef,
                                                         undef,$ccdomain);                                                          undef,$ccdomain);
     }      }
     $js .= "\n".      $js .= "\n".
        '<script type="text/javascript">'."\n".$jsback."\n".         '<script type="text/javascript">'."\n".$jsback."\n".
        $javascript_validations.'</script>';         $javascript_validations.'</script>';
     my $start_page =       my $start_page = 
  &Apache::loncommon::start_page('Create Users, Change User Privileges',   &Apache::loncommon::start_page('User Management',
        $js,{'add_entries' => \%loaditem,});         $js,{'add_entries' => \%loaditem,});
     &Apache::lonhtmlcommon::add_breadcrumb      &Apache::lonhtmlcommon::add_breadcrumb
      ({href=>"javascript:backPage(document.cu)",       ({href=>"javascript:backPage(document.cu)",
        text=>"User modify/custom role edit",         text=>"Create/modify user",
        faq=>282,bug=>'Instructor Interface',});         faq=>282,bug=>'Instructor Interface',});
   
     if ($env{'form.phase'} eq 'userpicked') {      if ($env{'form.phase'} eq 'userpicked') {
Line 735  ENDSECCODE Line 741  ENDSECCODE
   
     my $forminfo =<<"ENDFORMINFO";      my $forminfo =<<"ENDFORMINFO";
 <form action="/adm/createuser" method="post" name="cu">  <form action="/adm/createuser" method="post" name="cu">
 <input type="hidden" name="phase"       value="update_user_data" />  <input type="hidden" name="phase" value="update_user_data" />
 <input type="hidden" name="ccuname" value="$ccuname" />  <input type="hidden" name="ccuname" value="$ccuname" />
 <input type="hidden" name="ccdomain" value="$ccdomain" />  <input type="hidden" name="ccdomain" value="$ccdomain" />
 <input type="hidden" name="pres_value"  value="" />  <input type="hidden" name="pres_value"  value="" />
Line 759  ENDFORMINFO Line 765  ENDFORMINFO
                 'cnu'            => 'Create New User',                  'cnu'            => 'Create New User',
                 'ind'            => 'in domain',                  'ind'            => 'in domain',
                 'lg'             => 'Login Data',                  'lg'             => 'Login Data',
                   'hs'             => "Home Server",
         );          );
  $r->print(<<ENDTITLE);   $r->print(<<ENDTITLE);
 $start_page  $start_page
Line 769  $forminfo Line 776  $forminfo
 $loginscript  $loginscript
 </script>  </script>
 <input type='hidden' name='makeuser' value='1' />  <input type='hidden' name='makeuser' value='1' />
 <h3>$lt{'cnu'} "$ccuname" $lt{'ind'} $ccdomain</h3>  <h2>$lt{'cnu'} "$ccuname" $lt{'ind'} $ccdomain</h2>
 ENDTITLE  ENDTITLE
         $r->print('<div class="LC_left_float">'.          $r->print('<div class="LC_left_float">'.
                   &personal_data_display($ccuname,$ccdomain,$newuser,                    &personal_data_display($ccuname,$ccdomain,$newuser,
Line 785  $lt{'hs'}: $home_server_pick Line 792  $lt{'hs'}: $home_server_pick
         } else {          } else {
             $r->print($home_server_pick);              $r->print($home_server_pick);
         }          }
           if ($context eq 'domain') {
               $r->print(&Apache::lonuserutils::forceid_change());
           }
         $r->print('</div>'."\n".'<div class="LC_left_float"><h3>'.          $r->print('</div>'."\n".'<div class="LC_left_float"><h3>'.
                   $lt{'lg'}.'</h3>');                    $lt{'lg'}.'</h3>');
         my ($fixedauth,$varauth,$authmsg);           my ($fixedauth,$varauth,$authmsg); 
         if ($rulematch) {          if (ref($rulematch{$ccuname.':'.$ccdomain}) eq 'HASH') {
               my $matchedrule = $rulematch{$ccuname.':'.$ccdomain}{'username'};
               my ($rules,$ruleorder) = 
                   &Apache::lonnet::inst_userrules($ccdomain,'username');
             if (ref($rules) eq 'HASH') {              if (ref($rules) eq 'HASH') {
                 if (ref($rules->{$rulematch}) eq 'HASH') {                  if (ref($rules->{$matchedrule}) eq 'HASH') {
                     my $authtype = $rules->{$rulematch}{'authtype'};                      my $authtype = $rules->{$matchedrule}{'authtype'};
                     if ($authtype !~ /^(krb4|krb5|int|fsys|loc)$/) {                      if ($authtype !~ /^(krb4|krb5|int|fsys|loc)$/) {
                         $r->print(&set_login($ccdomain));                          $r->print(&Apache::lonuserutils::set_login($ccdomain,$authformkrb,$authformint,$authformloc));
                     } else {                       } else { 
                         my $authparm = $rules->{$rulematch}{'authparm'};                          my $authparm = $rules->{$matchedrule}{'authparm'};
                         if ($authtype =~ /^krb(4|5)$/) {                          if ($authtype =~ /^krb(4|5)$/) {
                             my $ver = $1;                              my $ver = $1;
                             if ($authparm ne '') {                              if ($authparm ne '') {
Line 804  $lt{'hs'}: $home_server_pick Line 817  $lt{'hs'}: $home_server_pick
 <input type="hidden" name="krbver" value="$ver" />  <input type="hidden" name="krbver" value="$ver" />
 <input type="hidden" name="krbarg" value="$authparm" />  <input type="hidden" name="krbarg" value="$authparm" />
 KERB  KERB
                                 $authmsg = $rules->{$rulematch}{'authmsg'};                                      $authmsg = $rules->{$matchedrule}{'authmsg'};    
                             }                              }
                         } else {                          } else {
                             $fixedauth =                               $fixedauth = 
 '<input type="hidden" name="login" value="'.$authtype.'" />'."\n";  '<input type="hidden" name="login" value="'.$authtype.'" />'."\n";
                             if ($rules->{$rulematch}{'authparmfixed'}) {                              if ($rules->{$matchedrule}{'authparmfixed'}) {
                                 $fixedauth .=                                      $fixedauth .=    
 '<input type="hidden" name="'.$authtype.'arg" value="'.$authparm.'" />'."\n";  '<input type="hidden" name="'.$authtype.'arg" value="'.$authparm.'" />'."\n";
                             } else {                              } else {
Line 819  KERB Line 832  KERB
                         }                          }
                     }                      }
                 } else {                  } else {
                     $r->print(&set_login($ccdomain));                      $r->print(&Apache::lonuserutils::set_login($ccdomain,$authformkrb,$authformint,$authformloc));
                 }                  }
             }              }
             if ($authmsg) {              if ($authmsg) {
Line 830  $varauth Line 843  $varauth
 ENDAUTH  ENDAUTH
             }              }
         } else {          } else {
             $r->print(&set_login($ccdomain));               $r->print(&Apache::lonuserutils::set_login($ccdomain,$authformkrb,$authformint,$authformloc)); 
         }          }
         $r->print(<<ENDPORT);          $r->print(<<ENDPORT);
         $portfolioform          $portfolioform
Line 838  ENDAUTH Line 851  ENDAUTH
 ENDPORT  ENDPORT
     } else { # user already exists      } else { # user already exists
  my %lt=&Apache::lonlocal::texthash(   my %lt=&Apache::lonlocal::texthash(
                     'cup'  => "Existing user ",                      'cup'  => "Modify existing user: ",
                     'id'   => "in domain",                      'id'   => "in domain",
        );         );
  $r->print(<<ENDCHANGEUSER);   $r->print(<<ENDCHANGEUSER);
 $start_page  $start_page
 $crumbs  $crumbs
 $forminfo  $forminfo
 <h3>$lt{'cup'} "$ccuname" $lt{'id'} "$ccdomain"</h3>  <h2>$lt{'cup'} "$ccuname" $lt{'id'} "$ccdomain"</h2>
 ENDCHANGEUSER  ENDCHANGEUSER
         $r->print('<div class="LC_left_float">'.          $r->print('<div class="LC_left_float">'.
                   &personal_data_display($ccuname,$ccdomain,$newuser,                    &personal_data_display($ccuname,$ccdomain,$newuser,
Line 889  ENDNOPORTPRIV Line 902  ENDNOPORTPRIV
         unless ($tmp =~ /^(con_lost|error)/i) {          unless ($tmp =~ /^(con_lost|error)/i) {
            my $now=time;             my $now=time;
    my %lt=&Apache::lonlocal::texthash(     my %lt=&Apache::lonlocal::texthash(
     'rer'  => "Revoke Existing Roles",      'rer'  => "Existing Roles",
                     'rev'  => "Revoke",                                          'rev'  => "Revoke",                    
                     'del'  => "Delete",                      'del'  => "Delete",
     'ren'  => "Re-Enable",      'ren'  => "Re-Enable",
Line 1129  ENDNOPORTPRIV Line 1142  ENDNOPORTPRIV
 "javascript:pjump('."'date_end','End Date Assistant Co-Author',document.cu.end_$cudom\_$cuname\_aa.value,'end_$cudom\_$cuname\_aa','cu.pres','dateset'".')">'.$lt{'sed'}.'</a></td>'."\n".  "javascript:pjump('."'date_end','End Date Assistant Co-Author',document.cu.end_$cudom\_$cuname\_aa.value,'end_$cudom\_$cuname\_aa','cu.pres','dateset'".')">'.$lt{'sed'}.'</a></td>'."\n".
          &Apache::loncommon::end_data_table_row()."\n".           &Apache::loncommon::end_data_table_row()."\n".
          &Apache::loncommon::end_data_table());           &Apache::loncommon::end_data_table());
     } elsif (!(&authorpriv($env{'user.name'},$env{'request.role.domain'}))) {      } elsif ($env{'request.role'} =~ /^au\./) {
         $r->print('<span class="LC_error">'.          if (!(&authorpriv($env{'user.name'},$env{'request.role.domain'}))) {
                   &mt('You do not have privileges to assign co-author roles.').              $r->print('<span class="LC_error">'.
                   '</span>');                             &mt('You do not have privileges to assign co-author roles.').
     } elsif (($env{'user.name'} eq $ccuname) &&                         '</span>');
           } elsif (($env{'user.name'} eq $ccuname) && 
              ($env{'user.domain'} eq $ccdomain)) {               ($env{'user.domain'} eq $ccdomain)) {
        $r->print(&mt('Assigning yourself a co-author or assistant co-author role in your own author area in Construction Space is not permitted'));               $r->print(&mt('Assigning yourself a co-author or assistant co-author role in your own author area in Construction Space is not permitted'));
           }
     }      }
 #  #
 # Domain level  # Domain level
Line 1236  sub user_authentication { Line 1251  sub user_authentication {
         );          );
         if (&Apache::lonnet::allowed('mau',$ccdomain)) {          if (&Apache::lonnet::allowed('mau',$ccdomain)) {
             &initialize_authen_forms($ccdomain);              &initialize_authen_forms($ccdomain);
             my $choices = &set_login($ccdomain);              my $choices = &Apache::lonuserutils::set_login($ccdomain,$authformkrb,$authformint,$authformloc);
             $outcome = <<ENDBADAUTH;              $outcome = <<ENDBADAUTH;
 <script type="text/javascript" language="Javascript">  <script type="text/javascript" language="Javascript">
 $loginscript  $loginscript
Line 1256  $lt{'uuas'} ($currentauth). $lt{'adcs'}. Line 1271  $lt{'uuas'} ($currentauth). $lt{'adcs'}.
 ENDBADAUTH  ENDBADAUTH
         }          }
     } else { # Authentication type is valid      } else { # Authentication type is valid
         my $authformcurrent='';  
         my $authform_other='';  
         &initialize_authen_forms($ccdomain,$currentauth);          &initialize_authen_forms($ccdomain,$currentauth);
         my ($authformcurrent,$authform_other,$can_modify) =          my ($authformcurrent,$authform_other,$can_modify) =
             &modify_login_block($ccdomain,$currentauth);              &modify_login_block($ccdomain,$currentauth);
Line 1307  ENDNOPRIV Line 1320  ENDNOPRIV
     return $outcome;      return $outcome;
 }  }
   
 sub set_login {  
     my ($dom) = @_;  
     my %domconfig = &Apache::lonnet::get_dom('configuration',['usercreation'],$dom);  
     my $response;  
     my ($authnum,%can_assign) =   
         &Apache::loncommon::get_assignable_auth($dom);  
     if ($authnum) {  
         $response = &Apache::loncommon::start_data_table();  
         if (($can_assign{'krb4'}) || ($can_assign{'krb5'})) {  
             $response .= &Apache::loncommon::start_data_table_row().  
                          '<td>'.$authformkrb.'</td>'.  
                          &Apache::loncommon::end_data_table_row()."\n";  
         }  
         if ($can_assign{'int'}) {  
             $response .= &Apache::loncommon::start_data_table_row().  
                          '<td>'.$authformint.'</td>'.  
                          &Apache::loncommon::end_data_table_row()."\n"  
         }  
         if ($can_assign{'loc'}) {  
             $response .= &Apache::loncommon::start_data_table_row().  
                          '<td>'.$authformloc.'</td>'.  
                          &Apache::loncommon::end_data_table_row()."\n";  
         }  
         $response .= &Apache::loncommon::end_data_table();  
     }  
     return $response;  
 }  
   
 sub modify_login_block {  sub modify_login_block {
     my ($dom,$currentauth) = @_;      my ($dom,$currentauth) = @_;
     my %domconfig = &Apache::lonnet::get_dom('configuration',['usercreation'],$dom);      my %domconfig = &Apache::lonnet::get_dom('configuration',['usercreation'],$dom);
Line 1432  sub personal_data_display { Line 1417  sub personal_data_display {
                 'generation'     => "Generation",                  'generation'     => "Generation",
                 'permanentemail' => "Permanent e-mail address",                  'permanentemail' => "Permanent e-mail address",
                 'id'             => "ID/Student Number",                  'id'             => "ID/Student Number",
                 'hs'             => "Home Server",  
                 'lg'             => "Login Data"                  'lg'             => "Login Data"
     );      );
     my @userinfo = ('firstname','middlename','lastname','generation',      my @userinfo = ('firstname','middlename','lastname','generation',
Line 1480  sub update_user_data { Line 1464  sub update_user_data {
                                           $env{'form.ccdomain'});                                            $env{'form.ccdomain'});
     # Error messages      # Error messages
     my $error     = '<span class="LC_error">'.&mt('Error').': ';      my $error     = '<span class="LC_error">'.&mt('Error').': ';
     my $end       = '</span><br /><br />'.      my $end       = '</span><br /><br />';
                     '<a href="javascript:backPage(document.userupdate,'.      my $rtnlink   = '<a href="javascript:backPage(document.userupdate,'.
                     "'$env{'form.prevphase'}','modify')".'" />'.                      "'$env{'form.prevphase'}','modify')".'" />'.
                     &mt('Return to previous page').'</a>'.&Apache::loncommon::end_page();                      &mt('Return to previous page').'</a>'.&Apache::loncommon::end_page();
     my $title;      my $title;
Line 1498  sub update_user_data { Line 1482  sub update_user_data {
     $r->print(&Apache::loncommon::start_page($title,$jscript));      $r->print(&Apache::loncommon::start_page($title,$jscript));
     &Apache::lonhtmlcommon::add_breadcrumb      &Apache::lonhtmlcommon::add_breadcrumb
        ({href=>"javascript:backPage(document.userupdate)",         ({href=>"javascript:backPage(document.userupdate)",
          text=>"User modify/custom role edit",           text=>"Create/modify user",
          faq=>282,bug=>'Instructor Interface',});           faq=>282,bug=>'Instructor Interface',});
     if ($env{'form.prevphase'} eq 'userpicked') {      if ($env{'form.prevphase'} eq 'userpicked') {
         &Apache::lonhtmlcommon::add_breadcrumb          &Apache::lonhtmlcommon::add_breadcrumb
Line 1519  sub update_user_data { Line 1503  sub update_user_data {
     $r->print(&update_result_form($uhome));      $r->print(&update_result_form($uhome));
     # Check Inputs      # Check Inputs
     if (! $env{'form.ccuname'} ) {      if (! $env{'form.ccuname'} ) {
  $r->print($error.&mt('No login name specified').'.'.$end);   $r->print($error.&mt('No login name specified').'.'.$end.$rtnlink);
  return;   return;
     }      }
     if (  $env{'form.ccuname'} ne       if (  $env{'form.ccuname'} ne 
   &LONCAPA::clean_username($env{'form.ccuname'}) ) {    &LONCAPA::clean_username($env{'form.ccuname'}) ) {
  $r->print($error.&mt('Invalid login name').'.  '.   $r->print($error.&mt('Invalid login name').'.  '.
   &mt('Only letters, numbers, periods, dashes, @, and underscores are valid').'.'.    &mt('Only letters, numbers, periods, dashes, @, and underscores are valid').'.'.
   $end);    $end.$rtnlink);
  return;   return;
     }      }
     if (! $env{'form.ccdomain'}       ) {      if (! $env{'form.ccdomain'}       ) {
  $r->print($error.&mt('No domain specified').'.'.$end);   $r->print($error.&mt('No domain specified').'.'.$end.$rtnlink);
  return;   return;
     }      }
     if (  $env{'form.ccdomain'} ne      if (  $env{'form.ccdomain'} ne
   &LONCAPA::clean_domain($env{'form.ccdomain'}) ) {    &LONCAPA::clean_domain($env{'form.ccdomain'}) ) {
  $r->print($error.&mt ('Invalid domain name').'.  '.   $r->print($error.&mt ('Invalid domain name').'.  '.
   &mt('Only letters, numbers, periods, dashes, and underscores are valid').'.'.    &mt('Only letters, numbers, periods, dashes, and underscores are valid').'.'.
   $end);    $end.$rtnlink);
  return;   return;
     }      }
     if (! exists($env{'form.makeuser'})) {      if (! exists($env{'form.makeuser'})) {
Line 1573  sub update_user_data { Line 1557  sub update_user_data {
         # If they are creating a new user but have not specified login          # If they are creating a new user but have not specified login
         # information this will be caught below.          # information this will be caught below.
     } else {      } else {
     $r->print($error.&mt('Invalid login mode or password').$end);          $r->print($error.&mt('Invalid login mode or password').$end.$rtnlink);    
     return;      return;
     }      }
   
   
     $r->print('<h3>'.&mt('User [_1] in domain [_2]',      $r->print('<h3>'.&mt('User [_1] in domain [_2]',
  $env{'form.ccuname'}, $env{'form.ccdomain'}).'</h3>');   $env{'form.ccuname'}, $env{'form.ccdomain'}).'</h3>');
       my (%alerts,%rulematch,%inst_results,%curr_rules);
     if ($env{'form.makeuser'}) {      if ($env{'form.makeuser'}) {
  $r->print('<h3>'.&mt('Creating new account.').'</h3>');   $r->print('<h3>'.&mt('Creating new account.').'</h3>');
         # Check for the authentication mode and password          # Check for the authentication mode and password
         if (! $amode || ! $genpwd) {          if (! $amode || ! $genpwd) {
     $r->print($error.&mt('Invalid login mode or password').$end);          $r->print($error.&mt('Invalid login mode or password').$end.$rtnlink);    
     return;      return;
  }   }
         # Determine desired host          # Determine desired host
Line 1596  sub update_user_data { Line 1580  sub update_user_data {
             my %home_servers =               my %home_servers = 
  &Apache::lonnet::get_servers($env{'form.ccdomain'},'library');   &Apache::lonnet::get_servers($env{'form.ccdomain'},'library');
             if (! exists($home_servers{$desiredhost})) {              if (! exists($home_servers{$desiredhost})) {
                 $r->print($error.&mt('Invalid home server specified'));                  $r->print($error.&mt('Invalid home server specified').$end.$rtnlink);
                 return;                  return;
             }              }
         }          }
           # Check ID format
           my %checkhash;
           my %checks = ('id' => 1);
           %{$checkhash{$env{'form.ccuname'}.':'.$env{'form.ccdomain'}}} = (
               'newuser' => 1, 
               'id' => $env{'form.cid'},
           );
           if ($env{'form.cid'} ne '') {
               &Apache::loncommon::user_rule_check(\%checkhash,\%checks,\%alerts,
                                             \%rulematch,\%inst_results,\%curr_rules);
               if (ref($alerts{'id'}) eq 'HASH') {
                   if (ref($alerts{'id'}{$env{'form.ccdomain'}}) eq 'HASH') {
                       my $domdesc =
                           &Apache::lonnet::domain($env{'form.ccdomain'},'description');
                       if ($alerts{'id'}{$env{'form.ccdomain'}}{$env{'form.cid'}}) {
                           my $userchkmsg;
                           if (ref($curr_rules{$env{'form.ccdomain'}}) eq 'HASH') {
                               $userchkmsg  = 
                                   &Apache::loncommon::instrule_disallow_msg('id',
                                                                       $domdesc,1).
                                   &Apache::loncommon::user_rule_formats($env{'form.ccdomain'},
                                       $domdesc,$curr_rules{$env{'form.ccdomain'}}{'id'},'id');
                           }
                           $r->print($error.&mt('Invalid ID format').$end.
                                     $userchkmsg.$rtnlink);
                           return;
                       }
                   }
               }
           }
  # Call modifyuser   # Call modifyuser
  my $result = &Apache::lonnet::modifyuser   my $result = &Apache::lonnet::modifyuser
     ($env{'form.ccdomain'},$env{'form.ccuname'},$env{'form.cstid'},      ($env{'form.ccdomain'},$env{'form.ccuname'},$env{'form.cid'},
              $amode,$genpwd,$env{'form.cfirstname'},               $amode,$genpwd,$env{'form.cfirstname'},
              $env{'form.cmiddlename'},$env{'form.clastname'},               $env{'form.cmiddlename'},$env{'form.clastname'},
              $env{'form.cgeneration'},undef,$desiredhost,               $env{'form.cgeneration'},undef,$desiredhost,
Line 1616  sub update_user_data { Line 1630  sub update_user_data {
              ($env{'form.login'} ne ''        )) {               ($env{'form.login'} ne ''        )) {
  # Modify user privileges   # Modify user privileges
         if (! $amode || ! $genpwd) {          if (! $amode || ! $genpwd) {
     $r->print($error.'Invalid login mode or password'.$end);          $r->print($error.'Invalid login mode or password'.$end.$rtnlink);    
     return;      return;
  }   }
  # Only allow authentification modification if the person has authority   # Only allow authentification modification if the person has authority
Line 1629  sub update_user_data { Line 1643  sub update_user_data {
   ($env{'form.ccuname'},$env{'form.ccdomain'}));    ($env{'form.ccuname'},$env{'form.ccdomain'}));
  } else {   } else {
     # Okay, this is a non-fatal error.      # Okay, this is a non-fatal error.
     $r->print($error.&mt('You do not have the authority to modify this users authentification information').'.');          $r->print($error.&mt('You do not have the authority to modify this users authentification information').'.'.$end);    
  }   }
     }      }
     ##      ##
Line 1637  sub update_user_data { Line 1651  sub update_user_data {
         # Check for need to change          # Check for need to change
         my %userenv = &Apache::lonnet::get          my %userenv = &Apache::lonnet::get
             ('environment',['firstname','middlename','lastname','generation',              ('environment',['firstname','middlename','lastname','generation',
              'permanentemail','portfolioquota','inststatus'],               'id','permanentemail','portfolioquota','inststatus'],
               $env{'form.ccdomain'},$env{'form.ccuname'});                $env{'form.ccdomain'},$env{'form.ccuname'});
         my ($tmp) = keys(%userenv);          my ($tmp) = keys(%userenv);
         if ($tmp =~ /^(con_lost|error)/i) {           if ($tmp =~ /^(con_lost|error)/i) { 
             %userenv = ();              %userenv = ();
         }          }
         # Check to see if we need to change user information          # Check to see if we need to change user information
         foreach my $item ('firstname','middlename','lastname','generation','permanentemail') {          foreach my $item ('firstname','middlename','lastname','generation','permanentemail','id') {
             # Strip leading and trailing whitespace              # Strip leading and trailing whitespace
             $env{'form.c'.$item} =~ s/(\s+$|^\s+)//g;               $env{'form.c'.$item} =~ s/(\s+$|^\s+)//g; 
         }          }
           # Check to see if we can change the ID/student number
           my $forceid = $env{'form.forceid'};
           my $recurseid = $env{'form.recurseid'};
           my $newuser = 0;
           my $disallowed_id = 0;
           my (%alerts,%rulematch,%idinst_results,%curr_rules,%got_rules);
           if (!$forceid) {
               $env{'form.cid'} = $userenv{'id'};
           } elsif ($env{'form.cid'} ne $userenv{'id'}) {
               my $checkhash;
               my $checks = { 'id' => 1 };
               $checkhash->{$env{'form.ccuname'}.':'.$env{'form.ccdomain'}} = 
                      { 'newuser' => $newuser,
                        'id'  => $env{'form.cid'}, 
                      };
               &Apache::loncommon::user_rule_check($checkhash,$checks,
                   \%alerts,\%rulematch,\%idinst_results,\%curr_rules,\%got_rules);
               if (ref($alerts{'id'}) eq 'HASH') {
                   if (ref($alerts{'id'}{$env{'form.ccdomain'}}) eq 'HASH') {
                      $disallowed_id = 1;
                   }
               }
           }
         my ($quotachanged,$namechanged,$oldportfolioquota,$newportfolioquota,          my ($quotachanged,$namechanged,$oldportfolioquota,$newportfolioquota,
             $inststatus,$isdefault,$defquotatext);              $inststatus,$isdefault,$defquotatext);
         my ($defquota,$settingstatus) =           my ($defquota,$settingstatus) = 
Line 1703  sub update_user_data { Line 1740  sub update_user_data {
              $env{'form.cmiddlename'} ne $userenv{'middlename'} ||               $env{'form.cmiddlename'} ne $userenv{'middlename'} ||
              $env{'form.clastname'}   ne $userenv{'lastname'}   ||               $env{'form.clastname'}   ne $userenv{'lastname'}   ||
              $env{'form.cgeneration'} ne $userenv{'generation'} ||               $env{'form.cgeneration'} ne $userenv{'generation'} ||
                $env{'form.cid'} ne $userenv{'id'}                 ||
              $env{'form.cpermanentemail'} ne $userenv{'permanentemail'} )) {               $env{'form.cpermanentemail'} ne $userenv{'permanentemail'} )) {
             $namechanged = 1;              $namechanged = 1;
         }          }
Line 1712  sub update_user_data { Line 1750  sub update_user_data {
             $changeHash{'middlename'} = $env{'form.cmiddlename'};              $changeHash{'middlename'} = $env{'form.cmiddlename'};
             $changeHash{'lastname'}   = $env{'form.clastname'};              $changeHash{'lastname'}   = $env{'form.clastname'};
             $changeHash{'generation'} = $env{'form.cgeneration'};              $changeHash{'generation'} = $env{'form.cgeneration'};
               $changeHash{'id'}         = $env{'form.cid'};
             $changeHash{'permanentemail'} = $env{'form.cpermanentemail'};              $changeHash{'permanentemail'} = $env{'form.cpermanentemail'};
             my $putresult = &Apache::lonnet::put              my $putresult = &Apache::lonnet::put
                 ('environment',\%changeHash,                  ('environment',\%changeHash,
Line 1724  sub update_user_data { Line 1763  sub update_user_data {
                              'mddl' => "middle",                               'mddl' => "middle",
                              'lst'  => "last",                               'lst'  => "last",
      'gen'  => "generation",       'gen'  => "generation",
                                'id'   => "ID/Student number",
                              'mail' => "permanent e-mail",                               'mail' => "permanent e-mail",
                              'disk' => "disk space allocated to portfolio files",                               'disk' => "disk space allocated to portfolio files",
                              'prvs' => "Previous",                               'prvs' => "Previous",
Line 1737  sub update_user_data { Line 1777  sub update_user_data {
     <th>$lt{'mddl'}</th>      <th>$lt{'mddl'}</th>
     <th>$lt{'lst'}</th>      <th>$lt{'lst'}</th>
     <th>$lt{'gen'}</th>      <th>$lt{'gen'}</th>
       <th>$lt{'id'}</th>
     <th>$lt{'mail'}</th>      <th>$lt{'mail'}</th>
     <th>$lt{'disk'}</th></tr>      <th>$lt{'disk'}</th></tr>
 <tr><td>$lt{'prvs'}</td>  <tr><td>$lt{'prvs'}</td>
Line 1744  sub update_user_data { Line 1785  sub update_user_data {
     <td>$userenv{'middlename'} </td>      <td>$userenv{'middlename'} </td>
     <td>$userenv{'lastname'}   </td>      <td>$userenv{'lastname'}   </td>
     <td>$userenv{'generation'} </td>      <td>$userenv{'generation'} </td>
       <td>$userenv{'id'}</td>
     <td>$userenv{'permanentemail'} </td>      <td>$userenv{'permanentemail'} </td>
     <td>$oldportfolioquota Mb</td>      <td>$oldportfolioquota Mb</td>
 </tr>  </tr>
Line 1752  sub update_user_data { Line 1794  sub update_user_data {
     <td>$env{'form.cmiddlename'} </td>      <td>$env{'form.cmiddlename'} </td>
     <td>$env{'form.clastname'}   </td>      <td>$env{'form.clastname'}   </td>
     <td>$env{'form.cgeneration'} </td>      <td>$env{'form.cgeneration'} </td>
       <td>$env{'form.cid'} </td>
     <td>$env{'form.cpermanentemail'} </td>      <td>$env{'form.cpermanentemail'} </td>
     <td>$newportfolioquota Mb $defquotatext </td></tr>      <td>$newportfolioquota Mb $defquotatext </td></tr>
 </table>  </table>
 END  END
                   if (($forceid) && ($recurseid) && (!$disallowed_id) &&
                       (&Apache::lonnet::allowed('mau',$env{'form.ccdomain'}))) {
                       my %userupdate = (
                                     lastname   => $env{'form.clasaname'},
                                     middlename => $env{'form.cmiddlename'},
                                     firstname  => $env{'form.cfirstname'},
                                     generation => $env{'fora.cgeneration'},
                                     id         => $env{'form.cid'},
                                );
                       my $idresult = &propagate_id_change($env{'form.ccname'},
                                       $env{'form.ccdomain'},\%userupdate);
                       $r->print('<br />'.$idresult.'<br />');
                   }
                 if (($env{'form.ccdomain'} eq $env{'user.domain'}) &&                   if (($env{'form.ccdomain'} eq $env{'user.domain'}) && 
                     ($env{'form.ccuname'} eq $env{'user.name'})) {                      ($env{'form.ccuname'} eq $env{'user.name'})) {
                     my %newenvhash;                      my %newenvhash;
Line 1779  END Line 1835  END
             # They did not want to change the users name but we can              # They did not want to change the users name but we can
             # still tell them what the name is              # still tell them what the name is
     my %lt=&Apache::lonlocal::texthash(      my %lt=&Apache::lonlocal::texthash(
                              'id'   => "ID/Student number",
                            'mail' => "Permanent e-mail",                             'mail' => "Permanent e-mail",
                            'disk' => "Disk space allocated to user's portfolio files",                             'disk' => "Disk space allocated to user's portfolio files",
        );         );
             $r->print(<<"END");              $r->print(<<"END");
 <h4>$userenv{'firstname'} $userenv{'middlename'} $userenv{'lastname'} $userenv{'generation'}&nbsp;&nbsp;($lt{'mail'}: $userenv{'permanentemail'})</h4>  <h4>$userenv{'firstname'} $userenv{'middlename'} $userenv{'lastname'} $userenv{'generation'}
 END  END
               if ($userenv{'permanentemail'} eq '') {
                   $r->print('</h4>');
               } else {
                   $r->print('&nbsp;&nbsp;('.$lt{'mail'}.': '.
                             $userenv{'permanentemail'}.')</h4>');
               }
             if ($putresult eq 'ok') {              if ($putresult eq 'ok') {
                 if ($oldportfolioquota != $newportfolioquota) {                  if ($oldportfolioquota != $newportfolioquota) {
                     $r->print('<h4>'.$lt{'disk'}.': '.$newportfolioquota.' Mb '.                       $r->print('<h4>'.$lt{'disk'}.': '.$newportfolioquota.' Mb '. 
Line 1796  END Line 1859  END
     }      }
     ##      ##
     my $now=time;      my $now=time;
       my $rolechanges = 0;
     $r->print('<h3>'.&mt('Modifying Roles').'</h3>');      $r->print('<h3>'.&mt('Modifying Roles').'</h3>');
     foreach my $key (keys (%env)) {      foreach my $key (keys (%env)) {
  next if (! $env{$key});   next if (! $env{$key});
           next if ($key eq 'form.action');
  # Revoke roles   # Revoke roles
  if ($key=~/^form\.rev/) {   if ($key=~/^form\.rev/) {
     if ($key=~/^form\.rev\:([^\_]+)\_([^\_\.]+)$/) {      if ($key=~/^form\.rev\:([^\_]+)\_([^\_\.]+)$/) {
Line 1815  END Line 1880  END
  $env{'form.ccdomain'},$now);   $env{'form.ccdomain'},$now);
     $r->print($result);      $r->print($result);
  }   }
     }       }
     if ($key=~m{^form\.rev\:([^_]+)_cr\.cr/($match_domain)/($match_username)/(\w+)$ }s) {      if ($key=~m{^form\.rev\:([^_]+)_cr\.cr/($match_domain)/($match_username)/(\w+)$}s) {
 # Revoke custom role  # Revoke custom role
  $r->print(&mt('Revoking custom role:').   $r->print(&mt('Revoking custom role:').
                       ' '.$4.' by '.$3.':'.$2.' in '.$1.': <b>'.                        ' '.$4.' by '.$3.':'.$2.' in '.$1.': <b>'.
Line 1824  END Line 1889  END
   $env{'form.ccuname'},$1,$2,$3,$4).    $env{'form.ccuname'},$1,$2,$3,$4).
  '</b><br />');   '</b><br />');
     }      }
               $rolechanges ++;
  } elsif ($key=~/^form\.del/) {   } elsif ($key=~/^form\.del/) {
     if ($key=~/^form\.del\:([^\_]+)\_([^\_\.]+)$/) {      if ($key=~/^form\.del\:([^\_]+)\_([^\_\.]+)$/) {
 # Delete standard role  # Delete standard role
Line 1849  END Line 1915  END
                          $env{'form.ccuname'},$url,$rdom,$rnam,$rolename,$now,                           $env{'form.ccuname'},$url,$rdom,$rnam,$rolename,$now,
                          0,1).'</b><br />');                           0,1).'</b><br />');
             }              }
               $rolechanges ++;
  } elsif ($key=~/^form\.ren/) {   } elsif ($key=~/^form\.ren/) {
             my $udom = $env{'form.ccdomain'};              my $udom = $env{'form.ccdomain'};
             my $uname = $env{'form.ccuname'};              my $uname = $env{'form.ccuname'};
Line 1887  END Line 1954  END
                 $r->print(&mt('Re-enabling custom role [_1] by [_2]@[_3] in [_4] : <b>[_5]</b>',                  $r->print(&mt('Re-enabling custom role [_1] by [_2]@[_3] in [_4] : <b>[_5]</b>',
                           $rolename,$rnam,$rdom,$url,$result).'<br />');                            $rolename,$rnam,$rdom,$url,$result).'<br />');
             }              }
               $rolechanges ++;
  } elsif ($key=~/^form\.act/) {   } elsif ($key=~/^form\.act/) {
             my $udom = $env{'form.ccdomain'};              my $udom = $env{'form.ccdomain'};
             my $uname = $env{'form.ccuname'};              my $uname = $env{'form.ccuname'};
Line 1990  END Line 2058  END
                     }                      }
                 }                  }
     } else {      } else {
  $r->print('<p>'.&mt('ERROR').': '.&mt('Unknown command').' <tt>'.$key.'</tt></p><br />');   $r->print('<p><span class="LC_error">'.&mt('ERROR').': '.&mt('Unknown command').' <tt>'.$key.'</tt></span></p><br />');
             }              }
             foreach my $key (sort(keys(%disallowed))) {              foreach my $key (sort(keys(%disallowed))) {
                 if (($key eq 'none') || ($key eq 'all')) {                    if (($key eq 'none') || ($key eq 'all')) {  
Line 2000  END Line 2068  END
                 }                  }
                 $r->print(' '.&mt('Please <a href="javascript:history.go(-1)">go back</a> and choose a different section name.').'</p><br />');                  $r->print(' '.&mt('Please <a href="javascript:history.go(-1)">go back</a> and choose a different section name.').'</p><br />');
             }              }
               $rolechanges ++;
  }   }
     } # End of foreach (keys(%env))      } # End of foreach (keys(%env))
 # Flush the course logs so reverse user roles immediately updated  # Flush the course logs so reverse user roles immediately updated
     &Apache::lonnet::flushcourselogs();      &Apache::lonnet::flushcourselogs();
       if (!$rolechanges) {
           $r->print(&mt('No roles to modify'));
       }
     $r->print(&Apache::loncommon::end_page());      $r->print(&Apache::loncommon::end_page());
 }  }
   
Line 2024  sub update_result_form { Line 2096  sub update_result_form {
     }      }
     $outcome .= '<input type="hidden" name="phase" value="" />'."\n".      $outcome .= '<input type="hidden" name="phase" value="" />'."\n".
                 '<input type ="hidden" name="currstate" value="" />'."\n".                  '<input type ="hidden" name="currstate" value="" />'."\n".
                   '<input type ="hidden" name="action" value="singleuser" />'."\n".
                 '</form>';                  '</form>';
     return $outcome;      return $outcome;
 }  }
Line 2108  sub custom_role_editor { Line 2181  sub custom_role_editor {
   
     $rolename=~s/[^A-Za-z0-9]//gs;      $rolename=~s/[^A-Za-z0-9]//gs;
   
     if (!$rolename) {      if (!$rolename || $env{'form.phase'} eq 'pickrole') {
  &print_username_entry_form($r);   &print_username_entry_form($r);
         return;          return;
     }      }
Line 2177  sub custom_role_editor { Line 2250  sub custom_role_editor {
     $head_script .= "\n".$jsback."\n".'</script>'."\n";      $head_script .= "\n".$jsback."\n".'</script>'."\n";
     $r->print(&Apache::loncommon::start_page('Custom Role Editor',$head_script));      $r->print(&Apache::loncommon::start_page('Custom Role Editor',$head_script));
    &Apache::lonhtmlcommon::add_breadcrumb     &Apache::lonhtmlcommon::add_breadcrumb
      ({href=>"javascript:backPage(document.form1,'','')",       ({href=>"javascript:backPage(document.form1,'pickrole','')",
        text=>"User modify/custom role edit",         text=>"Pick custom role",
        faq=>282,bug=>'Instructor Interface',},         faq=>282,bug=>'Instructor Interface',},
       {href=>"javascript:backPage(document.form1,'','')",        {href=>"javascript:backPage(document.form1,'','')",
          text=>"Edit custom role",           text=>"Edit custom role",
Line 2221  ENDCCF Line 2294  ENDCCF
              &Apache::loncommon::end_data_table_row());               &Apache::loncommon::end_data_table_row());
     }      }
     $r->print(&Apache::loncommon::end_data_table().      $r->print(&Apache::loncommon::end_data_table().
      '<input type="hidden" name="action" value="'.$env{'form.action'}.'" />'.
    '<input type="hidden" name="startrolename" value="'.$env{'form.rolename'}.     '<input type="hidden" name="startrolename" value="'.$env{'form.rolename'}.
    '" />'."\n".'<input type="hidden" name="currstate" value="" />'."\n".        '" />'."\n".'<input type="hidden" name="currstate" value="" />'."\n".   
    '<input type="reset" value="'.&mt("Reset").'" />'."\n".     '<input type="reset" value="'.&mt("Reset").'" />'."\n".
Line 2302  sub make_button_code { Line 2376  sub make_button_code {
 # ---------------------------------------------------------- Call to definerole  # ---------------------------------------------------------- Call to definerole
 sub set_custom_role {  sub set_custom_role {
     my ($r) = @_;      my ($r) = @_;
   
     my $rolename=$env{'form.rolename'};      my $rolename=$env{'form.rolename'};
   
     $rolename=~s/[^A-Za-z0-9]//gs;      $rolename=~s/[^A-Za-z0-9]//gs;
   
     if (!$rolename) {      if (!$rolename) {
  &print_username_entry_form($r);   &custom_role_editor($r);
         return;          return;
     }      }
   
     my ($jsback,$elements) = &crumb_utilities();      my ($jsback,$elements) = &crumb_utilities();
     my $jscript = '<script type="text/javascript">'.$jsback."\n".'</script>';      my $jscript = '<script type="text/javascript">'.$jsback."\n".'</script>';
   
     $r->print(&Apache::loncommon::start_page('Save Custom Role'),$jscript);      $r->print(&Apache::loncommon::start_page('Save Custom Role'),$jscript);
     &Apache::lonhtmlcommon::add_breadcrumb      &Apache::lonhtmlcommon::add_breadcrumb
         ({href=>"javascript:backPage(document.customresult,'','')",          ({href=>"javascript:backPage(document.customresult,'pickrole','')",
           text=>"User modify/custom role edit",            text=>"Pick custom role",
           faq=>282,bug=>'Instructor Interface',},            faq=>282,bug=>'Instructor Interface',},
          {href=>"javascript:backPage(document.customresult,'selected_custom_edit','')",           {href=>"javascript:backPage(document.customresult,'selected_custom_edit','')",
           text=>"Edit custom role",            text=>"Edit custom role",
Line 2381  sub set_custom_role { Line 2451  sub set_custom_role {
  $env{'user.name'},   $env{'user.name'},
  $rolename));   $rolename));
     }      }
     $r->print('<p><a href="/adm/createuser">Create another role, or Create/Modify a user.</a></p><form name="customresult" method="post">');      $r->print('<p><a href="javascript:backPage(document.customresult,'."'pickrole'".')">'.&mt('Create or edit another custom role').'</a></p><form name="customresult" method="post">');
     $r->print(&Apache::lonhtmlcommon::echo_form_input([]).'</form>');      $r->print(&Apache::lonhtmlcommon::echo_form_input([]).'</form>');
     $r->print(&Apache::loncommon::end_page());      $r->print(&Apache::loncommon::end_page());
 }  }
Line 2389  sub set_custom_role { Line 2459  sub set_custom_role {
 # ================================================================ Main Handler  # ================================================================ Main Handler
 sub handler {  sub handler {
     my $r = shift;      my $r = shift;
   
     if ($r->header_only) {      if ($r->header_only) {
        &Apache::loncommon::content_type($r,'text/html');         &Apache::loncommon::content_type($r,'text/html');
        $r->send_http_header;         $r->send_http_header;
        return OK;         return OK;
     }      }
       my $context;
       if ($env{'request.course.id'}) {
           $context = 'course';
       } elsif ($env{'request.role'} =~ /^au\./) {
           $context = 'construction_space';
       } else {
           $context = 'domain';
       }
       &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
                                               ['action','state']);
       &Apache::lonhtmlcommon::clear_breadcrumbs();
       &Apache::lonhtmlcommon::add_breadcrumb
           ({href=>"/adm/createuser",
             text=>"User Management"});
       my ($permission,$allowed) = &get_permission($context);
       if (!$allowed) {
           $env{'user.error.msg'}=
               "/adm/createuser:cst:0:0:Cannot create/modify user data ".
                                    "or view user status.";
           return HTTP_NOT_ACCEPTABLE;
       }
   
       &Apache::loncommon::content_type($r,'text/html');
       $r->send_http_header;
   
       # Main switch on form.action and form.state, as appropriate
       if (! exists($env{'form.action'})) {
           $r->print(&header());
           $r->print(&Apache::lonhtmlcommon::breadcrumbs('User Management'));
           $r->print(&print_main_menu($permission));
           $r->print(&Apache::loncommon::end_page());
       } elsif ($env{'form.action'} eq 'upload' && $permission->{'cusr'}) {
           $r->print(&header());
           &Apache::lonhtmlcommon::add_breadcrumb
               ({href=>'/adm/createuser?action=upload&state=',
                 text=>"Upload Users List"});
           $r->print(&Apache::lonhtmlcommon::breadcrumbs('Upload Users List',
                                                      'User_Management_Upload'));
           $r->print('<form name="studentform" method="post" '.
                     'enctype="multipart/form-data" '.
                     ' action="/adm/createuser">'."\n");
           if (! exists($env{'form.state'})) {
               &Apache::lonuserutils::print_first_users_upload_form($r,$context);
           } elsif ($env{'form.state'} eq 'got_file') {
               &Apache::lonuserutils::print_upload_manager_form($r,$context);
           } elsif ($env{'form.state'} eq 'enrolling') {
               if ($env{'form.datatoken'}) {
                   &Apache::lonuserutils::upfile_drop_add($r,$context);
               }
           } else {
               &Apache::lonuserutils::print_first_users_upload_form($r,$context);
           }
           $r->print('</form>'.&Apache::loncommon::end_page());
       } elsif ($env{'form.action'} eq 'expire' && $permission->{'cusr'}) {
           $r->print(&header());
           &Apache::lonhtmlcommon::add_breadcrumb
               ({href=>'/adm/createuser?action=expire',
                 text=>"Expire User Roles"});
           $r->print(&Apache::lonhtmlcommon::breadcrumbs('Expire User Roles',
                                                         'User_Management_Drops'));
           if (! exists($env{'form.state'})) {
               &Apache::lonuserutils::print_expire_menu($r,$context);
           } elsif ($env{'form.state'} eq 'done') {
               &Apache::lonuserutils::expire_user_list($r);
           } else {
               &Apache::lonuserutils::print_expire_menu($r,$context);
           }
           $r->print(&Apache::loncommon::end_page());
       } elsif ($env{'form.action'} eq 'singleuser' && $permission->{'cusr'}) {
           my $phase = $env{'form.phase'};
           my @search = ('srchterm','srchby','srchin','srchtype','srchdomain');
    &Apache::loncreateuser::restore_prev_selections();
    my $srch;
    foreach my $item (@search) {
       $srch->{$item} = $env{'form.'.$item};
    }
   
     if ((&Apache::lonnet::allowed('cta',$env{'request.course.id'})) ||          if (($phase eq 'get_user_info') || ($phase eq 'userpicked')) {
         (&Apache::lonnet::allowed('cin',$env{'request.course.id'})) ||               if ($env{'form.phase'} eq 'get_user_info') {
         (&Apache::lonnet::allowed('ccr',$env{'request.course.id'})) ||                   my ($currstate,$response,$forcenewuser,$results) = 
         (&Apache::lonnet::allowed('cep',$env{'request.course.id'})) ||                      &user_search_result($srch);
  (&authorpriv($env{'user.name'},$env{'request.role.domain'})) ||                  if ($env{'form.currstate'} eq 'modify') {
         (&Apache::lonnet::allowed('mau',$env{'request.role.domain'}))) {                      $currstate = $env{'form.currstate'};
        &Apache::loncommon::content_type($r,'text/html');                  }
        $r->send_http_header;                  if ($currstate eq 'select') {
        &Apache::lonhtmlcommon::clear_breadcrumbs();                      &print_user_selection_page($r,$response,$srch,$results,
                                                        'createuser',\@search);
        my $phase = $env{'form.phase'};                  } elsif ($currstate eq 'modify') {
        my @search = ('srchterm','srchby','srchin','srchtype','srchdomain');                      my ($ccuname,$ccdomain);
                       if (($srch->{'srchby'} eq 'uname') && 
        if (($phase eq 'get_user_info') || ($phase eq 'userpicked')) {                          ($srch->{'srchtype'} eq 'exact')) {
            my $srch;                          $ccuname = $srch->{'srchterm'};
            foreach my $item (@search) {                          $ccdomain= $srch->{'srchdomain'};
                $srch->{$item} = $env{'form.'.$item};                      } else {
            }                          my @matchedunames = keys(%{$results});
            if ($env{'form.phase'} eq 'get_user_info') {                          ($ccuname,$ccdomain) = split(/:/,$matchedunames[0]);
                my ($currstate,$response,$forcenewuser,$results) =                       }
                    &user_search_result($srch);                      $ccuname =&LONCAPA::clean_username($ccuname);
                if ($env{'form.currstate'} eq 'modify') {                      $ccdomain=&LONCAPA::clean_domain($ccdomain);
                    $currstate = $env{'form.currstate'};                      if ($env{'form.forcenewuser'}) {
                }                          $response = '';
                if ($currstate eq 'select') {                      }
                    &print_user_selection_page($r,$response,$srch,$results,'createuser',\@search);                      &print_user_modification_page($r,$ccuname,$ccdomain,
                } elsif ($currstate eq 'modify') {                                                    $srch,$response,$context);
                    my ($ccuname,$ccdomain);                  } elsif ($currstate eq 'query') {
                    if (($srch->{'srchby'} eq 'uname') &&                       &print_user_query_page($r,'createuser');
                        ($srch->{'srchtype'} eq 'exact')) {                  } else {
                        $ccuname = $srch->{'srchterm'};                      &print_username_entry_form($r,$response,$srch,
                        $ccdomain= $srch->{'srchdomain'};                                                 $forcenewuser);
                    } else {                  }
                        my @matchedunames = keys(%{$results});              } elsif ($env{'form.phase'} eq 'userpicked') {
                        ($ccuname,$ccdomain) = split(/:/,$matchedunames[0]);                  my $ccuname = &LONCAPA::clean_username($env{'form.seluname'});
                    }                  my $ccdomain = &LONCAPA::clean_domain($env{'form.seludom'});
                    $ccuname =&LONCAPA::clean_username($ccuname);                  &print_user_modification_page($r,$ccuname,$ccdomain,$srch,'',
                    $ccdomain=&LONCAPA::clean_domain($ccdomain);                                                $context);
                    if ($env{'form.forcenewuser'}) {              }
                        $response = '';          } elsif ($env{'form.phase'} eq 'update_user_data') {
                    }                 &update_user_data($r);
                    &print_user_modification_page($r,$ccuname,$ccdomain,$srch,          } else {
                                                  $response);              &print_username_entry_form($r,undef,$srch);
                } elsif ($currstate eq 'query') {          }
                    &print_user_query_page($r,'createuser');      } elsif ($env{'form.action'} eq 'custom' && $permission->{'custom'}) {
                } else {          if ($env{'form.phase'} eq 'set_custom_roles') {
                    &print_username_entry_form($r,$response,$srch,$forcenewuser);              &set_custom_role($r);
                }          } else {
            } elsif ($env{'form.phase'} eq 'userpicked') {              &custom_role_editor($r);
                my $ccuname = &LONCAPA::clean_username($env{'form.seluname'});          }
                my $ccdomain = &LONCAPA::clean_domain($env{'form.seludom'});      } elsif ($env{'form.action'} eq 'listusers' && $permission->{'view'}) {
                &print_user_modification_page($r,$ccuname,$ccdomain,$srch);          my ($cb_jscript,$jscript,$totcodes,$codetitles,$idlist,$idlist_titles);
            }          my $formname = 'studentform';
        } elsif ($env{'form.phase'} eq 'update_user_data') {          if ($context eq 'domain' && $env{'form.roletype'} eq 'course') {
            &update_user_data($r);              ($cb_jscript,$jscript,$totcodes,$codetitles,$idlist,$idlist_titles) = 
        } elsif ($env{'form.phase'} eq 'selected_custom_edit') {                  &Apache::lonuserutils::courses_selector($env{'request.role.domain'},
            &custom_role_editor($r);                                                          $formname);
        } elsif ($env{'form.phase'} eq 'set_custom_roles') {              my $js = &add_script($jscript).$cb_jscript;
    &set_custom_role($r);              my $loadcode = 
        } else {                  &Apache::lonuserutils::course_selector_loadcode($formname);
            &print_username_entry_form($r);              if ($loadcode ne '') {
        }                  $r->print(&header($js,{'onload' => $loadcode,}));
    } else {              } else {
       $env{'user.error.msg'}=                  $r->print(&header($js));
         "/adm/createuser:mau:0:0:Cannot modify user data";              }
       return HTTP_NOT_ACCEPTABLE;           } else {
    }              $r->print(&header());
    return OK;          }
           &Apache::lonhtmlcommon::add_breadcrumb
               ({href=>'/adm/createuser?action=listusers',
                 text=>"List Users"});
           $r->print(&Apache::lonhtmlcommon::breadcrumbs("List Users",
                                                         'User_Management_List'));
           &Apache::lonuserutils::print_userlist($r,undef,$permission,$context,
                        $formname,$totcodes,$codetitles,$idlist,$idlist_titles);
           $r->print(&Apache::loncommon::end_page());
       } elsif ($env{'form.action'} eq 'expire' && $permission->{'cusr'}) {
           $r->print(&header());
           &Apache::lonhtmlcommon::add_breadcrumb
               ({href=>'/adm/createuser?action=drop',
                 text=>"Expire Users"});
           $r->print(&Apache::lonhtmlcommon::breadcrumbs('Expire User Roles',
                                                         'User_Management_Drops'));
           if (! exists($env{'form.state'})) {
               &Apache::lonuserutils::print_expire_menu($r,$context);
           } elsif ($env{'form.state'} eq 'done') {
               &Apache::lonuserutiles::expire_user_list($r);
           } else {
               &print_expire_menu($r,$context);
           }
           $r->print(&Apache::loncommon::end_page());
       } else {
           $r->print(&header());
           $r->print(&Apache::lonhtmlcommon::breadcrumbs('User Management'));            $r->print(&print_main_menu($permission));
           $r->print(&Apache::loncommon::end_page());
       }
       return OK;
   }
   
   sub header {
       my ($jscript,$loaditems) = @_;
       my $start_page;
       if (ref($loaditems) eq 'HASH') {
           $start_page=&Apache::loncommon::start_page('User Management',$jscript,{'add_entries' => $loaditems,});
       } else {
           $start_page=&Apache::loncommon::start_page('User Management',$jscript);
       }
       return $start_page;
   }
   
   sub add_script {
       my ($js) = @_;
       return '<script type="text/javascript">'."\n".$js."\n".'</script>';
   }
   
   ###############################################################
   ###############################################################
   #  Menu Phase One
   sub print_main_menu {
       my ($permission) = @_;
       my @menu =
           (
             { text => 'Upload a File of Users to Modify/Create Users and/or Add roles',
               help => 'User_Management_Upload',
               action => 'upload',
               permission => $permission->{'cusr'},
               },
             { text => 'Create User/Set User Roles for a single user',
               help => 'User_Management_Single_User',
               action => 'singleuser',
               permission => $permission->{'cusr'},
               },
             { text => 'Display Lists of Users',
               help => 'User_Management_List',
               action => 'listusers',
               permission => $permission->{'view'},
               },
   #          { text => 'Expire User Roles',
   #            help => 'User_Management_Drops',
   #            action => 'expire',
   #            permission => $permission->{'cusr'},
   #            },
             { text => 'Edit Custom Roles',
               help => 'Custom_Role_Edit',
               action => 'custom',
               permission => $permission->{'custom'},
             },
           );
       my $menu_html = '';
       foreach my $menu_item (@menu) {
           next if (! $menu_item->{'permission'});
           $menu_html.='<p>';
           $menu_html.='<font size="+1">';
           if (exists($menu_item->{'url'})) {
               $menu_html.=qq{<a href="$menu_item->{'url'}">};
           } else {
               $menu_html.=
                   qq{<a href="/adm/createuser?action=$menu_item->{'action'}">};
           }
           $menu_html.= &mt($menu_item->{'text'}).'</a></font>';
           if (exists($menu_item->{'help'})) {
               $menu_html.=
                   &Apache::loncommon::help_open_topic($menu_item->{'help'});
           }
           $menu_html.='</p>';
       }
       return $menu_html;
   }
   
   sub get_permission {
       my ($context) = @_;
       my %permission;
       if ($context eq 'course') {
           if ((&Apache::lonnet::allowed('cta',$env{'request.course.id'})) ||
               (&Apache::lonnet::allowed('cin',$env{'request.course.id'})) ||
               (&Apache::lonnet::allowed('ccr',$env{'request.course.id'})) ||
               (&Apache::lonnet::allowed('cep',$env{'request.course.id'})) ||
               (&Apache::lonnet::allowed('cst',$env{'request.course.id'}))) {
               $permission{'cusr'} = 1;
               $permission{'view'} =
                    &Apache::lonnet::allowed('vcl',$env{'request.course.id'});
   
           }
           if (&Apache::lonnet::allowed('ccr',$env{'request.course.id'})) {
               $permission{'custom'} = 1;
           }
           if (&Apache::lonnet::allowed('vcl',$env{'request.course.id'})) {
               $permission{'view'} = 1;
               if (!$permission{'view'}) {
                   my $scope = $env{'request.course.id'}.'/'.$env{'request.course.sec'};
                   $permission{'view'} =  &Apache::lonnet::allowed('vcl',$scope);
                   if ($permission{'view'}) {
                       $permission{'view_section'} = $env{'request.course.sec'};
                   }
               }
           }
       } elsif ($context eq 'construction_space') {
           $permission{'cusr'} = &authorpriv($env{'user.name'},$env{'request.role.domain'});
           $permission{'view'} = $permission{'cusr'};
       } else {
           if ((&Apache::lonnet::allowed('cad',$env{'request.role.domain'})) ||
               (&Apache::lonnet::allowed('cli',$env{'request.role.domain'})) ||
               (&Apache::lonnet::allowed('cau',$env{'request.role.domain'})) ||
               (&Apache::lonnet::allowed('csc',$env{'request.role.domain'})) ||
               (&Apache::lonnet::allowed('cdg',$env{'request.role.domain'})) || 
               (&Apache::lonnet::allowed('mau',$env{'request.role.domain'}))) {
               $permission{'cusr'} = 1;
           }
           if (&Apache::lonnet::allowed('ccr',$env{'request.role.domain'})) {
               $permission{'custom'} = 1;
           }
           $permission{'view'} = $permission{'cusr'};
       }
       my $allowed = 0;
       foreach my $perm (values(%permission)) {
           if ($perm) { $allowed=1; last; }
       }
       return (\%permission,$allowed);
   }
   
   sub restore_prev_selections {
       my %saveable_parameters = ('srchby'   => 'scalar',
          'srchin'   => 'scalar',
          'srchtype' => 'scalar',
          );
       &Apache::loncommon::store_settings('user','user_picker',
          \%saveable_parameters);
       &Apache::loncommon::restore_settings('user','user_picker',
    \%saveable_parameters);
 }  }
   
 #-------------------------------------------------- functions for &phase_two  #-------------------------------------------------- functions for &phase_two
Line 2574  sub user_search_result { Line 2880  sub user_search_result {
  {&Apache::lonnet::get('environment',   {&Apache::lonnet::get('environment',
      ['firstname',       ['firstname',
       'lastname',        'lastname',
       'permanentemail'])};        'permanentemail'],
         $cudomain,$cuname)};
                                 }                                  }
                             }                              }
                         }                          }
Line 2884  sub course_level_table { Line 3191  sub course_level_table {
     my $table = '';      my $table = '';
 # Custom Roles?  # Custom Roles?
   
     my %customroles=&my_custom_roles();      my %customroles=&Apache::lonuserutils::my_custom_roles();
     my %lt=&Apache::lonlocal::texthash(      my %lt=&Apache::lonlocal::texthash(
             'exs'  => "Existing sections",              'exs'  => "Existing sections",
             'new'  => "Define new section",              'new'  => "Define new section",
Line 3031  sub course_sections { Line 3338  sub course_sections {
   
 sub course_level_dc {  sub course_level_dc {
     my ($dcdom) = @_;      my ($dcdom) = @_;
     my %customroles=&my_custom_roles();      my %customroles=&Apache::lonuserutils::my_custom_roles();
     my $hiddenitems = '<input type="hidden" name="dcdomain" value="'.$dcdom.'" />'.      my $hiddenitems = '<input type="hidden" name="dcdomain" value="'.$dcdom.'" />'.
                       '<input type="hidden" name="origdom" value="'.$dcdom.'" />'.                        '<input type="hidden" name="origdom" value="'.$dcdom.'" />'.
                       '<input type="hidden" name="dccourse" value="" />';                        '<input type="hidden" name="dccourse" value="" />';
Removed from v.1.188  
changed lines
  Added in v.1.197

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