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

Diff for /loncom/interface/loncreateuser.pm between versions 1.48 and 1.199

version 1.48, 2003/02/13 21:35:50 version 1.199, 2007/12/05 17:13:34
Line 25 Line 25
 #  #
 # http://www.lon-capa.org/  # http://www.lon-capa.org/
 #  #
 # (Create a course  
 # (My Desk  
 #  
 # (Internal Server Error Handler  
 #  
 # (Login Screen  
 # 5/21/99,5/22,5/25,5/26,5/31,6/2,6/10,7/12,7/14,  
 # 1/14/00,5/29,5/30,6/1,6/29,7/1,11/9 Gerd Kortemeyer)  
 #  
 # YEAR=2001  
 # 3/1/1 Gerd Kortemeyer)  
 #  
 # 3/1 Gerd Kortemeyer)  
 #  
 # 2/14 Gerd Kortemeyer)  
 #  
 # 2/14,2/17,2/19,2/20,2/21,2/22,2/23,3/2,3/17,3/24,04/12 Gerd Kortemeyer  
 # April Guy Albertelli  
 # 05/10,10/16 Gerd Kortemeyer   
 # 02/11/02 Matthew Hall  
 #  
 # $Id$  
 ###  ###
   
 package Apache::loncreateuser;  package Apache::loncreateuser;
   
   =pod
   
   =head1 NAME
   
   Apache::loncreateuser - handler to create users and custom roles
   
   =head1 SYNOPSIS
   
   Apache::loncreateuser provides an Apache handler for creating users,
       editing their login parameters, roles, and removing roles, and
       also creating and assigning custom roles.
   
   =head1 OVERVIEW
   
   =head2 Custom Roles
   
   In LON-CAPA, roles are actually collections of privileges. "Teaching
   Assistant", "Course Coordinator", and other such roles are really just
   collection of privileges that are useful in many circumstances.
   
   Creating custom roles can be done by the Domain Coordinator through
   the Create User functionality. That screen will show all privileges
   that can be assigned to users. For a complete list of privileges,
   please see C</home/httpd/lonTabs/rolesplain.tab>.
   
   Custom role definitions are stored in the C<roles.db> file of the role
   author.
   
   =cut
   
 use strict;  use strict;
 use Apache::Constants qw(:common :http);  use Apache::Constants qw(:common :http);
 use Apache::lonnet;  use Apache::lonnet;
   use Apache::loncommon;
   use Apache::lonlocal;
   use Apache::longroup;
   use Apache::lonuserutils;
   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
 my $generalrule;  
 my $authformnop;  my $authformnop;
 my $authformkrb;  my $authformkrb;
 my $authformint;  my $authformint;
 my $authformfsys;  my $authformfsys;
 my $authformloc;  my $authformloc;
   
 BEGIN {  sub initialize_authen_forms {
     $ENV{'SERVER_NAME'}=~/(\w+\.\w+)$/;      my ($dom,$curr_authtype) = @_; 
     my $krbdefdom=$1;      my ($krbdefdom)=( $ENV{'SERVER_NAME'}=~/(\w+\.\w+)$/);
     $krbdefdom=~tr/a-z/A-Z/;      $krbdefdom= uc($krbdefdom);
     my %param = ( formname => 'document.cu',      my %param = ( formname => 'document.cu',
                   kerb_def_dom => $krbdefdom                     kerb_def_dom => $krbdefdom,
                   );                    domain => $dom,
                   );
       my %abv_auth = &auth_abbrev();
       if ($curr_authtype =~ /^(krb4|krb5|internal|localauth|unix):$/) {
           my $long_auth = $1;
           my %abv_auth = &auth_abbrev();
           $param{'curr_authtype'} = $abv_auth{$long_auth};
           if ($long_auth =~ /^krb(4|5)$/) {
               $param{'curr_kerb_ver'} = $1;
           }
       }
 # no longer static due to configurable kerberos defaults  # no longer static due to configurable kerberos defaults
 #    $loginscript  = &Apache::loncommon::authform_header(%param);  #    $loginscript  = &Apache::loncommon::authform_header(%param);
     $generalrule  = &Apache::loncommon::authform_authorwarning(%param);  
     $authformnop  = &Apache::loncommon::authform_nochange(%param);      $authformnop  = &Apache::loncommon::authform_nochange(%param);
 # no longer static due to configurable kerberos defaults  # no longer static due to configurable kerberos defaults
 #    $authformkrb  = &Apache::loncommon::authform_kerberos(%param);  #    $authformkrb  = &Apache::loncommon::authform_kerberos(%param);
Line 81  BEGIN { Line 102  BEGIN {
     $authformloc  = &Apache::loncommon::authform_local(%param);      $authformloc  = &Apache::loncommon::authform_local(%param);
 }  }
   
   sub auth_abbrev {
       my %abv_auth = (
                        krb4     => 'krb',
                        internal => 'int',
                        localuth => 'loc',
                        unix     => 'fsys',
                      );
       return %abv_auth;
   }
   
 # ==================================================== Figure out author access  # ==================================================== Figure out author access
   
 sub authorpriv {  sub authorpriv {
     my ($auname,$audom)=@_;      my ($auname,$audom)=@_;
     if (($auname ne $ENV{'user.name'}) ||      unless ((&Apache::lonnet::allowed('cca',$audom.'/'.$auname))
         (($audom ne $ENV{'user.domain'}) &&           || (&Apache::lonnet::allowed('caa',$audom.'/'.$auname))) { return ''; }
          ($audom ne $ENV{'request.role.domain'}))) { return ''; }  
     unless (&Apache::lonnet::allowed('cca',$audom)) { return ''; }  
     return 1;      return 1;
 }  }
   
   # ====================================================
   
   sub portfolio_quota {
       my ($ccuname,$ccdomain) = @_;
       my %lt = &Apache::lonlocal::texthash(
                      'disk' => "Disk space allocated to user's portfolio files",
                      'cuqu' => "Current quota",
                      'cust' => "Custom quota",
                      'defa' => "Default",
                      'chqu' => "Change quota",
       );
       my ($currquota,$quotatype,$inststatus,$defquota) = 
           &Apache::loncommon::get_user_quota($ccuname,$ccdomain);
       my ($usertypes,$order) = &Apache::lonnet::retrieve_inst_usertypes($ccdomain);
       my ($longinsttype,$showquota,$custom_on,$custom_off,$defaultinfo);
       if ($inststatus ne '') {
           if ($usertypes->{$inststatus} ne '') {
               $longinsttype = $usertypes->{$inststatus};
           }
       }
       $custom_on = ' ';
       $custom_off = ' checked="checked" ';
       my $quota_javascript = <<"END_SCRIPT";
   <script type="text/javascript">
   function quota_changes(caller) {
       if (caller == "custom") {
           if (document.cu.customquota[0].checked) {
               document.cu.portfolioquota.value = "";
           }
       }
       if (caller == "quota") {
           document.cu.customquota[1].checked = true;
       }
   }
   </script>
   END_SCRIPT
       if ($quotatype eq 'custom') {
           $custom_on = $custom_off;
           $custom_off = ' ';
           $showquota = $currquota;
           if ($longinsttype eq '') {
               $defaultinfo = &mt('For this user, the default quota would be [_1]
                               Mb.',$defquota);
           } else {
               $defaultinfo = &mt("For this user, the default quota would be [_1] 
                               Mb, as determined by the user's institutional
                              affiliation ([_2]).",$defquota,$longinsttype);
           }
       } else {
           if ($longinsttype eq '') {
               $defaultinfo = &mt('For this user, the default quota is [_1]
                               Mb.',$defquota);
           } else {
               $defaultinfo = &mt("For this user, the default quota of [_1]
                               Mb, is determined by the user's institutional
                               affiliation ([_2]).",$defquota,$longinsttype);
           }
       }
       my $output = $quota_javascript.
                    '<h3>'.$lt{'disk'}.'</h3>'.
                    &Apache::loncommon::start_data_table().
                    &Apache::loncommon::start_data_table_row().
                    '<td>'.$lt{'cuqu'}.': '.$currquota.'&nbsp;Mb.&nbsp;&nbsp;'.
                    $defaultinfo.'</td>'.
                    &Apache::loncommon::end_data_table_row().
                    &Apache::loncommon::start_data_table_row().
                    '<td><span class="LC_nobreak">'.$lt{'chqu'}.
                    ': <label>'.
                    '<input type="radio" name="customquota" value="0" '.
                    $custom_off.' onchange="javascript:quota_changes('."'custom'".')"
                     />'.$lt{'defa'}.'&nbsp;('.$defquota.' Mb).</label>&nbsp;'.
                    '&nbsp;<label><input type="radio" name="customquota" value="1" '. 
                    $custom_on.'  onchange="javascript:quota_changes('."'custom'".')" />'.
                    $lt{'cust'}.':</label>&nbsp;'.
                    '<input type="text" name="portfolioquota" size ="5" value="'.
                    $showquota.'" onfocus="javascript:quota_changes('."'quota'".')" '.
                    '/>&nbsp;Mb</span></td>'.
                    &Apache::loncommon::end_data_table_row().
                    &Apache::loncommon::end_data_table();
       return $output;
   }
   
 # =================================================================== Phase one  # =================================================================== Phase one
   
 sub print_username_entry_form {  sub print_username_entry_form {
     my $r=shift;      my ($r,$response,$srch,$forcenewuser) = @_;
     my $defdom=$ENV{'request.role.domain'};      my $defdom=$env{'request.role.domain'};
     my @domains = &Apache::loncommon::get_domains();      my $formtoset = 'crtuser';
     my $domform = &Apache::loncommon::select_dom_form($defdom,'ccdomain');      if (exists($env{'form.startrolename'})) {
     my $bodytag =&Apache::loncommon::bodytag(          $formtoset = 'docustom';
                                   'Create Users, Change User Privileges');          $env{'form.rolename'} = $env{'form.startrolename'};
     my $selscript=&Apache::loncommon::studentbrowser_javascript();      }
     my $sellink=&Apache::loncommon::selectstudent_link  
                                         ('crtuser','ccuname','ccdomain');      my ($jsback,$elements) = &crumb_utilities();
     $r->print(<<"ENDDOCUMENT");  
 <html>      my $jscript = &Apache::loncommon::studentbrowser_javascript()."\n".
 <head>          '<script type="text/javascript">'."\n".
 <title>The LearningOnline Network with CAPA</title>          &Apache::lonhtmlcommon::set_form_elements($elements->{$formtoset}).
 $selscript          '</script>'."\n";
 </head>  
 $bodytag      my %loaditems = (
                   'onload' => "javascript:setFormElements(document.$formtoset)",
                       );
       my $start_page =
    &Apache::loncommon::start_page('User Management',
          $jscript,{'add_entries' => \%loaditems,});
       if ($env{'form.action'} eq 'singleuser') {
           &Apache::lonhtmlcommon::add_breadcrumb
             ({href=>"javascript:backPage(document.crtuser)",
               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 %existingroles=&Apache::lonuserutils::my_custom_roles();
       my $choice=&Apache::loncommon::select_form('make new role','rolename',
    ('make new role' => 'Generate new role ...',%existingroles));
       my %lt=&Apache::lonlocal::texthash(
                       'srch' => "User Search",
                        or    => "or",
       'usr'  => "Username",
                       'dom'  => "Domain",
                       'ecrp' => "Edit Custom Role Privileges",
                       'nr'   => "Name of Role",
                       'cre'  => "Custom Role Editor",
                       'mod'  => "to add/modify roles",
          );
       my $help = &Apache::loncommon::help_open_menu(undef,undef,282,'Instructor Interface');
       my $helpsiur=&Apache::loncommon::help_open_topic('Course_Change_Privileges');
       my $helpecpr=&Apache::loncommon::help_open_topic('Course_Editing_Custom_Roles');
       my $sellink=&Apache::loncommon::selectstudent_link('crtuser','srchterm','srchdomain');
       if ($sellink) {
           $sellink = "$lt{'or'} ".$sellink;
       } 
       $r->print($start_page."\n".$crumbs);
       if ($env{'form.action'} eq 'singleuser') {
           $r->print("
   <h3>$lt{'srch'} $sellink $lt{'mod'}$helpsiur</h3>
   $response");
           $r->print(&entry_form($defdom,$srch,$forcenewuser));
       } elsif ($env{'form.action'} eq 'custom') {
           if (&Apache::lonnet::allowed('mcr','/')) {
               $r->print(<<ENDCUSTOM);
   <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" />
   <h3>$lt{'ecrp'}$helpecpr</h3>
   $lt{'nr'}: $choice <input type="text" size="15" name="newrolename" /><br />
   <input name="customeditor" type="submit" value="$lt{'cre'}" />
   </form>
   ENDCUSTOM
           }
       }
       $r->print(&Apache::loncommon::end_page());
   }
   
   sub entry_form {
       my ($dom,$srch,$forcenewuser) = @_;
       my $userpicker = 
          &Apache::loncommon::user_picker($dom,$srch,$forcenewuser,
                                          'document.crtuser');
       my $srchbutton = &mt('Search');
       my $output = <<"ENDDOCUMENT";
 <form action="/adm/createuser" method="post" name="crtuser">  <form action="/adm/createuser" method="post" name="crtuser">
 <input type="hidden" name="phase" value="get_user_info">  <input type="hidden" name="action" value="$env{'form.action'}" />
 <p>  <input type="hidden" name="phase" value="get_user_info" />
 <table>  $userpicker
 <tr><td>Username:</td><td><input type="text" size="15" name="ccuname">  <input name="userrole" type="button" value="$srchbutton" onclick="javascript:validateEntry(document.crtuser)" />
 </td><td rowspan="2">$sellink</td></tr><tr><td>  
 Domain:</td><td>$domform</td></tr>  
 </table>   
 </p>  
 <input type="submit" value="Continue">  
 </form>  </form>
 </body>  
 </html>  
 ENDDOCUMENT  ENDDOCUMENT
       return $output;
   }
   
   sub user_modification_js {
       my ($pjump_def,$dc_setcourse_code,$nondc_setsection_code,$groupslist)=@_;
       
       return <<END;
   <script type="text/javascript" language="Javascript">
   
       function pclose() {
           parmwin=window.open("/adm/rat/empty.html","LONCAPAparms",
                    "height=350,width=350,scrollbars=no,menubar=no");
           parmwin.close();
       }
   
       $pjump_def
       $dc_setcourse_code
   
       function dateset() {
           eval("document.cu."+document.cu.pres_marker.value+
               ".value=document.cu.pres_value.value");
           pclose();
       }
   
       $nondc_setsection_code
   
   </script>
   END
 }  }
   
 # =================================================================== Phase two  # =================================================================== Phase two
 sub print_user_modification_page {  sub print_user_selection_page {
     my $r=shift;      my ($r,$response,$srch,$srch_results,$operation,$srcharray) = @_;
     my $ccuname=$ENV{'form.ccuname'};      my @fields = ('username','domain','lastname','firstname','permanentemail');
     my $ccdomain=$ENV{'form.ccdomain'};      my $sortby = $env{'form.sortby'};
   
     my $defdom=$ENV{'request.role.domain'};      if (!grep(/^\Q$sortby\E$/,@fields)) {
           $sortby = 'lastname';
       }
   
       my ($jsback,$elements) = &crumb_utilities();
   
       my $jscript = (<<ENDSCRIPT);
   <script type="text/javascript">
   function pickuser(uname,udom) {
       document.usersrchform.seluname.value=uname;
       document.usersrchform.seludom.value=udom;
       document.usersrchform.phase.value="userpicked";
       document.usersrchform.submit();
   }
   
   $jsback
   </script>
   ENDSCRIPT
   
       my %lt=&Apache::lonlocal::texthash(
                                          'usrch'          => "User Search to add/modify roles",
                                          'stusrch'        => "User Search to enroll student",
                                          'usel'           => "Select a user to add/modify roles",
                                          'stusel'         => "Select a user to enroll as a student", 
                                          'username'       => "username",
                                          'domain'         => "domain",
                                          'lastname'       => "last name",
                                          'firstname'      => "first name",
                                          'permanentemail' => "permanent e-mail",
                                         );
       if ($operation eq 'createuser') {
           $r->print(&Apache::loncommon::start_page('User Management',$jscript));
           &Apache::lonhtmlcommon::add_breadcrumb
               ({href=>"javascript:backPage(document.usersrchform,'','')",
                 text=>"Create/modify user",
                 faq=>282,bug=>'Instructor Interface',},
                {href=>"javascript:backPage(document.usersrchform,'get_user_info','select')",
                 text=>"Select User",
                 faq=>282,bug=>'Instructor Interface',});
           $r->print(&Apache::lonhtmlcommon::breadcrumbs('User Management'));
           $r->print("<b>$lt{'usrch'}</b><br />");
           $r->print(&entry_form($srch->{'srchdomain'},$srch));
           $r->print('<h3>'.$lt{'usel'}.'</h3>');
       } else {
           $r->print($jscript."<b>$lt{'stusrch'}</b><br />");
           $r->print(&Apache::londropadd::single_user_entry_form($srch->{'srchdomain'},$srch));
           $r->print('</form><h3>'.$lt{'stusel'}.'</h3>');
       }
       $r->print('<form name="usersrchform" method="post">'.
                 &Apache::loncommon::start_data_table()."\n".
                 &Apache::loncommon::start_data_table_header_row()."\n".
                 ' <th> </th>'."\n");
       foreach my $field (@fields) {
           $r->print(' <th><a href="javascript:document.usersrchform.sortby.value='.
                     "'".$field."'".';document.usersrchform.submit();">'.
                     $lt{$field}.'</a></th>'."\n");
       }
       $r->print(&Apache::loncommon::end_data_table_header_row());
   
       my @sorted_users = sort {
           lc($srch_results->{$a}->{$sortby})   cmp lc($srch_results->{$b}->{$sortby})
               ||
           lc($srch_results->{$a}->{lastname})  cmp lc($srch_results->{$b}->{lastname})
               ||
           lc($srch_results->{$a}->{firstname}) cmp lc($srch_results->{$b}->{firstname})
       ||
    lc($a) cmp lc($b)
           } (keys(%$srch_results));
   
       foreach my $user (@sorted_users) {
           my ($uname,$udom) = split(/:/,$user);
           $r->print(&Apache::loncommon::start_data_table_row().
                     '<td><input type="button" name="seluser" value="'.&mt('Select').'" onclick="javascript:pickuser('."'".$uname."'".','."'".$udom."'".')" /></td>'.
                     '<td><tt>'.$uname.'</tt></td>'.
                     '<td><tt>'.$udom.'</tt></td>');
           foreach my $field ('lastname','firstname','permanentemail') {
               $r->print('<td>'.$srch_results->{$user}->{$field}.'</td>');
           }
           $r->print(&Apache::loncommon::end_data_table_row());
       }
       $r->print(&Apache::loncommon::end_data_table().'<br /><br />');
       if (ref($srcharray) eq 'ARRAY') {
           foreach my $item (@{$srcharray}) {
               $r->print('<input type="hidden" name="'.$item.'" value="'.$env{'form.'.$item}.'" />'."\n");
           }
       }
       $r->print(' <input type="hidden" name="sortby" value="'.$sortby.'" />'."\n".
                 ' <input type="hidden" name="seluname" value="" />'."\n".
                 ' <input type="hidden" name="seludom" value="" />'."\n".
                 ' <input type="hidden" name="currstate" value="select" />'."\n".
                 ' <input type="hidden" name="phase" value="get_user_info" />'."\n".
                 ' <input type="hidden" name="action" value="singleuser" />'."\n");
       $r->print($response);
       if ($operation eq 'createuser') {
           $r->print('</form>'.&Apache::loncommon::end_page());
       } else {
           $r->print('<input type="hidden" name="action" value="enrollstudent" />'."\n".
                     '<input type="hidden" name="state" value="gotusername" />'."\n");
       }
   }
   
   sub print_user_query_page {
       my ($r,$caller) = @_;
   # FIXME - this is for a network-wide name search (similar to catalog search)
   # To use frames with similar behavior to catalog/portfolio search.
   # To be implemented. 
       return;
   }
   
   sub print_user_modification_page {
       my ($r,$ccuname,$ccdomain,$srch,$response,$context) = @_;
       if (($ccuname eq '') || ($ccdomain eq '')) {
           my $usermsg = &mt('No username and/or domain provided.'); 
    &print_username_entry_form($r,$usermsg);
           return;
       }
       my %abv_auth = &auth_abbrev();
       my ($curr_authtype,%rulematch,%inst_results,$curr_kerb_ver,$newuser,
           %alerts,%curr_rules,%got_rules);
       my $uhome=&Apache::lonnet::homeserver($ccuname,$ccdomain);
       if ($uhome eq 'no_host') {
           $newuser = 1;
           my $checkhash;
           my $checks = { 'username' => 1 };
           $checkhash->{$ccuname.':'.$ccdomain} = { 'newuser' => $newuser };
           &Apache::loncommon::user_rule_check($checkhash,$checks,
               \%alerts,\%rulematch,\%inst_results,\%curr_rules,\%got_rules);
           if (ref($alerts{'username'}) eq 'HASH') {
               if (ref($alerts{'username'}{$ccdomain}) eq 'HASH') {
                   my $domdesc =
                       &Apache::lonnet::domain($ccdomain,'description');
                   if ($alerts{'username'}{$ccdomain}{$ccuname}) {
                       my $userchkmsg;
                       if (ref($curr_rules{$ccdomain}) eq 'HASH') {  
                           $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 {
           $newuser = 0;
           my $currentauth = 
               &Apache::lonnet::queryauthenticate($ccuname,$ccdomain);
           if ($currentauth =~ /^(krb4|krb5|unix|internal|localauth):/) {
               $curr_authtype = $abv_auth{$1};
               if ($currentauth =~ /^krb(4|5)/) {
                   $curr_kerb_ver = $1;
               }
           }
       }
       if ($response) {
           $response = '<br />'.$response
       }
       my $defdom=$env{'request.role.domain'};
   
     my ($krbdef,$krbdefdom) =      my ($krbdef,$krbdefdom) =
        &Apache::loncommon::get_kerberos_defaults($defdom);         &Apache::loncommon::get_kerberos_defaults($defdom);
   
     my %param = ( formname => 'document.cu',      my %param = ( formname => 'document.cu',
                   kerb_def_dom => $krbdefdom,                    kerb_def_dom => $krbdefdom,
                   kerb_def_auth => $krbdef                    kerb_def_auth => $krbdef,
                   );                    curr_authtype => $curr_authtype,
                     curr_kerb_ver => $curr_kerb_ver,
                     domain => $ccdomain,
                   );
     $loginscript  = &Apache::loncommon::authform_header(%param);      $loginscript  = &Apache::loncommon::authform_header(%param);
     $authformkrb  = &Apache::loncommon::authform_kerberos(%param);      $authformkrb  = &Apache::loncommon::authform_kerberos(%param);
   
     $ccuname=~s/\W//g;      my $pjump_def = &Apache::lonhtmlcommon::pjump_javascript_definition();
     $ccdomain=~s/\W//g;      my $dc_setcourse_code = '';
     my $dochead =<<"ENDDOCHEAD";      my $nondc_setsection_code = '';                                        
 <html>  
 <head>      my %loaditem;
 <title>The LearningOnline Network with CAPA</title>  
 <script type="text/javascript" language="Javascript">      my $groupslist;
       my %curr_groups = &Apache::longroup::coursegroups();
     function pclose() {      if (%curr_groups) {
         parmwin=window.open("/adm/rat/empty.html","LONCAPAparms",          $groupslist = join('","',sort(keys(%curr_groups)));
                  "height=350,width=350,scrollbars=no,menubar=no");          $groupslist = '"'.$groupslist.'"';   
         parmwin.close();  
     }      }
   
     function pjump(type,dis,value,marker,ret,call) {      if ($env{'request.role'} =~ m-^dc\./($match_domain)/$-) {
         parmwin=window.open("/adm/rat/parameter.html?type="+escape(type)          my $dcdom = $1;
                  +"&value="+escape(value)+"&marker="+escape(marker)          $loaditem{'onload'} = "document.cu.coursedesc.value='';";
                  +"&return="+escape(ret)          my @rolevals = ('st','ta','ep','in','cc');
                  +"&call="+escape(call)+"&name="+escape(dis),"LONCAPAparms",          my (@crsroles,@grproles);
                  "height=350,width=350,scrollbars=no,menubar=no");          for (my $i=0; $i<@rolevals; $i++) {
               $crsroles[$i]=&Apache::lonnet::plaintext($rolevals[$i],'Course');
               $grproles[$i]=&Apache::lonnet::plaintext($rolevals[$i],'Group');
           }
           my $rolevalslist = join('","',@rolevals);
           my $crsrolenameslist = join('","',@crsroles);
           my $grprolenameslist = join('","',@grproles);
           my $pickcrsfirst = '<--'.&mt('Pick course first');
           my $pickgrpfirst = '<--'.&mt('Pick group first'); 
           $dc_setcourse_code = <<"ENDSCRIPT";
       function setCourse() {
           var course = document.cu.dccourse.value;
           if (course != "") {
               if (document.cu.dcdomain.value != document.cu.origdom.value) {
                   alert("You must select a course in the current domain");
                   return;
               } 
               var userrole = document.cu.role.options[document.cu.role.selectedIndex].value
               var section="";
               var numsections = 0;
               var newsecs = new Array();
               for (var i=0; i<document.cu.currsec.length; i++) {
                   if (document.cu.currsec.options[i].selected == true ) {
                       if (document.cu.currsec.options[i].value != "" && document.cu.currsec.options[i].value != null) { 
                           if (numsections == 0) {
                               section = document.cu.currsec.options[i].value
                               numsections = 1;
                           }
                           else {
                               section = section + "," +  document.cu.currsec.options[i].value
                               numsections ++;
                           }
                       }
                   }
               }
               if (document.cu.newsec.value != "" && document.cu.newsec.value != null) {
                   if (numsections == 0) {
                       section = document.cu.newsec.value
                   }
                   else {
                       section = section + "," +  document.cu.newsec.value
                   }
                   newsecs = document.cu.newsec.value.split(/,/g);
                   numsections = numsections + newsecs.length;
               }
               if ((userrole == 'st') && (numsections > 1)) {
                   alert("In each course, each user may only have one student role at a time. You had selected "+numsections+" sections.\\nPlease modify your selections so they include no more than one section.")
                   return;
               }
               for (var j=0; j<newsecs.length; j++) {
                   if ((newsecs[j] == 'all') || (newsecs[j] == 'none')) {
                       alert("'"+newsecs[j]+"' may not be used as the name for a section, as it is a reserved word.\\nPlease choose a different section name.");
                       return;
                   }
                   if (document.cu.groups.value != '') {
                       var groups = document.cu.groups.value.split(/,/g);
                       for (var k=0; k<groups.length; k++) {
                           if (newsecs[j] == groups[k]) {
                               alert("'"+newsecs[j]+"' may not be used as the name for a section, as it is the name of a course group.\\nSection names and group names must be distinct. Please choose a different section name.");
                               return; 
                           }
                       }
                   }
               }
               if ((userrole == 'cc') && (numsections > 0)) {
                   alert("Section designations do not apply to Course Coordinator roles.\\nA course coordinator role will be added with access to all sections.");
                   section = "";
               }
               var coursename = "_$dcdom"+"_"+course+"_"+userrole
               var numcourse = getIndex(document.cu.dccourse);
               if (numcourse == "-1") {
                   alert("There was a problem with your course selection");
                   return
               }
               else {
                   document.cu.elements[numcourse].name = "act"+coursename;
                   var numnewsec = getIndex(document.cu.newsec);
                   if (numnewsec != "-1") {
                       document.cu.elements[numnewsec].name = "sec"+coursename;
                       document.cu.elements[numnewsec].value = section;
                   }
                   var numstart = getIndex(document.cu.start);
                   if (numstart != "-1") {
                       document.cu.elements[numstart].name = "start"+coursename;
                   }
                   var numend = getIndex(document.cu.end);
                   if (numend != "-1") {
                       document.cu.elements[numend].name = "end"+coursename
                   }
               }
           }
           document.cu.submit();
       }
   
       function getIndex(caller) {
           for (var i=0;i<document.cu.elements.length;i++) {
               if (document.cu.elements[i] == caller) {
                   return i;
               }
           }
           return -1;
       }
   ENDSCRIPT
       } else {
           $nondc_setsection_code =
               &Apache::lonuserutils::setsections_javascript('cu',$groupslist);
     }      }
       my $js = &user_modification_js($pjump_def,$dc_setcourse_code,
                                      $nondc_setsection_code,$groupslist);
   
     function dateset() {      my ($jsback,$elements) = &crumb_utilities();
         eval("document.cu."+document.cu.pres_marker.value+      my $javascript_validations;
             ".value=document.cu.pres_value.value");      if ((&Apache::lonnet::allowed('mau',$ccdomain)) || ($uhome eq 'no_host')) {
         pclose();          my ($krbdef,$krbdefdom) =
               &Apache::loncommon::get_kerberos_defaults($ccdomain);
           $javascript_validations = 
               &Apache::lonuserutils::javascript_validations('auth',$krbdefdom,undef,
                                                           undef,$ccdomain);
     }      }
       $js .= "\n".
          '<script type="text/javascript">'."\n".$jsback."\n".
          $javascript_validations.'</script>';
       my $start_page = 
    &Apache::loncommon::start_page('User Management',
          $js,{'add_entries' => \%loaditem,});
       &Apache::lonhtmlcommon::add_breadcrumb
        ({href=>"javascript:backPage(document.cu)",
          text=>"Create/modify user",
          faq=>282,bug=>'Instructor Interface',});
   
       if ($env{'form.phase'} eq 'userpicked') {
           &Apache::lonhtmlcommon::add_breadcrumb
        ({href=>"javascript:backPage(document.cu,'get_user_info','select')",
          text=>"Select a user",
          faq=>282,bug=>'Instructor Interface',});
       }
       &Apache::lonhtmlcommon::add_breadcrumb
         ({href=>"javascript:backPage(document.cu,'$env{'form.phase'}','modify')",
           text=>"Set user role",
           faq=>282,bug=>'Instructor Interface',});
       my $crumbs = &Apache::lonhtmlcommon::breadcrumbs('User Management');
   
 </script>  
 </head>  
 ENDDOCHEAD  
     $r->print(&Apache::loncommon::bodytag(  
                                      'Create Users, Change User Privileges'));  
     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="" />
 <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="" />
 ENDFORMINFO  ENDFORMINFO
     my $uhome=&Apache::lonnet::homeserver($ccuname,$ccdomain);  
     my %incdomains;   
     my %inccourses;      my %inccourses;
     foreach (%Apache::lonnet::hostdom) {      foreach my $key (keys(%env)) {
        $incdomains{$_}=1;   if ($key=~/^user\.priv\.cm\.\/($match_domain)\/($match_username)/) {
     }  
     foreach (keys(%ENV)) {  
  if ($_=~/^user\.priv\.cm\.\/(\w+)\/(\w+)/) {  
     $inccourses{$1.'_'.$2}=1;      $inccourses{$1.'_'.$2}=1;
         }          }
     }      }
     if ($uhome eq 'no_host') {      if ($uhome eq 'no_host') {
         my $home_server_list=          my $portfolioform;
             '<option value="default" selected>default</option>'."\n".          if (&Apache::lonnet::allowed('mpq',$env{'request.role.domain'})) {
                 &Apache::loncommon::home_server_option_list($ccdomain);              # Current user has quota modification privileges
                       $portfolioform = '<br />'.&portfolio_quota($ccuname,$ccdomain);
  $r->print(<<ENDNEWUSER);          }
 $dochead          &initialize_authen_forms($ccdomain);
 <h1>Create New User</h1>          my %lt=&Apache::lonlocal::texthash(
                   'cnu'            => 'Create New User',
                   'ind'            => 'in domain',
                   'lg'             => 'Login Data',
                   'hs'             => "Home Server",
           );
    $r->print(<<ENDTITLE);
   $start_page
   $crumbs
   $response
 $forminfo  $forminfo
 <h2>New user "$ccuname" in domain $ccdomain</h2>  
 <script type="text/javascript" language="Javascript">  <script type="text/javascript" language="Javascript">
 $loginscript  $loginscript
 </script>  </script>
 <input type='hidden' name='makeuser' value='1' />  <input type='hidden' name='makeuser' value='1' />
 <h3>Personal Data</h3>  <h2>$lt{'cnu'} "$ccuname" $lt{'ind'} $ccdomain</h2>
 <p>  ENDTITLE
 <table>          $r->print('<div class="LC_left_float">'.
 <tr><td>First Name  </td>                    &personal_data_display($ccuname,$ccdomain,$newuser,
     <td><input type='text' name='cfirst'  size='15' /></td></tr>                                           %inst_results));
 <tr><td>Middle Name </td>           my ($home_server_pick,$numlib) = 
     <td><input type='text' name='cmiddle' size='15' /></td></tr>              &Apache::loncommon::home_server_form_item($ccdomain,'hserver',
 <tr><td>Last Name   </td>                                                        'default','hide');
     <td><input type='text' name='clast'   size='15' /></td></tr>          if ($numlib > 1) {
 <tr><td>Generation  </td>              $r->print("
     <td><input type='text' name='cgen'    size='5'  /></td></tr>  <br />
 </table>  $lt{'hs'}: $home_server_pick
 ID/Student Number <input type='text' name='cstid'   size='15' /></p>  <br />");
 Home Server: <select name="hserver" size="1"> $home_server_list </select>          } else {
 <hr />              $r->print($home_server_pick);
 <h3>Login Data</h3>          }
 <p>$generalrule </p>          $r->print('</div>'."\n".'<div class="LC_left_float"><h3>'.
 <p>$authformkrb </p>                    $lt{'lg'}.'</h3>');
 <p>$authformint </p>          my ($fixedauth,$varauth,$authmsg); 
 <p>$authformfsys</p>          if (ref($rulematch{$ccuname.':'.$ccdomain}) eq 'HASH') {
 <p>$authformloc </p>              my $matchedrule = $rulematch{$ccuname.':'.$ccdomain}{'username'};
 ENDNEWUSER              my ($rules,$ruleorder) = 
                   &Apache::lonnet::inst_userrules($ccdomain,'username');
               if (ref($rules) eq 'HASH') {
                   if (ref($rules->{$matchedrule}) eq 'HASH') {
                       my $authtype = $rules->{$matchedrule}{'authtype'};
                       if ($authtype !~ /^(krb4|krb5|int|fsys|loc)$/) {
                           $r->print(&Apache::lonuserutils::set_login($ccdomain,$authformkrb,$authformint,$authformloc));
                       } else { 
                           my $authparm = $rules->{$matchedrule}{'authparm'};
                           if ($authtype =~ /^krb(4|5)$/) {
                               my $ver = $1;
                               if ($authparm ne '') {
                                   $fixedauth = <<"KERB"; 
   <input type="hidden" name="login" value="krb" />
   <input type="hidden" name="krbver" value="$ver" />
   <input type="hidden" name="krbarg" value="$authparm" />
   KERB
                                   $authmsg = $rules->{$matchedrule}{'authmsg'};    
                               }
                           } else {
                               $fixedauth = 
   '<input type="hidden" name="login" value="'.$authtype.'" />'."\n";
                               if ($rules->{$matchedrule}{'authparmfixed'}) {
                                   $fixedauth .=    
   '<input type="hidden" name="'.$authtype.'arg" value="'.$authparm.'" />'."\n";
                               } else {
                                   $varauth =  
   '<input type="text" name="'.$authtype.'arg" value="" />'."\n";
                               }
                           }
                       }
                   } else {
                       $r->print(&Apache::lonuserutils::set_login($ccdomain,$authformkrb,$authformint,$authformloc));
                   }
               }
               if ($authmsg) {
                   $r->print(<<ENDAUTH);
   $fixedauth
   $authmsg
   $varauth
   ENDAUTH
               }
           } else {
               $r->print(&Apache::lonuserutils::set_login($ccdomain,$authformkrb,$authformint,$authformloc)); 
           }
           $r->print(<<ENDPORT);
           $portfolioform
   </div><div class="LC_clear_float_footer"></div>
   ENDPORT
     } else { # user already exists      } else { # user already exists
    my %lt=&Apache::lonlocal::texthash(
                       'cup'  => "Modify existing user: ",
                       'id'   => "in domain",
          );
  $r->print(<<ENDCHANGEUSER);   $r->print(<<ENDCHANGEUSER);
 $dochead  $start_page
 <h1>Change User Privileges</h1>  $crumbs
 $forminfo  $forminfo
 <h2>User "$ccuname" in domain $ccdomain </h2>  <h2>$lt{'cup'} "$ccuname" $lt{'id'} "$ccdomain"</h2>
 ENDCHANGEUSER  ENDCHANGEUSER
         # Get the users information          $r->print('<div class="LC_left_float">'.
         my %userenv = &Apache::lonnet::get('environment',                    &personal_data_display($ccuname,$ccdomain,$newuser,
                           ['firstname','middlename','lastname','generation'],                                           %inst_results));
                           $ccdomain,$ccuname);          if ($context eq 'domain') {
         my %rolesdump=&Apache::lonnet::dump('roles',$ccdomain,$ccuname);              $r->print(&Apache::lonuserutils::forceid_change());
         $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);          $r->print('</div>');
 </tr>          my $user_auth_text = 
 </table>              &user_authentication($ccuname,$ccdomain,$krbdefdom,\%abv_auth);
 END          my $user_quota_text;
           if (&Apache::lonnet::allowed('mpq',$ccdomain)) {
               # Current user has quota modification privileges
               $user_quota_text = &portfolio_quota($ccuname,$ccdomain);
           } elsif (&Apache::lonnet::allowed('mpq',$env{'request.role.domain'})) {
               # Get the user's portfolio information
               my %portq = &Apache::lonnet::get('environment',['portfolioquota'],
                                                $ccdomain,$ccuname);
   
               my %lt=&Apache::lonlocal::texthash(
                   'dska'  => "Disk space allocated to user's portfolio files",
                   'youd'  => "You do not have privileges to modify the portfolio quota for this user.",
                   'ichr'  => "If a change is required, contact a domain coordinator for the domain",
               );
               $user_quota_text = <<ENDNOPORTPRIV;
   <h3>$lt{'dska'}</h3>
   $lt{'youd'} $lt{'ichr'}: $ccdomain
   ENDNOPORTPRIV
           }
           if ($user_auth_text ne '') {
               $r->print('<div class="LC_left_float">'.$user_auth_text);
               if ($user_quota_text ne '') {
                   $r->print($user_quota_text);
               }
               $r->print('</div>');
   
           } elsif ($user_quota_text ne '') {
               $r->print('<div class="LC_left_float">'.$user_quota_text.'</div>');
           }
           $r->print('<div class="LC_clear_float_footer"></div>');
           my %rolesdump=&Apache::lonnet::dump('roles',$ccdomain,$ccuname);
         # Build up table of user roles to allow revocation of a role.          # Build up table of user roles to allow revocation of a role.
         my ($tmp) = keys(%rolesdump);          my ($tmp) = keys(%rolesdump);
         unless ($tmp =~ /^(con_lost|error)/i) {          unless ($tmp =~ /^(con_lost|error)/i) {
            my $now=time;             my $now=time;
            $r->print(<<END);     my %lt=&Apache::lonlocal::texthash(
 <hr />      'rer'  => "Existing Roles",
 <h3>Revoke Existing Roles</h3>                      'rev'  => "Revoke",                    
 <table border=2>                      'del'  => "Delete",
 <tr><th>Revoke</th><th>Role</th><th>Extent</th><th>Start</th><th>End</th>      'ren'  => "Re-Enable",
 END                      'rol'  => "Role",
    foreach my $area (keys(%rolesdump)) {                      'ext'  => "Extent",
                       'sta'  => "Start",
                       'end'  => "End"
          );
              my (%roletext,%sortrole,%roleclass,%rolepriv);
      foreach my $area (sort { my $a1=join('_',(split('_',$a))[1,0]);
       my $b1=join('_',(split('_',$b))[1,0]);
       return $a1 cmp $b1;
    } keys(%rolesdump)) {
                next if ($area =~ /^rolesdef/);                 next if ($area =~ /^rolesdef/);
          my $envkey=$area;
                my $role = $rolesdump{$area};                 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) =                  my ($role_code,$role_end_time,$role_start_time) = 
                    split(/_/,$role);                     split(/_/,$role);
                my $bgcol='ffffff';  # Is this a custom role? Get role owner and title.
          my ($croleudom,$croleuname,$croletitle)=
              ($role_code=~m{^cr/($match_domain)/($match_username)/(\w+)$});
                my $allowed=0;                 my $allowed=0;
                if ($area =~ /^\/(\w+)\/(\d\w+)/ ) {                 my $delallowed=0;
          my $sortkey=$role_code;
          my $class='Unknown';
                  if ($area =~ m{^/($match_domain)/($match_courseid)} ) {
      $class='Course';
                      my ($coursedom,$coursedir) = ($1,$2);
      $sortkey.="\0$coursedom";
                      # $1.'_'.$2 is the course id (eg. 103_12345abcef103l3).
                    my %coursedata=                     my %coursedata=
                        &Apache::lonnet::coursedescription($1.'_'.$2);                         &Apache::lonnet::coursedescription($1.'_'.$2);
                    my $carea='Course: '.$coursedata{'description'};     my $carea;
      if (defined($coursedata{'description'})) {
          $carea=$coursedata{'description'}.
                              '<br />'.&mt('Domain').': '.$coursedom.('&nbsp;'x8).
        &Apache::loncommon::syllabuswrapper('Syllabus',$coursedir,$coursedom);
          $sortkey.="\0".$coursedata{'description'};
                          $class=$coursedata{'type'};
      } else {
          $carea=&mt('Unavailable course').': '.$area;
          $sortkey.="\0".&mt('Unavailable course').': '.$area;
      }
      $sortkey.="\0$coursedir";
                    $inccourses{$1.'_'.$2}=1;                     $inccourses{$1.'_'.$2}=1;
                    if (&Apache::lonnet::allowed('c'.$role_code,$1.'/'.$2)) {                     if ((&Apache::lonnet::allowed('c'.$role_code,$1.'/'.$2)) ||
                          (&Apache::lonnet::allowed('c'.$role_code,$ccdomain))) {
                        $allowed=1;                         $allowed=1;
                    }                     }
                      if ((&Apache::lonnet::allowed('dro',$1)) ||
                          (&Apache::lonnet::allowed('dro',$ccdomain))) {
                          $delallowed=1;
                      }
   # - custom role. Needs more info, too
      if ($croletitle) {
          if (&Apache::lonnet::allowed('ccr',$1.'/'.$2)) {
      $allowed=1;
      $thisrole.='.'.$role_code;
          }
      }
                    # Compute the background color based on $area                     # Compute the background color based on $area
                    $bgcol=$1.'_'.$2;                     if ($area=~m{^/($match_domain)/($match_courseid)/(\w+)}) {
                    $bgcol=~s/[^8-9b-e]//g;                         $carea.='<br />Section: '.$3;
                    $bgcol=substr($bgcol.$bgcol.$bgcol.'ffffff',0,6);         $sortkey.="\0$3";
                    if ($area=~/^\/(\w+)\/(\d\w+)\/(\w+)/) {  
                        $carea.='<br>Section/Group: '.$3;  
                    }                     }
                    $area=$carea;                     $area=$carea;
                } else {                 } else {
      $sortkey.="\0".$area;
                    # Determine if current user is able to revoke privileges                     # Determine if current user is able to revoke privileges
                    if ($area=~ /^\/(\w+)\//) {                     if ($area=~m{^/($match_domain)/}) {
                        if (&Apache::lonnet::allowed('c'.$role_code,$1)) {                         if ((&Apache::lonnet::allowed('c'.$role_code,$1)) ||
                          (&Apache::lonnet::allowed('c'.$role_code,$ccdomain))) {
                            $allowed=1;                             $allowed=1;
                        }                         }
                          if (((&Apache::lonnet::allowed('dro',$1))  ||
                               (&Apache::lonnet::allowed('dro',$ccdomain))) &&
                              ($role_code ne 'dc')) {
                              $delallowed=1;
                          }
                    } else {                     } else {
                        if (&Apache::lonnet::allowed('c'.$role_code,'/')) {                         if (&Apache::lonnet::allowed('c'.$role_code,'/')) {
                            $allowed=1;                             $allowed=1;
                        }                         }
                    }                     }
      if ($role_code eq 'ca' || $role_code eq 'au') {
          $class='Construction Space';
      } elsif ($role_code eq 'su') {
          $class='System';
      } else {
          $class='Domain';
      }
                }                 }
                if ($role_code eq 'ca') {                 if (($role_code eq 'ca') || ($role_code eq 'aa')) {
                    $area=~/\/(\w+)\/(\w+)/;                     $area=~m{/($match_domain)/($match_username)};
    if (&authorpriv($2,$1)) {     if (&authorpriv($2,$1)) {
        $allowed=1;         $allowed=1;
                    } else {                     } else {
Line 326  END Line 932  END
                    }                     }
                }                 }
                my $row = '';                 my $row = '';
                $row.='<tr bgcolor=#"'.$bgcol.'"><td>';                 $row.= '<td>';
                my $active=1;                 my $active=1;
                $active=0 if (($role_end_time) && ($now>$role_end_time));                 $active=0 if (($role_end_time) && ($now>$role_end_time));
                if (($active) && ($allowed)) {                 if (($active) && ($allowed)) {
                    $row.= '<input type="checkbox" name="rev:'.$thisrole.'">';                     $row.= '<input type="checkbox" name="rev:'.$thisrole.'" />';
                  } else {
                      if ($active) {
                         $row.='&nbsp;';
      } else {
                         $row.=&mt('expired or revoked');
      }
                  }
          $row.='</td><td>';
                  if ($allowed && !$active) {
                      $row.= '<input type="checkbox" name="ren:'.$thisrole.'" />';
                  } else {
                      $row.='&nbsp;';
                  }
          $row.='</td><td>';
                  if ($delallowed) {
                      $row.= '<input type="checkbox" name="del:'.$thisrole.'" />';
                } else {                 } else {
                    $row.='&nbsp;';                     $row.='&nbsp;';
                }                 }
                $row.= '</td><td>'.&Apache::lonnet::plaintext($role_code).         my $plaintext='';
          if (!$croletitle) {
                      $plaintext=&Apache::lonnet::plaintext($role_code,$class)
          } else {
              $plaintext=
    "Customrole '$croletitle'<br />defined by $croleuname\@$croleudom";
          }
                  $row.= '</td><td>'.$plaintext.
                       '</td><td>'.$area.                        '</td><td>'.$area.
                       '</td><td>'.($role_start_time?localtime($role_start_time)                        '</td><td>'.($role_start_time?localtime($role_start_time)
                                                    : '&nbsp;' ).                                                     : '&nbsp;' ).
                       '</td><td>'.($role_end_time  ?localtime($role_end_time)                        '</td><td>'.($role_end_time  ?localtime($role_end_time)
                                                    : '&nbsp;' )                                                     : '&nbsp;' )
                       ."</td></tr>\n";                        ."</td>";
                $r->print($row);         $sortrole{$sortkey}=$envkey;
          $roletext{$envkey}=$row;
          $roleclass{$envkey}=$class;
                  $rolepriv{$envkey}=$allowed;
                  #$r->print($row);
            } # end of foreach        (table building loop)             } # end of foreach        (table building loop)
    $r->print('</table>');             my $rolesdisplay = 0;
              my %output = ();
      foreach my $type ('Construction Space','Course','Group','Domain','System','Unknown') {
          $output{$type} = '';
          foreach my $which (sort {uc($a) cmp uc($b)} (keys(%sortrole))) {
      if ( ($roleclass{$sortrole{$which}} =~ /^\Q$type\E/ ) && ($rolepriv{$sortrole{$which}}) ) { 
          $output{$type}.=
                                &Apache::loncommon::start_data_table_row().
                                $roletext{$sortrole{$which}}.
                                &Apache::loncommon::end_data_table_row();
      }
          }
          unless($output{$type} eq '') {
      $output{$type} = '<tr class="LC_info_row">'.
        "<td align='center' colspan='7'>".&mt($type)."</td></tr>".
                                 $output{$type};
                      $rolesdisplay = 1;
          }
      }
              if ($rolesdisplay == 1) {
                  $r->print('
   <h3>'.$lt{'rer'}.'</h3>'.
   &Apache::loncommon::start_data_table("LC_createuser").
   &Apache::loncommon::start_data_table_header_row().
   '<th>'.$lt{'rev'}.'</th><th>'.$lt{'ren'}.'</th><th>'.$lt{'del'}.
   '</th><th>'.$lt{'rol'}.'</th><th>'.$lt{'ext'}.
   '</th><th>'.$lt{'sta'}.'</th><th>'.$lt{'end'}.'</th>'.
   &Apache::loncommon::end_data_table_header_row());
                  foreach my $type ('Construction Space','Course','Group','Domain','System','Unknown') {
                      if ($output{$type}) {
                          $r->print($output{$type}."\n");
                      }
                  }
          $r->print(&Apache::loncommon::end_data_table());
              }
         }  # End of unless          }  # End of unless
  my $currentauth=&Apache::lonnet::queryauthenticate($ccuname,$ccdomain);  
  if ($currentauth=~/^krb(4|5):/) {  
     $currentauth=~/^krb(4|5):(.*)/;  
     my $krbdefdom=$1;  
             my %param = ( formname => 'document.cu',  
                           kerb_def_dom => $krbdefdom   
                           );  
             $loginscript  = &Apache::loncommon::authform_header(%param);  
  }  
  # Check for a bad authentication type  
         unless ($currentauth=~/^krb(4|5):/ or  
  $currentauth=~/^unix:/ or  
  $currentauth=~/^internal:/ or  
  $currentauth=~/^localauth:/  
  ) { # bad authentication scheme  
     if (&Apache::lonnet::allowed('mau',$ENV{'request.role.domain'})) {  
  $r->print(<<ENDBADAUTH);  
 <hr />  
 <script type="text/javascript" language="Javascript">  
 $loginscript  
 </script>  
 <font color='#ff0000'>ERROR:</font>  
 This user has an unrecognized authentication scheme ($currentauth).  
 Please specify login data below.  
 <h3>Login Data</h3>  
 <p>$generalrule</p>  
 <p>$authformkrb</p>  
 <p>$authformint</p>  
 <p>$authformfsys</p>  
 <p>$authformloc</p>  
 ENDBADAUTH  
             } else {   
                 # This user is not allowed to modify the users   
                 # authentication scheme, so just notify them of the problem  
  $r->print(<<ENDBADAUTH);  
 <hr />  
 <script type="text/javascript" language="Javascript">  
 $loginscript  
 </script>  
 <font color="#ff0000"> ERROR: </font>  
 This user has an unrecognized authentication scheme ($currentauth).  
 Please alert a domain coordinator of this situation.  
 <hr />  
 ENDBADAUTH  
             }  
         } else { # Authentication type is valid  
     my $authformcurrent='';  
     my $authform_other='';  
     if ($currentauth=~/^krb(4|5):/) {  
  $authformcurrent=$authformkrb;  
  $authform_other="<p>$authformint</p>\n".  
                     "<p>$authformfsys</p><p>$authformloc</p>";  
     }  
     elsif ($currentauth=~/^internal:/) {  
  $authformcurrent=$authformint;  
  $authform_other="<p>$authformkrb</p>".  
                     "<p>$authformfsys</p><p>$authformloc</p>";  
     }  
     elsif ($currentauth=~/^unix:/) {  
  $authformcurrent=$authformfsys;  
  $authform_other="<p>$authformkrb</p>".  
                     "<p>$authformint</p><p>$authformloc;</p>";  
     }  
     elsif ($currentauth=~/^localauth:/) {  
  $authformcurrent=$authformloc;  
  $authform_other="<p>$authformkrb</p>".  
                     "<p>$authformint</p><p>$authformfsys</p>";  
     }  
     $authformcurrent=<<ENDCURRENTAUTH;  
 <table border='1'>  
 <tr>  
 <td><font color='#ff0000'>* * * WARNING * * *</font></td>  
 <td><font color='#ff0000'>* * * WARNING * * *</font></td>  
 </tr>  
 <tr><td bgcolor='#cbbcbb'>$authformcurrent</td>  
 <td bgcolor='#cbbcbb'>Changing this value will overwrite existing authentication for the user; you should notify the user of this change.</td></tr>  
 </table>  
 ENDCURRENTAUTH  
             if (&Apache::lonnet::allowed('mau',$ENV{'request.role.domain'})) {  
  # Current user has login modification privileges  
  $r->print(<<ENDOTHERAUTHS);  
 <hr />  
 <script type="text/javascript" language="Javascript">  
 $loginscript  
 </script>  
 <h3>Change Current Login Data</h3>  
 <p>$generalrule</p>  
 <p>$authformnop</p>  
 <p>$authformcurrent</p>  
 <h3>Enter New Login Data</h3>  
 $authform_other  
 ENDOTHERAUTHS  
             }  
         }  ## End of "check for bad authentication type" logic  
     } ## End of new user/old user logic      } ## End of new user/old user logic
     $r->print('<hr /><h3>Add Roles</h3>');      my $addrolesdisplay = 0;
       $r->print('<h3>'.&mt('Add Roles').'</h3>');
 #  #
 # Co-Author  # Co-Author
 #   # 
     if (&authorpriv($ENV{'user.name'},$ENV{'request.role.domain'}) &&      if (&authorpriv($env{'user.name'},$env{'request.role.domain'}) &&
         ($ENV{'user.name'} ne $ccuname || $ENV{'user.domain'} ne $ccdomain)) {          ($env{'user.name'} ne $ccuname || $env{'user.domain'} ne $ccdomain)) {
         # No sense in assigning co-author role to yourself          # No sense in assigning co-author role to yourself
  my $cuname=$ENV{'user.name'};          $addrolesdisplay = 1;
         my $cudom=$ENV{'request.role.domain'};   my $cuname=$env{'user.name'};
        $r->print(<<ENDCOAUTH);          my $cudom=$env{'request.role.domain'};
 <h4>Construction Space</h4>     my %lt=&Apache::lonlocal::texthash(
 <table border=2><tr><th>Activate</th><th>Role</th><th>Extent</th>      'cs'   => "Construction Space",
 <th>Start</th><th>End</th></tr>                      'act'  => "Activate",                    
 <tr>                      'rol'  => "Role",
 <td><input type=checkbox name="act_$cudom\_$cuname\_ca"></td>                      'ext'  => "Extent",
 <td>Co-Author</td>                      'sta'  => "Start",
 <td>$cudom\_$cuname</td>                      'end'  => "End",
 <td><input type=hidden name="start_$cudom\_$cuname\_ca" value=''>                      'cau'  => "Co-Author",
                       'caa'  => "Assistant Co-Author",
                       'ssd'  => "Set Start Date",
                       'sed'  => "Set End Date"
          );
          $r->print('<h4>'.$lt{'cs'}.'</h4>'."\n". 
              &Apache::loncommon::start_data_table()."\n".
              &Apache::loncommon::start_data_table_header_row()."\n".
              '<th>'.$lt{'act'}.'</th><th>'.$lt{'rol'}.'</th>'.
              '<th>'.$lt{'ext'}.'</th><th>'.$lt{'sta'}.'</th>'.
              '<th>'.$lt{'end'}.'</th>'."\n".
              &Apache::loncommon::end_data_table_header_row()."\n".
              &Apache::loncommon::start_data_table_row()."\n".
              '<td>
               <input type=checkbox name="act_'.$cudom.'_'.$cuname.'_ca" />
              </td>
              <td>'.$lt{'cau'}.'</td>
              <td>'.$cudom.'_'.$cuname.'</td>
              <td><input type="hidden" name="start_'.$cudom.'_'.$cuname.'_ca" value="" />
                <a href=
   "javascript:pjump('."'date_start','Start Date Co-Author',document.cu.start_$cudom\_$cuname\_ca.value,'start_$cudom\_$cuname\_ca','cu.pres','dateset'".')">'.$lt{'ssd'}.'</a></td>
   <td><input type="hidden" name="end_'.$cudom.'_'.$cuname.'_ca" value="" />
 <a href=  <a href=
 "javascript:pjump('date_start','Start Date Co-Author',document.cu.start_$cudom\_$cuname\_ca.value,'start_$cudom\_$cuname\_ca','cu.pres','dateset')">Set Start Date</a></td>  "javascript:pjump('."'date_end','End Date Co-Author',document.cu.end_$cudom\_$cuname\_ca.value,'end_$cudom\_$cuname\_ca','cu.pres','dateset'".')">'.$lt{'sed'}.'</a></td>'."\n".
 <td><input type=hidden name="end_$cudom\_$cuname\_ca" value=''>            &Apache::loncommon::end_data_table_row()."\n".
             &Apache::loncommon::start_data_table_row()."\n".
   '<td><input type=checkbox name="act_'.$cudom.'_'.$cuname.'_aa" /></td>
   <td>'.$lt{'caa'}.'</td>
   <td>'.$cudom.'_'.$cuname.'</td>
   <td><input type="hidden" name="start_'.$cudom.'_'.$cuname.'_aa" value="" />
 <a href=  <a href=
 "javascript:pjump('date_end','End Date Co-Author',document.cu.end_$cudom\_$cuname\_ca.value,'end_$cudom\_$cuname\_ca','cu.pres','dateset')">Set End Date</a></td>  "javascript:pjump('."'date_start','Start Date Assistant Co-Author',document.cu.start_$cudom\_$cuname\_aa.value,'start_$cudom\_$cuname\_aa','cu.pres','dateset'".')">'.$lt{'ssd'}.'</a></td>
 </tr>  <td><input type="hidden" name="end_'.$cudom.'_'.$cuname.'_aa" value="" />
 </table>  <a href=
 ENDCOAUTH  "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());
       } elsif ($env{'request.role'} =~ /^au\./) {
           if (!(&authorpriv($env{'user.name'},$env{'request.role.domain'}))) {
               $r->print('<span class="LC_error">'.
                         &mt('You do not have privileges to assign co-author roles.').
                         '</span>');
           } elsif (($env{'user.name'} eq $ccuname) && 
                ($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'));
           }
     }      }
 #  #
 # Domain level  # Domain level
 #  #
     $r->print('<h4>Domain Level</h4>'.      my $num_domain_level = 0;
     '<table border=2><tr><th>Activate</th><th>Role</th><th>Extent</th>'.      my $domaintext = 
     '<th>Start</th><th>End</th></tr>');      '<h4>'.&mt('Domain Level').'</h4>'.
     foreach ( sort( keys(%incdomains))) {      &Apache::loncommon::start_data_table().
  my $thisdomain=$_;      &Apache::loncommon::start_data_table_header_row().
         foreach ('dc','li','dg','au') {      '<th>'.&mt('Activate').'</th><th>'.&mt('Role').'</th><th>'.
             if (&Apache::lonnet::allowed('c'.$_,$thisdomain)) {      &mt('Extent').'</th>'.
                my $plrole=&Apache::lonnet::plaintext($_);      '<th>'.&mt('Start').'</th><th>'.&mt('End').'</th>'.
                $r->print(<<ENDDROW);      &Apache::loncommon::end_data_table_header_row();
 <tr>      foreach my $thisdomain (sort(&Apache::lonnet::all_domains())) {
 <td><input type=checkbox name="act_$thisdomain\_$_"></td>          foreach my $role ('dc','li','dg','au','sc') {
 <td>$plrole</td>              if (&Apache::lonnet::allowed('c'.$role,$thisdomain)) {
 <td>$thisdomain</td>                 my $plrole=&Apache::lonnet::plaintext($role);
 <td><input type=hidden name="start_$thisdomain\_$_" value=''>         my %lt=&Apache::lonlocal::texthash(
                       'ssd'  => "Set Start Date",
                       'sed'  => "Set End Date"
          );
                  $num_domain_level ++;
                  $domaintext .= 
   &Apache::loncommon::start_data_table_row().
   '<td><input type=checkbox name="act_'.$thisdomain.'_'.$role.'" /></td>
   <td>'.$plrole.'</td>
   <td>'.$thisdomain.'</td>
   <td><input type="hidden" name="start_'.$thisdomain.'_'.$role.'" value="" />
 <a href=  <a href=
 "javascript:pjump('date_start','Start Date $plrole',document.cu.start_$thisdomain\_$_.value,'start_$thisdomain\_$_','cu.pres','dateset')">Set Start Date</a></td>  "javascript:pjump('."'date_start','Start Date $plrole',document.cu.start_$thisdomain\_$role.value,'start_$thisdomain\_$role','cu.pres','dateset'".')">'.$lt{'ssd'}.'</a></td>
 <td><input type=hidden name="end_$thisdomain\_$_" value=''>  <td><input type="hidden" name="end_'.$thisdomain.'_'.$role.'" value="" />
 <a href=  <a href=
 "javascript:pjump('date_end','End Date $plrole',document.cu.end_$thisdomain\_$_.value,'end_$thisdomain\_$_','cu.pres','dateset')">Set End Date</a></td>  "javascript:pjump('."'date_end','End Date $plrole',document.cu.end_$thisdomain\_$role.value,'end_$thisdomain\_$role','cu.pres','dateset'".')">'.$lt{'sed'}.'</a></td>'.
 </tr>  &Apache::loncommon::end_data_table_row();
 ENDDROW  
             }              }
         }           } 
     }      }
     $r->print('</table>');      $domaintext.= &Apache::loncommon::end_data_table();
       if ($num_domain_level > 0) {
           $r->print($domaintext);
           $addrolesdisplay = 1;
       }
 #  #
 # Course level  # Course level
 #  #
     $r->print(&course_level_table(%inccourses));  
     $r->print("<hr /><input type=submit value=\"Modify User\">\n");      if ($env{'request.role'} =~ m{^dc\./($match_domain)/$}) {
     $r->print("</form></body></html>");          $r->print(&course_level_dc($1,'Course'));
           $r->print('<br /><input type="button" value="'.&mt('Modify User').'" onClick="setCourse()" />'."\n");
       } elsif ($env{'request.role'} =~ m{^au\./($match_domain)/$}) {
           if ($addrolesdisplay) {
               $r->print('<br /><input type="button" value="'.&mt('Modify User').'"');
               if ($newuser) {
                   $r->print(' onClick="verify_message(this.form)" \>'."\n");
               } else {
                   $r->print('onClick="this.form.submit()" \>'."\n"); 
               }
           } else {
               $r->print('<br /><a href="javascript:backPage(document.cu)">'.
                         &mt('Back to previous page').'</a>');
           }
       } else {
           $r->print(&course_level_table(%inccourses));
           $r->print('<br /><input type="button" value="'.&mt('Modify User').'" onClick="setSections(this.form)" />'."\n");
       }
       $r->print(&Apache::lonhtmlcommon::echo_form_input(['phase','userrole','ccdomain','prevphase','currstate','ccuname','ccdomain']));
       $r->print('<input type="hidden" name="currstate" value="" />');
       $r->print('<input type="hidden" name="prevphase" value="'.$env{'form.phase'}.'" />');
       $r->print("</form>".&Apache::loncommon::end_page());
   }
   
   sub user_authentication {
       my ($ccuname,$ccdomain,$krbdefdom,$abv_auth) = @_;
       my $currentauth=&Apache::lonnet::queryauthenticate($ccuname,$ccdomain);
       my ($loginscript,$outcome);
       if ($currentauth=~/^(krb)(4|5):(.*)/) {
           my $long_auth = $1.$2;
           my $curr_kerb_ver = $2;
           my $krbdefdom=$3;
           my $curr_authtype = $abv_auth->{$long_auth};
           my %param = ( formname      => 'document.cu',
                         kerb_def_dom  => $krbdefdom,
                         domain        => $ccdomain,
                         curr_authtype => $curr_authtype,
                         curr_kerb_ver => $curr_kerb_ver,
                             );
           $loginscript  = &Apache::loncommon::authform_header(%param);
       }
       # Check for a bad authentication type
       if ($currentauth !~ /^(krb4|krb5|unix|internal|localauth):/) {
           # bad authentication scheme
           my %lt=&Apache::lonlocal::texthash(
                          'err'   => "ERROR",
                          'uuas'  => "This user has an unrecognized authentication scheme",
                          'adcs'  => "Please alert a domain coordinator of this situation",
                          'sldb'  => "Please specify login data below",
                          'ld'    => "Login Data"
           );
           if (&Apache::lonnet::allowed('mau',$ccdomain)) {
               &initialize_authen_forms($ccdomain);
               my $choices = &Apache::lonuserutils::set_login($ccdomain,$authformkrb,$authformint,$authformloc);
               $outcome = <<ENDBADAUTH;
   <script type="text/javascript" language="Javascript">
   $loginscript
   </script>
   <span class="LC_error">$lt{'err'}:
   $lt{'uuas'} ($currentauth). $lt{'sldb'}.</span>
   <h3>$lt{'ld'}</h3>
   $choices
   ENDBADAUTH
           } else {
               # This user is not allowed to modify the user's
               # authentication scheme, so just notify them of the problem
               $outcome = <<ENDBADAUTH;
   <span class="LC_error"> $lt{'err'}: 
   $lt{'uuas'} ($currentauth). $lt{'adcs'}.
   </span>
   ENDBADAUTH
           }
       } else { # Authentication type is valid
           &initialize_authen_forms($ccdomain,$currentauth);
           my ($authformcurrent,$authform_other,$can_modify) =
               &modify_login_block($ccdomain,$currentauth);
           if (&Apache::lonnet::allowed('mau',$ccdomain)) {
               # Current user has login modification privileges
               my %lt=&Apache::lonlocal::texthash (
                              'ld'    => "Login Data",
                              'ccld'  => "Change Current Login Data",
                              'enld'  => "Enter New Login Data"
                                                  );
               $outcome =
                          '<script type="text/javascript" language="Javascript">'."\n".
                          $loginscript."\n".
                          '</script>'."\n".
                          '<h3>'.$lt{'ld'}.'</h3>'.
                          &Apache::loncommon::start_data_table().
                          &Apache::loncommon::start_data_table_row().
                          '<td>'.$authformnop;
               if ($can_modify) {
                   $outcome .= '</td>'."\n".
                               &Apache::loncommon::end_data_table_row().
                               &Apache::loncommon::start_data_table_row().
                               '<td>'.$authformcurrent.'</td>'.
                               &Apache::loncommon::end_data_table_row()."\n";
               } else {
                   $outcome .= '&nbsp;('.$authformcurrent.')</td>';
               }
               if ($authform_other ne '') {
                   $outcome .= $authform_other;
               }
               $outcome .= &Apache::loncommon::end_data_table_row().
                           &Apache::loncommon::end_data_table();
           } else {
               if (&Apache::lonnet::allowed('mau',$env{'request.role.domain'})) {
                   my %lt=&Apache::lonlocal::texthash(
                              'ccld'  => "Change Current Login Data",
                              'yodo'  => "You do not have privileges to modify the authentication configuration for this user.",
                              'ifch'  => "If a change is required, contact a domain coordinator for the domain",
                   );
                   $outcome .= <<ENDNOPRIV;
   <h3>$lt{'ccld'}</h3>
   $lt{'yodo'} $lt{'ifch'}: $ccdomain
   ENDNOPRIV
               }
           }
       }  ## End of "check for bad authentication type" logic
       return $outcome;
   }
   
   sub modify_login_block {
       my ($dom,$currentauth) = @_;
       my %domconfig = &Apache::lonnet::get_dom('configuration',['usercreation'],$dom);
       my ($authnum,%can_assign) =
           &Apache::loncommon::get_assignable_auth($dom);
       my ($authformcurrent,$authform_other,$show_override_msg);
       if ($currentauth=~/^krb(4|5):/) {
           $authformcurrent=$authformkrb;
           if ($can_assign{'int'}) {
               $authform_other = &Apache::loncommon::start_data_table_row().
                                 '<td>'.$authformint.'</td>'.
                                 &Apache::loncommon::end_data_table_row()."\n"
           }
           if ($can_assign{'loc'}) {
               $authform_other .= &Apache::loncommon::start_data_table_row().
                                  '<td>'.$authformloc.'</td>'.
                                  &Apache::loncommon::end_data_table_row()."\n";
           }
           if (($can_assign{'krb4'}) || ($can_assign{'krb5'})) {
               $show_override_msg = 1;
           }
       } elsif ($currentauth=~/^internal:/) {
           $authformcurrent=$authformint;
           if (($can_assign{'krb4'}) || ($can_assign{'krb5'})) {
               $authform_other = &Apache::loncommon::start_data_table_row().
                                 '<td>'.$authformkrb.'</td>'.
                                 &Apache::loncommon::end_data_table_row()."\n";
           }
           if ($can_assign{'loc'}) {
               $authform_other .= &Apache::loncommon::start_data_table_row().
                                  '<td>'.$authformloc.'</td>'.
                                  &Apache::loncommon::end_data_table_row()."\n";
           }
           if ($can_assign{'int'}) {
               $show_override_msg = 1;
           }
       } elsif ($currentauth=~/^unix:/) {
           $authformcurrent=$authformfsys;
           if (($can_assign{'krb4'}) || ($can_assign{'krb5'})) {
               $authform_other = &Apache::loncommon::start_data_table_row().
                                 '<td>'.$authformkrb.'</td>'.
                                 &Apache::loncommon::end_data_table_row()."\n";
           }
           if ($can_assign{'int'}) {
               $authform_other .= &Apache::loncommon::start_data_table_row().
                                  '<td>'.$authformint.'</td>'.
                                  &Apache::loncommon::end_data_table_row()."\n"
           }
           if ($can_assign{'loc'}) {
               $authform_other .= &Apache::loncommon::start_data_table_row().
                                  '<td>'.$authformloc.'</td>'.
                                  &Apache::loncommon::end_data_table_row()."\n";
           }
           if ($can_assign{'fsys'}) {
               $show_override_msg = 1;
           }
       } elsif ($currentauth=~/^localauth:/) {
           $authformcurrent=$authformloc;
           if (($can_assign{'krb4'}) || ($can_assign{'krb5'})) {
               $authform_other = &Apache::loncommon::start_data_table_row().
                                 '<td>'.$authformkrb.'</td>'.
                                 &Apache::loncommon::end_data_table_row()."\n";
           }
           if ($can_assign{'int'}) {
               $authform_other .= &Apache::loncommon::start_data_table_row().
                                  '<td>'.$authformint.'</td>'.
                                  &Apache::loncommon::end_data_table_row()."\n"
           }
           if ($can_assign{'loc'}) {
               $show_override_msg = 1;
           }
       }
       if ($show_override_msg) {
           $authformcurrent.= ' <span class="LC_cusr_emph">'.
                               &mt('will override current values').
                               '</span><br />';
       }
       return ($authformcurrent,$authform_other,$show_override_msg); 
   }
   
   sub personal_data_display {
       my ($ccuname,$ccdomain,$newuser,%inst_results) = @_; 
       my ($output,%userenv);
       if (!$newuser) {
           # Get the users information
           %userenv = &Apache::lonnet::get('environment',
                      ['firstname','middlename','lastname','generation',
                       'permanentemail','id'],$ccdomain,$ccuname);
       }
       my %lt=&Apache::lonlocal::texthash(
                   'pd'             => "Personal Data",
                   'firstname'      => "First Name",
                   'middlename'     => "Middle Name",
                   'lastname'       => "Last Name",
                   'generation'     => "Generation",
                   'permanentemail' => "Permanent e-mail address",
                   'id'             => "ID/Student Number",
                   'lg'             => "Login Data"
       );
       my @userinfo = ('firstname','middlename','lastname','generation',
                       'permanentemail','id');
       my %textboxsize = (
                          firstname      => '15',
                          middlename     => '15',
                          lastname       => '15',
                          generation     => '5',
                          permanentemail => '25',
                          id             => '15',
                         );
       my $genhelp=&Apache::loncommon::help_open_topic('Generation');
       $output = '<h3>'.$lt{'pd'}.'</h3>'.
                 &Apache::lonhtmlcommon::start_pick_box();
       foreach my $item (@userinfo) {
           my $rowtitle = $lt{$item};
           if ($item eq 'generation') {
               $rowtitle = $genhelp.$rowtitle;
           }
           $output .= &Apache::lonhtmlcommon::row_title($rowtitle,undef,'LC_oddrow_value')."\n";
           if ($newuser) {
               if ($inst_results{$item} ne '') {
                   $output .= '<input type="hidden" name="c'.$item.'" value="'.$inst_results{$item}.'" />'.$inst_results{$item};
               } else {
                   $output .= '<input type="text" name="c'.$item.'" size="'.$textboxsize{$item}.'" value="" />';
               }
           } else {
               if (&Apache::lonnet::allowed('mau',$ccdomain)) {
                   $output .= '<input type="text" name="c'.$item.'" size="'.$textboxsize{$item}.'" value="'.$userenv{$item}.'" />';
               } else {
                   $output .= $userenv{$item};
               }
           }
           $output .= &Apache::lonhtmlcommon::row_closure(1);
       }
       $output .= &Apache::lonhtmlcommon::end_pick_box();
       return $output;
 }  }
   
 # ================================================================= Phase Three  # ================================================================= Phase Three
 sub update_user_data {  sub update_user_data {
     my $r=shift;      my ($r) = @_; 
     my $uhome=&Apache::lonnet::homeserver($ENV{'form.ccuname'},      my $uhome=&Apache::lonnet::homeserver($env{'form.ccuname'},
                                           $ENV{'form.ccdomain'});                                            $env{'form.ccdomain'});
     # Error messages      # Error messages
     my $error     = '<font color="#ff0000">Error:</font>';      my $error     = '<span class="LC_error">'.&mt('Error').': ';
     my $end       = '</body></html>';      my $end       = '</span><br /><br />';
     # Print header      my $rtnlink   = '<a href="javascript:backPage(document.userupdate,'.
     $r->print(<<ENDTHREEHEAD);                      "'$env{'form.prevphase'}','modify')".'" />'.
 <html>                      &mt('Return to previous page').'</a>'.&Apache::loncommon::end_page();
 <head>  
 <title>The LearningOnline Network with CAPA</title>  
 </head>  
 ENDTHREEHEAD  
     my $title;      my $title;
     if (exists($ENV{'form.makeuser'})) {      if (exists($env{'form.makeuser'})) {
  $title='Set Privileges for New User';   $title='Set Privileges for New User';
     } else {      } else {
         $title='Modify User Privileges';          $title='Modify User Privileges';
     }      }
     $r->print(&Apache::loncommon::bodytag($title));  
       my ($jsback,$elements) = &crumb_utilities();
       my $jscript = '<script type="text/javascript">'."\n".
                     $jsback."\n".'</script>'."\n";
   
       $r->print(&Apache::loncommon::start_page($title,$jscript));
       &Apache::lonhtmlcommon::add_breadcrumb
          ({href=>"javascript:backPage(document.userupdate)",
            text=>"Create/modify user",
            faq=>282,bug=>'Instructor Interface',});
       if ($env{'form.prevphase'} eq 'userpicked') {
           &Apache::lonhtmlcommon::add_breadcrumb
              ({href=>"javascript:backPage(document.userupdate,'get_user_info','select')",
                text=>"Select a user",
                faq=>282,bug=>'Instructor Interface',});
       }
       &Apache::lonhtmlcommon::add_breadcrumb
          ({href=>"javascript:backPage(document.userupdate,'$env{'form.prevphase'}','modify')",
            text=>"Set user role",
            faq=>282,bug=>'Instructor Interface',},
           {href=>"/adm/createuser",
            text=>"Result",
            faq=>282,bug=>'Instructor Interface',});
       $r->print(&Apache::lonhtmlcommon::breadcrumbs('User Management'));
   
       my %disallowed;
       $r->print(&update_result_form($uhome));
     # Check Inputs      # Check Inputs
     if (! $ENV{'form.ccuname'} ) {      if (! $env{'form.ccuname'} ) {
  $r->print($error.'No login name specified.'.$end);   $r->print($error.&mt('No login name specified').'.'.$end.$rtnlink);
  return;   return;
     }      }
     if (  $ENV{'form.ccuname'}  =~/\W/) {      if (  $env{'form.ccuname'} ne 
  $r->print($error.'Invalid login name.  '.    &LONCAPA::clean_username($env{'form.ccuname'}) ) {
   'Only letters, numbers, and underscores are valid.'.   $r->print($error.&mt('Invalid login name').'.  '.
   $end);    &mt('Only letters, numbers, periods, dashes, @, and underscores are valid').'.'.
     $end.$rtnlink);
  return;   return;
     }      }
     if (! $ENV{'form.ccdomain'}       ) {      if (! $env{'form.ccdomain'}       ) {
  $r->print($error.'No domain specified.'.$end);   $r->print($error.&mt('No domain specified').'.'.$end.$rtnlink);
  return;   return;
     }      }
     if (  $ENV{'form.ccdomain'} =~/\W/) {      if (  $env{'form.ccdomain'} ne
  $r->print($error.'Invalid domain name.  '.    &LONCAPA::clean_domain($env{'form.ccdomain'}) ) {
   'Only letters, numbers, and underscores are valid.'.   $r->print($error.&mt ('Invalid domain name').'.  '.
   $end);    &mt('Only letters, numbers, periods, dashes, and underscores are valid').'.'.
     $end.$rtnlink);
  return;   return;
     }      }
     if (! exists($ENV{'form.makeuser'})) {      if (! exists($env{'form.makeuser'})) {
         # Modifying an existing user, so check the validity of the name          # Modifying an existing user, so check the validity of the name
         if ($uhome eq 'no_host') {          if ($uhome eq 'no_host') {
             $r->print($error.'Unable to determine home server for '.              $r->print($error.&mt('Unable to determine home server for ').
                       $ENV{'form.ccuname'}.' in domain '.                        $env{'form.ccuname'}.&mt(' in domain ').
                       $ENV{'form.ccdomain'}.'.');                        $env{'form.ccdomain'}.'.');
             return;              return;
         }          }
     }      }
     # Determine authentication method and password for the user being modified      # Determine authentication method and password for the user being modified
     my $amode='';      my $amode='';
     my $genpwd='';      my $genpwd='';
     if ($ENV{'form.login'} eq 'krb') {      if ($env{'form.login'} eq 'krb') {
  $amode='krb';   $amode='krb';
  $amode.=$ENV{'form.krbver'};   $amode.=$env{'form.krbver'};
  $genpwd=$ENV{'form.krbarg'};   $genpwd=$env{'form.krbarg'};
     } elsif ($ENV{'form.login'} eq 'int') {      } elsif ($env{'form.login'} eq 'int') {
  $amode='internal';   $amode='internal';
  $genpwd=$ENV{'form.intarg'};   $genpwd=$env{'form.intarg'};
     } elsif ($ENV{'form.login'} eq 'fsys') {      } elsif ($env{'form.login'} eq 'fsys') {
  $amode='unix';   $amode='unix';
  $genpwd=$ENV{'form.fsysarg'};   $genpwd=$env{'form.fsysarg'};
     } elsif ($ENV{'form.login'} eq 'loc') {      } elsif ($env{'form.login'} eq 'loc') {
  $amode='localauth';   $amode='localauth';
  $genpwd=$ENV{'form.locarg'};   $genpwd=$env{'form.locarg'};
  $genpwd=" " if (!$genpwd);   $genpwd=" " if (!$genpwd);
     } elsif (($ENV{'form.login'} eq 'nochange') ||      } elsif (($env{'form.login'} eq 'nochange') ||
              ($ENV{'form.login'} eq ''        )) {                ($env{'form.login'} eq ''        )) { 
         # There is no need to tell the user we did not change what they          # There is no need to tell the user we did not change what they
         # did not ask us to change.          # did not ask us to change.
         # 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.'Invalid login mode or password'.$end);          $r->print($error.&mt('Invalid login mode or password').$end.$rtnlink);    
     return;      return;
     }      }
     if ($ENV{'form.makeuser'}) {  
         # Create a new user  
  $r->print(<<ENDNEWUSERHEAD);      $r->print('<h3>'.&mt('User [_1] in domain [_2]',
 <h3>Creating user "$ENV{'form.ccuname'}" in domain "$ENV{'form.ccdomain'}"</h2>   $env{'form.ccuname'}, $env{'form.ccdomain'}).'</h3>');
 ENDNEWUSERHEAD      my (%alerts,%rulematch,%inst_results,%curr_rules);
       if ($env{'form.makeuser'}) {
    $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.'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
         my $desiredhost = $ENV{'form.hserver'};          my $desiredhost = $env{'form.hserver'};
         if (lc($desiredhost) eq 'default') {          if (lc($desiredhost) eq 'default') {
             $desiredhost = undef;              $desiredhost = undef;
         } else {          } else {
             my %home_servers = &Apache::loncommon::get_library_servers              my %home_servers = 
                 ($ENV{'form.ccdomain'});     &Apache::lonnet::get_servers($env{'form.ccdomain'},'library');
             if (! exists($home_servers{$desiredhost})) {              if (! exists($home_servers{$desiredhost})) {
                 $r->print($error.'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.cfirst'},               $amode,$genpwd,$env{'form.cfirstname'},
              $ENV{'form.cmiddle'},$ENV{'form.clast'},$ENV{'form.cgen'},               $env{'form.cmiddlename'},$env{'form.clastname'},
              undef,$desiredhost               $env{'form.cgeneration'},undef,$desiredhost,
      );               $env{'form.cpermanentemail'});
  $r->print('Generating user: '.$result);   $r->print(&mt('Generating user').': '.$result);
         my $home = &Apache::lonnet::homeserver($ENV{'form.ccuname'},          my $home = &Apache::lonnet::homeserver($env{'form.ccuname'},
                                                $ENV{'form.ccdomain'});                                                 $env{'form.ccdomain'});
         $r->print('<br>Home server: '.$home.' '.          $r->print('<br />'.&mt('Home server').': '.$home.' '.
                   $Apache::lonnet::libserv{$home});                    &Apache::lonnet::hostname($home));
     } elsif (($ENV{'form.login'} ne 'nochange') &&      } elsif (($env{'form.login'} ne 'nochange') &&
              ($ENV{'form.login'} ne ''        )) {               ($env{'form.login'} ne ''        )) {
  # Modify user privileges   # Modify user privileges
  $r->print(<<ENDMODIFYUSERHEAD);  
 <h2>User "$ENV{'form.ccuname'}" in domain "$ENV{'form.ccdomain'}"</h2>  
 ENDMODIFYUSERHEAD  
         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
  if (&Apache::lonnet::allowed('mau',$ENV{'form.ccdomain'})) {   if (&Apache::lonnet::allowed('mau',$env{'form.ccdomain'})) {
     $r->print('Modifying authentication: '.      $r->print('Modifying authentication: '.
                       &Apache::lonnet::modifyuserauth(                        &Apache::lonnet::modifyuserauth(
        $ENV{'form.ccdomain'},$ENV{'form.ccuname'},         $env{'form.ccdomain'},$env{'form.ccuname'},
                        $amode,$genpwd));                         $amode,$genpwd));
             $r->print('<br>Home server: '.&Apache::lonnet::homeserver              $r->print('<br />'.&mt('Home server').': '.&Apache::lonnet::homeserver
   ($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.'You do not have the authority to modify '.      $r->print($error.&mt('You do not have the authority to modify this users authentification information').'.'.$end);    
       'this users authentification information.');      
  }   }
     }      }
     ##      ##
     if (! $ENV{'form.makeuser'} ) {      if (! $env{'form.makeuser'} ) {
         # 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',
              $ENV{'form.ccdomain'},$ENV{'form.ccuname'});               'id','permanentemail','portfolioquota','inststatus'],
                 $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 ('firstname','middlename','lastname','generation') {          foreach my $item ('firstname','middlename','lastname','generation','permanentemail','id') {
             # Strip leading and trailing whitespace              # Strip leading and trailing whitespace
             $ENV{'form.c'.$_} =~ s/(\s+$|^\s+)//g;               $env{'form.c'.$item} =~ s/(\s+$|^\s+)//g; 
         }          }
         if (&Apache::lonnet::allowed('mau',$ENV{'form.ccdomain'}) &&           # Check to see if we can change the ID/student number
             ($ENV{'form.cfirstname'}  ne $userenv{'firstname'}  ||          my $forceid = $env{'form.forceid'};
              $ENV{'form.cmiddlename'} ne $userenv{'middlename'} ||          my $recurseid = $env{'form.recurseid'};
              $ENV{'form.clastname'}   ne $userenv{'lastname'}   ||          my $newuser = 0;
              $ENV{'form.cgeneration'} ne $userenv{'generation'} )) {          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,
               $inststatus,$isdefault,$defquotatext);
           my ($defquota,$settingstatus) = 
               &Apache::loncommon::default_quota($env{'form.ccdomain'},$inststatus);
           my %changeHash;
           if ($userenv{'portfolioquota'} ne '') {
               $oldportfolioquota = $userenv{'portfolioquota'};
               if ($env{'form.customquota'} == 1) {
                   if ($env{'form.portfolioquota'} eq '') {
                       $newportfolioquota = 0;
                   } else {
                       $newportfolioquota = $env{'form.portfolioquota'};
                       $newportfolioquota =~ s/[^\d\.]//g;
                   }
                   if ($newportfolioquota != $userenv{'portfolioquota'}) {
                       $quotachanged = &quota_admin($newportfolioquota,\%changeHash);
                   }
               } else {
                   $quotachanged = &quota_admin('',\%changeHash);
                   $newportfolioquota = $defquota;
                   $isdefault = 1; 
               }
           } else {
               $oldportfolioquota = $defquota;
               if ($env{'form.customquota'} == 1) {
                   if ($env{'form.portfolioquota'} eq '') {
                       $newportfolioquota = 0;
                   } else {
                       $newportfolioquota = $env{'form.portfolioquota'};
                       $newportfolioquota =~ s/[^\d\.]//g;
                   }
                   $quotachanged = &quota_admin($newportfolioquota,\%changeHash);
               } else {
                   $newportfolioquota = $defquota;
                   $isdefault = 1;
               }
           }
           if ($isdefault) {
               if ($settingstatus eq '') {
                   $defquotatext = &mt('(default)');
               } else {
                   my ($usertypes,$order) = 
                       &Apache::lonnet::retrieve_inst_usertypes($env{'form.ccdomain'});
                   if ($usertypes->{$settingstatus} eq '') {
                       $defquotatext = &mt('(default)');
                   } else { 
                       $defquotatext = &mt('(default for [_1])',$usertypes->{$settingstatus});
                   }
               }
           }
           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'} ||
                $env{'form.cid'} ne $userenv{'id'}                 ||
                $env{'form.cpermanentemail'} ne $userenv{'permanentemail'} )) {
               $namechanged = 1;
           }
           if ($namechanged) {
             # Make the change              # Make the change
             my %changeHash;              $changeHash{'firstname'}  = $env{'form.cfirstname'};
             $changeHash{'firstname'}  = $ENV{'form.cfirstname'};              $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'};
             my $putresult = &Apache::lonnet::put              my $putresult = &Apache::lonnet::put
                 ('environment',\%changeHash,                  ('environment',\%changeHash,
                  $ENV{'form.ccdomain'},$ENV{'form.ccuname'});                   $env{'form.ccdomain'},$env{'form.ccuname'});
             if ($putresult eq 'ok') {              if ($putresult eq 'ok') {
             # Tell the user we changed the name              # Tell the user we changed the name
    my %lt=&Apache::lonlocal::texthash(
                                'uic'  => "User Information Changed",             
                                'frst' => "first",
                                'mddl' => "middle",
                                'lst'  => "last",
        'gen'  => "generation",
                                'id'   => "ID/Student number",
                                'mail' => "permanent e-mail",
                                'disk' => "disk space allocated to portfolio files",
                                'prvs' => "Previous",
                                'chto' => "Changed To"
      );
                 $r->print(<<"END");                  $r->print(<<"END");
 <table border="2">  <table border="2">
 <caption>User Information Changed</caption>  <caption>$lt{'uic'}</caption>
 <tr><th>&nbsp;</th>  <tr><th>&nbsp;</th>
     <th>first</th>      <th>$lt{'frst'}</th>
     <th>middle</th>      <th>$lt{'mddl'}</th>
     <th>last</th>      <th>$lt{'lst'}</th>
     <th>generation</th></tr>      <th>$lt{'gen'}</th>
 <tr><td>Previous</td>      <th>$lt{'id'}</th>
       <th>$lt{'mail'}</th>
       <th>$lt{'disk'}</th></tr>
   <tr><td>$lt{'prvs'}</td>
     <td>$userenv{'firstname'}  </td>      <td>$userenv{'firstname'}  </td>
     <td>$userenv{'middlename'} </td>      <td>$userenv{'middlename'} </td>
     <td>$userenv{'lastname'}   </td>      <td>$userenv{'lastname'}   </td>
     <td>$userenv{'generation'} </td></tr>      <td>$userenv{'generation'} </td>
 <tr><td>Changed To</td>      <td>$userenv{'id'}</td>
     <td>$ENV{'form.cfirstname'}  </td>      <td>$userenv{'permanentemail'} </td>
     <td>$ENV{'form.cmiddlename'} </td>      <td>$oldportfolioquota Mb</td>
     <td>$ENV{'form.clastname'}   </td>  </tr>
     <td>$ENV{'form.cgeneration'} </td></tr>  <tr><td>$lt{'chto'}</td>
       <td>$env{'form.cfirstname'}  </td>
       <td>$env{'form.cmiddlename'} </td>
       <td>$env{'form.clastname'}   </td>
       <td>$env{'form.cgeneration'} </td>
       <td>$env{'form.cid'} </td>
       <td>$env{'form.cpermanentemail'} </td>
       <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'}) && 
                       ($env{'form.ccuname'} eq $env{'user.name'})) {
                       my %newenvhash;
                       foreach my $key (keys(%changeHash)) {
                           $newenvhash{'environment.'.$key} = $changeHash{$key};
                       }
                       &Apache::lonnet::appenv(%newenvhash);
                   }
             } else { # error occurred              } else { # error occurred
                 $r->print("<h2>Unable to successfully change environment for ".                  $r->print('<span class="LC_error">'.&mt('Unable to successfully change environment for').' '.
                       $ENV{'form.ccuname'}." in domain ".                        $env{'form.ccuname'}.' '.&mt('in domain').' '.
                       $ENV{'form.ccdomain'}."</h2>");                        $env{'form.ccdomain'}.'</span>');
               }
           }  else { # End of if ($env ... ) logic
               my $putresult;
               if ($quotachanged) {
                   $putresult = &Apache::lonnet::put
                                    ('environment',\%changeHash,
                                     $env{'form.ccdomain'},$env{'form.ccuname'});
             }              }
         }  else { # End of if ($ENV ... ) logic  
             # 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
                 $r->print(<<"END");      my %lt=&Apache::lonlocal::texthash(
 <h2>User "$ENV{'form.ccuname'}" in domain "$ENV{'form.ccdomain'}"</h2>                             'id'   => "ID/Student number",
 <h4>$userenv{'firstname'} $userenv{'middlename'} $userenv{'lastname'} </h4>                             'mail' => "Permanent e-mail",
 <h4>Generation: $userenv{'generation'}</h4>                             'disk' => "Disk space allocated to user's portfolio files",
          );
               $r->print(<<"END");
   <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 ($oldportfolioquota != $newportfolioquota) {
                       $r->print('<h4>'.$lt{'disk'}.': '.$newportfolioquota.' Mb '. 
                                 $defquotatext.'</h4>');
                       &Apache::lonnet::appenv('environment.portfolioquota' => $changeHash{'portfolioquota'});
                   }
               }
         }          }
     }      }
     ##      ##
     my $now=time;      my $now=time;
     $r->print('<h3>Modifying Roles</h3>');      my $rolechanges = 0;
     foreach (keys (%ENV)) {      $r->print('<h3>'.&mt('Modifying Roles').'</h3>');
  next if (! $ENV{$_});      foreach my $key (keys (%env)) {
    next if (! $env{$key});
           next if ($key eq 'form.action');
  # Revoke roles   # Revoke roles
  if ($_=~/^form\.rev/) {   if ($key=~/^form\.rev/) {
     if ($_=~/^form\.rev\:([^\_]+)\_([^\_]+)$/) {      if ($key=~/^form\.rev\:([^\_]+)\_([^\_\.]+)$/) {
         $r->print('Revoking '.$2.' in '.$1.': '.  # Revoke standard role
                      &Apache::lonnet::assignrole($ENV{'form.ccdomain'},   my ($scope,$role) = ($1,$2);
                      $ENV{'form.ccuname'},$1,$2,$now).'<br>');   my $result =
  if ($2 eq 'st') {      &Apache::lonnet::revokerole($env{'form.ccdomain'},
     $1=~/^\/(\w+)\/(\w+)/;   $env{'form.ccuname'},
     my $cid=$1.'_'.$2;   $scope,$role);
     $r->print('Drop from classlist: '.          $r->print(&mt('Revoking [_1] in [_2]: [_3]',
  &Apache::lonnet::critical('put:'.        $role,$scope,'<b>'.$result.'</b>').'<br />');
                              $ENV{'course.'.$cid.'.domain'}.':'.   if ($role eq 'st') {
                      $ENV{'course.'.$cid.'.num'}.':classlist:'.                      my $result =
                          &Apache::lonnet::escape($ENV{'form.ccuname'}.':'.                          &Apache::lonuserutils::classlist_drop($scope,
                              $ENV{'form.ccdomain'}).'='.                              $env{'form.ccuname'},$env{'form.ccdomain'},
                          &Apache::lonnet::escape($now.':'),                              $now);
                      $ENV{'course.'.$cid.'.home'}).'<br>');      $r->print($result);
    }
       }
       if ($key=~m{^form\.rev\:([^_]+)_cr\.cr/($match_domain)/($match_username)/(\w+)$}s) {
   # Revoke custom role
    $r->print(&mt('Revoking custom role:').
                         ' '.$4.' by '.$3.':'.$2.' in '.$1.': <b>'.
                         &Apache::lonnet::revokecustomrole($env{'form.ccdomain'},
     $env{'form.ccuname'},$1,$2,$3,$4).
    '</b><br />');
       }
               $rolechanges ++;
    } elsif ($key=~/^form\.del/) {
       if ($key=~/^form\.del\:([^\_]+)\_([^\_\.]+)$/) {
   # Delete standard role
    my ($scope,$role) = ($1,$2);
    my $result =
       &Apache::lonnet::assignrole($env{'form.ccdomain'},
    $env{'form.ccuname'},
    $scope,$role,$now,0,1);
           $r->print(&mt('Deleting [_1] in [_2]: [_3]',$role,$scope,
         '<b>'.$result.'</b>').'<br />');
    if ($role eq 'st') {
                       my $result =
                           &Apache::lonuserutils::classlist_drop($scope,
                               $env{'form.ccuname'},$env{'form.ccdomain'},
                               $now);
       $r->print($result);
    }
               }
       if ($key=~m{^form\.del\:([^_]+)_cr\.cr/($match_domain)/($match_username)/(\w+)$}) {
                   my ($url,$rdom,$rnam,$rolename) = ($1,$2,$3,$4);
   # Delete custom role
                   $r->print(&mt('Deleting custom role [_1] by [_2]:[_3] in [_4]',
                         $rolename,$rnam,$rdom,$url).': <b>'.
                         &Apache::lonnet::assigncustomrole($env{'form.ccdomain'},
                            $env{'form.ccuname'},$url,$rdom,$rnam,$rolename,$now,
                            0,1).'</b><br />');
               }
               $rolechanges ++;
    } elsif ($key=~/^form\.ren/) {
               my $udom = $env{'form.ccdomain'};
               my $uname = $env{'form.ccuname'};
   # Re-enable standard role
       if ($key=~/^form\.ren\:([^\_]+)\_([^\_\.]+)$/) {
                   my $url = $1;
                   my $role = $2;
                   my $logmsg;
                   my $output;
                   if ($role eq 'st') {
                       if ($url =~ m-^/($match_domain)/($match_courseid)/?(\w*)$-) {
                           my $result = &Apache::loncommon::commit_studentrole(\$logmsg,$udom,$uname,$url,$role,$now,0,$1,$2,$3);
                           if (($result =~ /^error/) || ($result eq 'not_in_class') || ($result eq 'unknown_course')) {
                               $output = "Error: $result\n";
                           } else {
                               $output = &mt('Assigning').' '.$role.' in '.$url.
                                         &mt('starting').' '.localtime($now).
                                         ': <br />'.$logmsg.'<br />'.
                                         &mt('Add to classlist').': <b>ok</b><br />';
                           }
                       }
                   } else {
       my $result=&Apache::lonnet::assignrole($env{'form.ccdomain'},
                                  $env{'form.ccuname'},$url,$role,0,$now);
       $output = &mt('Re-enabling [_1] in [_2]: <b>[_3]</b>',
         $role,$url,$result).'<br />';
  }   }
     }                   $r->print($output);
  } elsif ($_=~/^form\.act/) {      }
     if ($_=~/^form\.act\_([^\_]+)\_([^\_]+)\_([^\_]+)$/) {  # Re-enable custom role
       if ($key=~m{^form\.ren\:([^_]+)_cr\.cr/($match_domain)/($match_username)/(\w+)$}) {
                   my ($url,$rdom,$rnam,$rolename) = ($1,$2,$3,$4);
                   my $result = &Apache::lonnet::assigncustomrole(
                                  $env{'form.ccdomain'}, $env{'form.ccuname'},
                                  $url,$rdom,$rnam,$rolename,0,$now);
                   $r->print(&mt('Re-enabling custom role [_1] by [_2]@[_3] in [_4] : <b>[_5]</b>',
                             $rolename,$rnam,$rdom,$url,$result).'<br />');
               }
               $rolechanges ++;
    } elsif ($key=~/^form\.act/) {
               my $udom = $env{'form.ccdomain'};
               my $uname = $env{'form.ccuname'};
       if ($key=~/^form\.act\_($match_domain)\_($match_courseid)\_cr_cr_($match_domain)_($match_username)_([^\_]+)$/) {
                   # Activate a custom role
    my ($one,$two,$three,$four,$five)=($1,$2,$3,$4,$5);
    my $url='/'.$one.'/'.$two;
    my $full=$one.'_'.$two.'_cr_cr_'.$three.'_'.$four.'_'.$five;
   
                   my $start = ( $env{'form.start_'.$full} ?
                                 $env{'form.start_'.$full} :
                                 $now );
                   my $end   = ( $env{'form.end_'.$full} ?
                                 $env{'form.end_'.$full} :
                                 0 );
                                                                                        
                   # split multiple sections
                   my %sections = ();
                   my $num_sections = &build_roles($env{'form.sec_'.$full},\%sections,$5);
                   if ($num_sections == 0) {
                       $r->print(&Apache::loncommon::commit_customrole($udom,$uname,$url,$three,$four,$five,$start,$end));
                   } else {
       my %curr_groups =
    &Apache::longroup::coursegroups($one,$two);
                       foreach my $sec (sort {$a cmp $b} keys %sections) {
                           if (($sec eq 'none') || ($sec eq 'all') || 
                               exists($curr_groups{$sec})) {
                               $disallowed{$sec} = $url;
                               next;
                           }
                           my $securl = $url.'/'.$sec;
           $r->print(&Apache::loncommon::commit_customrole($udom,$uname,$securl,$three,$four,$five,$start,$end));
                       }
                   }
       } elsif ($key=~/^form\.act\_($match_domain)\_($match_name)\_([^\_]+)$/) {
  # Activate roles for sections with 3 id numbers   # Activate roles for sections with 3 id numbers
  # set start, end times, and the url for the class   # set start, end times, and the url for the class
  my $start = ( $ENV{'form.start_'.$1.'_'.$2} ?    my ($one,$two,$three)=($1,$2,$3);
       $ENV{'form.start_'.$1.'_'.$2} :    my $start = ( $env{'form.start_'.$one.'_'.$two.'_'.$three} ? 
         $env{'form.start_'.$one.'_'.$two.'_'.$three} : 
       $now );        $now );
  my $end   = ( $ENV{'form.end_'.$1.'_'.$2} ?    my $end   = ( $env{'form.end_'.$one.'_'.$two.'_'.$three} ? 
       $ENV{'form.end_'.$1.'_'.$2} :        $env{'form.end_'.$one.'_'.$two.'_'.$three} :
       0 );        0 );
  my $url='/'.$1.'/'.$2;   my $url='/'.$one.'/'.$two;
  if ($ENV{'form.sec_'.$1.'_'.$2.'_'.$3}) {                  my $type = 'three';
     $url.='/'.$ENV{'form.sec_'.$1.'_'.$2.'_'.$3};                  # split multiple sections
  }                  my %sections = ();
  # Assign the role and report it                  my $num_sections = &build_roles($env{'form.sec_'.$one.'_'.$two.'_'.$three},\%sections,$three);
  $r->print('Assigning: '.$3.' in '.$url.': '.                  if ($num_sections == 0) {
                           &Apache::lonnet::assignrole(                      $r->print(&Apache::loncommon::commit_standardrole($udom,$uname,$url,$three,$start,$end,$one,$two,''));
                               $ENV{'form.ccdomain'},$ENV{'form.ccuname'},                  } else {
                               $url,$3,$end,$start).                      my %curr_groups = 
   '<br>');   &Apache::longroup::coursegroups($one,$two);
  # Handle students differently                      my $emptysec = 0;
  if ($3 eq 'st') {                      foreach my $sec (sort {$a cmp $b} keys %sections) {
     $url=~/^\/(\w+)\/(\w+)/;                          $sec =~ s/\W//g;
     my $cid=$1.'_'.$2;                          if ($sec ne '') {
     $r->print('Add to classlist: '.                              if (($sec eq 'none') || ($sec eq 'all') || 
       &Apache::lonnet::critical(                                  exists($curr_groups{$sec})) {
   'put:'.$ENV{'course.'.$cid.'.domain'}.':'.                                  $disallowed{$sec} = $url;
                            $ENV{'course.'.$cid.'.num'}.':classlist:'.                                  next;
                                    &Apache::lonnet::escape(                              }
                                        $ENV{'form.ccuname'}.':'.                              my $securl = $url.'/'.$sec;
                                        $ENV{'form.ccdomain'} ).'='.                              $r->print(&Apache::loncommon::commit_standardrole($udom,$uname,$securl,$three,$start,$end,$one,$two,$sec));
                                    &Apache::lonnet::escape($end.':'.$start),                          } else {
        $ENV{'course.'.$cid.'.home'})                              $emptysec = 1;
       .'<br>');                          }
  }                      }
     } elsif ($_=~/^form\.act\_([^\_]+)\_([^\_]+)$/) {                      if ($emptysec) {
                           $r->print(&Apache::loncommon::commit_standardrole($udom,$uname,$url,$three,$start,$end,$one,$two,''));
                       }
                   } 
       } elsif ($key=~/^form\.act\_([^\_]+)\_([^\_]+)$/) {
  # Activate roles for sections with two id numbers   # Activate roles for sections with two id numbers
  # set start, end times, and the url for the class   # set start, end times, and the url for the class
  my $start = ( $ENV{'form.start_'.$1.'_'.$2} ?    my $start = ( $env{'form.start_'.$1.'_'.$2} ? 
       $ENV{'form.start_'.$1.'_'.$2} :         $env{'form.start_'.$1.'_'.$2} : 
       $now );        $now );
  my $end   = ( $ENV{'form.end_'.$1.'_'.$2} ?    my $end   = ( $env{'form.end_'.$1.'_'.$2} ? 
       $ENV{'form.end_'.$1.'_'.$2} :        $env{'form.end_'.$1.'_'.$2} :
       0 );        0 );
  my $url='/'.$1.'/';   my $url='/'.$1.'/';
  # Assign the role and report it.                  # split multiple sections
  $r->print('Assigning: '.$2.' in '.$url.': '.                  my %sections = ();
                           &Apache::lonnet::assignrole(                  my $num_sections = &build_roles($env{'form.sec_'.$1.'_'.$2},\%sections,$2);
                               $ENV{'form.ccdomain'},$ENV{'form.ccuname'},                  if ($num_sections == 0) {
                               $url,$2,$end,$start)                      $r->print(&Apache::loncommon::commit_standardrole($udom,$uname,$url,$2,$start,$end,$1,undef,''));
   .'<br>');                  } else {
     }                      my $emptysec = 0;
  }                       foreach my $sec (sort {$a cmp $b} keys %sections) {
     } # End of foreach (keys(%ENV))                          if ($sec ne '') {
     $r->print('</body></html>');                              my $securl = $url.'/'.$sec;
                               $r->print(&Apache::loncommon::commit_standardrole($udom,$uname,$securl,$2,$start,$end,$1,undef,$sec));
                           } else {
                               $emptysec = 1;
                           }
                       }
                       if ($emptysec) {
                           $r->print(&Apache::loncommon::commit_standardrole($udom,$uname,$url,$2,$start,$end,$1,undef,''));
                       }
                   }
       } else {
    $r->print('<p><span class="LC_error">'.&mt('ERROR').': '.&mt('Unknown command').' <tt>'.$key.'</tt></span></p><br />');
               }
               foreach my $key (sort(keys(%disallowed))) {
                   if (($key eq 'none') || ($key eq 'all')) {  
                       $r->print('<p>'.&mt('[_1] may not be used as the name for a section, as it is a reserved word.',$key));
                   } else {
                       $r->print('<p>'.&mt('[_1] may not be used as the name for a section, as it is the name of a course group.',$key));
                   }
                   $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))
   # Flush the course logs so reverse user roles immediately updated
       &Apache::lonnet::flushcourselogs();
       if (!$rolechanges) {
           $r->print(&mt('No roles to modify'));
       }
       $r->print(&Apache::loncommon::end_page());
   }
   
   sub update_result_form {
       my ($uhome) = @_;
       my $outcome = 
       '<form name="userupdate" method="post" />'."\n";
       foreach my $item ('srchby','srchin','srchtype','srchterm','srchdomain','ccuname','ccdomain') {
           $outcome .= '<input type="hidden" name="'.$item.'" value="'.$env{'form.'.$item}.'" />'."\n";
       }
       foreach my $item ('sortby','seluname','seludom') {
           if (exists($env{'form.'.$item})) {
               $outcome .= '<input type="hidden" name="'.$item.'" value="'.$env{'form.'.$item}.'" />'."\n";
           }
       }
       if ($uhome eq 'no_host') {
           $outcome .= '<input type="hidden" name="forcenewuser" value="1" />'."\n";
       }
       $outcome .= '<input type="hidden" name="phase" value="" />'."\n".
                   '<input type ="hidden" name="currstate" value="" />'."\n".
                   '<input type ="hidden" name="action" value="singleuser" />'."\n".
                   '</form>';
       return $outcome;
   }
   
   sub quota_admin {
       my ($setquota,$changeHash) = @_;
       my $quotachanged;
       if (&Apache::lonnet::allowed('mpq',$env{'form.ccdomain'})) {
           # Current user has quota modification privileges
           $quotachanged = 1;
           $changeHash->{'portfolioquota'} = $setquota;
       }
       return $quotachanged;
   }
   
   sub build_roles {
       my ($sectionstr,$sections,$role) = @_;
       my $num_sections = 0;
       if ($sectionstr=~ /,/) {
           my @secnums = split/,/,$sectionstr;
           if ($role eq 'st') {
               $secnums[0] =~ s/\W//g;
               $$sections{$secnums[0]} = 1;
               $num_sections = 1;
           } else {
               foreach my $sec (@secnums) {
                   $sec =~ ~s/\W//g;
                   if (!($sec eq "")) {
                       if (exists($$sections{$sec})) {
                           $$sections{$sec} ++;
                       } else {
                           $$sections{$sec} = 1;
                           $num_sections ++;
                       }
                   }
               }
           }
       } else {
           $sectionstr=~s/\W//g;
           unless ($sectionstr eq '') {
               $$sections{$sectionstr} = 1;
               $num_sections ++;
           }
       }
   
       return $num_sections;
   }
   
   # ========================================================== Custom Role Editor
   
   sub custom_role_editor {
       my ($r) = @_;
       my $rolename=$env{'form.rolename'};
   
       if ($rolename eq 'make new role') {
    $rolename=$env{'form.newrolename'};
       }
   
       $rolename=~s/[^A-Za-z0-9]//gs;
   
       if (!$rolename || $env{'form.phase'} eq 'pickrole') {
    &print_username_entry_form($r);
           return;
       }
   # ------------------------------------------------------- What can be assigned?
       my %full=();
       my %courselevel=();
       my %courselevelcurrent=();
       my $syspriv='';
       my $dompriv='';
       my $coursepriv='';
       my $body_top;
       my ($disp_dummy,$disp_roles) = &Apache::lonnet::get('roles',["st"]);
       my ($rdummy,$roledef)=
    &Apache::lonnet::get('roles',["rolesdef_$rolename"]);
   # ------------------------------------------------------- Does this role exist?
       $body_top .= '<h2>';
       if (($rdummy ne 'con_lost') && ($roledef ne '')) {
    $body_top .= &mt('Existing Role').' "';
   # ------------------------------------------------- Get current role privileges
    ($syspriv,$dompriv,$coursepriv)=split(/\_/,$roledef);
       } else {
    $body_top .= &mt('New Role').' "';
    $roledef='';
       }
       $body_top .= $rolename.'"</h2>';
       foreach my $item (split(/\:/,$Apache::lonnet::pr{'cr:c'})) {
    my ($priv,$restrict)=split(/\&/,$item);
           if (!$restrict) { $restrict='F'; }
           $courselevel{$priv}=$restrict;
           if ($coursepriv=~/\:$priv/) {
       $courselevelcurrent{$priv}=1;
    }
    $full{$priv}=1;
       }
       my %domainlevel=();
       my %domainlevelcurrent=();
       foreach my $item (split(/\:/,$Apache::lonnet::pr{'cr:d'})) {
    my ($priv,$restrict)=split(/\&/,$item);
           if (!$restrict) { $restrict='F'; }
           $domainlevel{$priv}=$restrict;
           if ($dompriv=~/\:$priv/) {
       $domainlevelcurrent{$priv}=1;
    }
    $full{$priv}=1;
       }
       my %systemlevel=();
       my %systemlevelcurrent=();
       foreach my $item (split(/\:/,$Apache::lonnet::pr{'cr:s'})) {
    my ($priv,$restrict)=split(/\&/,$item);
           if (!$restrict) { $restrict='F'; }
           $systemlevel{$priv}=$restrict;
           if ($syspriv=~/\:$priv/) {
       $systemlevelcurrent{$priv}=1;
    }
    $full{$priv}=1;
       }
       my ($jsback,$elements) = &crumb_utilities();
       my $button_code = "\n";
       my $head_script = "\n";
       $head_script .= '<script type="text/javascript">'."\n";
       my @template_roles = ("cc","in","ta","ep","st");
       foreach my $role (@template_roles) {
           $head_script .= &make_script_template($role);
           $button_code .= &make_button_code($role);
       }
       $head_script .= "\n".$jsback."\n".'</script>'."\n";
       $r->print(&Apache::loncommon::start_page('Custom Role Editor',$head_script));
      &Apache::lonhtmlcommon::add_breadcrumb
        ({href=>"javascript:backPage(document.form1,'pickrole','')",
          text=>"Pick custom role",
          faq=>282,bug=>'Instructor Interface',},
         {href=>"javascript:backPage(document.form1,'','')",
            text=>"Edit custom role",
            faq=>282,bug=>'Instructor Interface',});
       $r->print(&Apache::lonhtmlcommon::breadcrumbs('User Management'));
   
       $r->print($body_top);
       my %lt=&Apache::lonlocal::texthash(
       'prv'  => "Privilege",
       'crl'  => "Course Level",
                       'dml'  => "Domain Level",
                       'ssl'  => "System Level");
       $r->print('Select a Template<br />');
       $r->print('<form action="">');
       $r->print($button_code);
       $r->print('</form>');
       $r->print(<<ENDCCF);
   <form name="form1" method="post">
   <input type="hidden" name="phase" value="set_custom_roles" />
   <input type="hidden" name="rolename" value="$rolename" />
   ENDCCF
       $r->print(&Apache::loncommon::start_data_table().
                 &Apache::loncommon::start_data_table_header_row(). 
   '<th>'.$lt{'prv'}.'</th><th>'.$lt{'crl'}.'</th><th>'.$lt{'dml'}.
   '</th><th>'.$lt{'ssl'}.'</th>'.
                 &Apache::loncommon::end_data_table_header_row());
       foreach my $priv (sort keys %full) {
           my $privtext = &Apache::lonnet::plaintext($priv);
           $r->print(&Apache::loncommon::start_data_table_row().
             '<td>'.$privtext.'</td><td>'.
       ($courselevel{$priv}?'<input type="checkbox" name="'.$priv.'_c" '.
       ($courselevelcurrent{$priv}?'checked="1"':'').' />':'&nbsp;').
       '</td><td>'.
       ($domainlevel{$priv}?'<input type="checkbox" name="'.$priv.'_d" '.
       ($domainlevelcurrent{$priv}?'checked="1"':'').' />':'&nbsp;').
       '</td><td>'.
       ($systemlevel{$priv}?'<input type="checkbox" name="'.$priv.'_s" '.
       ($systemlevelcurrent{$priv}?'checked="1"':'').' />':'&nbsp;').
       '</td>'.
                &Apache::loncommon::end_data_table_row());
       }
       $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'}.
      '" />'."\n".'<input type="hidden" name="currstate" value="" />'."\n".   
      '<input type="reset" value="'.&mt("Reset").'" />'."\n".
      '<input type="submit" value="'.&mt('Define Role').'" /></form>'.
         &Apache::loncommon::end_page());
   }
   # --------------------------------------------------------
   sub make_script_template {
       my ($role) = @_;
       my %full_c=();
       my %full_d=();
       my %full_s=();
       my $return_script;
       foreach my $item (split(/\:/,$Apache::lonnet::pr{'cr:c'})) {
           my ($priv,$restrict)=split(/\&/,$item);
           $full_c{$priv}=1;
       }
       foreach my $item (split(/\:/,$Apache::lonnet::pr{'cr:d'})) {
           my ($priv,$restrict)=split(/\&/,$item);
           $full_d{$priv}=1;
       }
       foreach my $item (split(/\:/,$Apache::lonnet::pr{'cr:s'})) {
           my ($priv,$restrict)=split(/\&/,$item);
           $full_s{$priv}=1;
       }
       $return_script .= 'function set_'.$role.'() {'."\n";
       my @temp = split(/:/,$Apache::lonnet::pr{$role.':c'});
       my %role_c;
       foreach my $priv (@temp) {
           my ($priv_item, $dummy) = split(/\&/,$priv);
           $role_c{$priv_item} = 1;
       }
       foreach my $priv_item (keys(%full_c)) {
           my ($priv, $dummy) = split(/\&/,$priv_item);
           if (exists($role_c{$priv})) {
               $return_script .= "document.form1.$priv"."_c.checked = true;\n";
           } else {
               $return_script .= "document.form1.$priv"."_c.checked = false;\n";
           }
       }
       my %role_d;
       @temp = split(/:/,$Apache::lonnet::pr{$role.':d'});
       foreach my $priv(@temp) {
           my ($priv_item, $dummy) = split(/\&/,$priv);
           $role_d{$priv_item} = 1;
       }
       foreach my $priv_item (keys(%full_d)) {
           my ($priv, $dummy) = split(/\&/,$priv_item);
           if (exists($role_d{$priv})) {
               $return_script .= "document.form1.$priv"."_d.checked = true;\n";
           } else {
               $return_script .= "document.form1.$priv"."_d.checked = false;\n";
           }
       }
       my %role_s;
       @temp = split(/:/,$Apache::lonnet::pr{$role.':s'});
       foreach my $priv(@temp) {
           my ($priv_item, $dummy) = split(/\&/,$priv);
           $role_s{$priv_item} = 1;
       }
       foreach my $priv_item (keys(%full_s)) {
           my ($priv, $dummy) = split(/\&/,$priv_item);
           if (exists($role_s{$priv})) {
               $return_script .= "document.form1.$priv"."_s.checked = true;\n";
           } else {
               $return_script .= "document.form1.$priv"."_s.checked = false;\n";
           }
       }
       $return_script .= '}'."\n";
       return ($return_script);
   }
   # ----------------------------------------------------------
   sub make_button_code {
       my ($role) = @_;
       my $label = &Apache::lonnet::plaintext($role);
       my $button_code = '<input type="button" onClick="set_'.$role.'()" value="'.$label.'" />';    
       return ($button_code);
   }
   # ---------------------------------------------------------- Call to definerole
   sub set_custom_role {
       my ($r) = @_;
       my $rolename=$env{'form.rolename'};
       $rolename=~s/[^A-Za-z0-9]//gs;
       if (!$rolename) {
    &custom_role_editor($r);
           return;
       }
       my ($jsback,$elements) = &crumb_utilities();
       my $jscript = '<script type="text/javascript">'.$jsback."\n".'</script>';
   
       $r->print(&Apache::loncommon::start_page('Save Custom Role'),$jscript);
       &Apache::lonhtmlcommon::add_breadcrumb
           ({href=>"javascript:backPage(document.customresult,'pickrole','')",
             text=>"Pick custom role",
             faq=>282,bug=>'Instructor Interface',},
            {href=>"javascript:backPage(document.customresult,'selected_custom_edit','')",
             text=>"Edit custom role",
             faq=>282,bug=>'Instructor Interface',},
            {href=>"javascript:backPage(document.customresult,'set_custom_roles','')",
             text=>"Result",
             faq=>282,bug=>'Instructor Interface',});
       $r->print(&Apache::lonhtmlcommon::breadcrumbs('User Management'));
   
       my ($rdummy,$roledef)=
    &Apache::lonnet::get('roles',["rolesdef_$rolename"]);
   
   # ------------------------------------------------------- Does this role exist?
       $r->print('<h3>');
       if (($rdummy ne 'con_lost') && ($roledef ne '')) {
    $r->print(&mt('Existing Role').' "');
       } else {
    $r->print(&mt('New Role').' "');
    $roledef='';
       }
       $r->print($rolename.'"</h3>');
   # ------------------------------------------------------- What can be assigned?
       my $sysrole='';
       my $domrole='';
       my $courole='';
   
       foreach my $item (split(/\:/,$Apache::lonnet::pr{'cr:c'})) {
    my ($priv,$restrict)=split(/\&/,$item);
           if (!$restrict) { $restrict=''; }
           if ($env{'form.'.$priv.'_c'}) {
       $courole.=':'.$item;
    }
       }
   
       foreach my $item (split(/\:/,$Apache::lonnet::pr{'cr:d'})) {
    my ($priv,$restrict)=split(/\&/,$item);
           if (!$restrict) { $restrict=''; }
           if ($env{'form.'.$priv.'_d'}) {
       $domrole.=':'.$item;
    }
       }
   
       foreach my $item (split(/\:/,$Apache::lonnet::pr{'cr:s'})) {
    my ($priv,$restrict)=split(/\&/,$item);
           if (!$restrict) { $restrict=''; }
           if ($env{'form.'.$priv.'_s'}) {
       $sysrole.=':'.$item;
    }
       }
       $r->print('<br />Defining Role: '.
      &Apache::lonnet::definerole($rolename,$sysrole,$domrole,$courole));
       if ($env{'request.course.id'}) {
           my $url='/'.$env{'request.course.id'};
           $url=~s/\_/\//g;
    $r->print('<br />'.&mt('Assigning Role to Self').': '.
         &Apache::lonnet::assigncustomrole($env{'user.domain'},
    $env{'user.name'},
    $url,
    $env{'user.domain'},
    $env{'user.name'},
    $rolename));
       }
       $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::loncommon::end_page());
 }  }
   
 # ================================================================ Main Handler  # ================================================================ Main Handler
 sub handler {  sub handler {
     my $r = shift;      my $r = shift;
   
     if ($r->header_only) {      if ($r->header_only) {
        $r->content_type('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;
       }
   
     if ((&Apache::lonnet::allowed('cta',$ENV{'request.course.id'})) ||      &Apache::loncommon::content_type($r,'text/html');
         (&Apache::lonnet::allowed('cin',$ENV{'request.course.id'})) ||       $r->send_http_header;
         (&Apache::lonnet::allowed('ccr',$ENV{'request.course.id'})) ||   
         (&Apache::lonnet::allowed('cep',$ENV{'request.course.id'})) ||      # Main switch on form.action and form.state, as appropriate
         (&Apache::lonnet::allowed('cca',$ENV{'request.role.domain'})) ||      if (! exists($env{'form.action'})) {
         (&Apache::lonnet::allowed('mau',$ENV{'request.role.domain'}))) {          $r->print(&header());
        $r->content_type('text/html');          $r->print(&Apache::lonhtmlcommon::breadcrumbs('User Management'));
        $r->send_http_header;          $r->print(&print_main_menu($permission));
        unless ($ENV{'form.phase'}) {          $r->print(&Apache::loncommon::end_page());
    &print_username_entry_form($r);      } elsif ($env{'form.action'} eq 'upload' && $permission->{'cusr'}) {
        }          $r->print(&header());
        if ($ENV{'form.phase'} eq 'get_user_info') {          &Apache::lonhtmlcommon::add_breadcrumb
            &print_user_modification_page($r);              ({href=>'/adm/createuser?action=upload&state=',
        } elsif ($ENV{'form.phase'} eq 'update_user_data') {                text=>"Upload Users List"});
            &update_user_data($r);          $r->print(&Apache::lonhtmlcommon::breadcrumbs('Upload Users List',
        }                                                     'User_Management_Upload'));
    } else {          $r->print('<form name="studentform" method="post" '.
       $ENV{'user.error.msg'}=                    'enctype="multipart/form-data" '.
         "/adm/createuser:mau:0:0:Cannot modify user data";                    ' action="/adm/createuser">'."\n");
       return HTTP_NOT_ACCEPTABLE;           if (! exists($env{'form.state'})) {
    }              &Apache::lonuserutils::print_first_users_upload_form($r,$context);
    return OK;          } 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 (($phase eq 'get_user_info') || ($phase eq 'userpicked')) {
               if ($env{'form.phase'} eq 'get_user_info') {
                   my ($currstate,$response,$forcenewuser,$results) = 
                       &user_search_result($srch);
                   if ($env{'form.currstate'} eq 'modify') {
                       $currstate = $env{'form.currstate'};
                   }
                   if ($currstate eq 'select') {
                       &print_user_selection_page($r,$response,$srch,$results,
                                                  'createuser',\@search);
                   } elsif ($currstate eq 'modify') {
                       my ($ccuname,$ccdomain);
                       if (($srch->{'srchby'} eq 'uname') && 
                           ($srch->{'srchtype'} eq 'exact')) {
                           $ccuname = $srch->{'srchterm'};
                           $ccdomain= $srch->{'srchdomain'};
                       } else {
                           my @matchedunames = keys(%{$results});
                           ($ccuname,$ccdomain) = split(/:/,$matchedunames[0]);
                       }
                       $ccuname =&LONCAPA::clean_username($ccuname);
                       $ccdomain=&LONCAPA::clean_domain($ccdomain);
                       if ($env{'form.forcenewuser'}) {
                           $response = '';
                       }
                       &print_user_modification_page($r,$ccuname,$ccdomain,
                                                     $srch,$response,$context);
                   } elsif ($currstate eq 'query') {
                       &print_user_query_page($r,'createuser');
                   } else {
                       &print_username_entry_form($r,$response,$srch,
                                                  $forcenewuser);
                   }
               } elsif ($env{'form.phase'} eq 'userpicked') {
                   my $ccuname = &LONCAPA::clean_username($env{'form.seluname'});
                   my $ccdomain = &LONCAPA::clean_domain($env{'form.seludom'});
                   &print_user_modification_page($r,$ccuname,$ccdomain,$srch,'',
                                                 $context);
               }
           } elsif ($env{'form.phase'} eq 'update_user_data') {
               &update_user_data($r);
           } else {
               &print_username_entry_form($r,undef,$srch);
           }
       } elsif ($env{'form.action'} eq 'custom' && $permission->{'custom'}) {
           if ($env{'form.phase'} eq 'set_custom_roles') {
               &set_custom_role($r);
           } else {
               &custom_role_editor($r);
           }
       } elsif ($env{'form.action'} eq 'listusers' && $permission->{'view'}) {
           my ($cb_jscript,$jscript,$totcodes,$codetitles,$idlist,$idlist_titles);
           my $formname = 'studentform';
           if ($context eq 'domain' && $env{'form.roletype'} eq 'course') {
               ($cb_jscript,$jscript,$totcodes,$codetitles,$idlist,$idlist_titles) = 
                   &Apache::lonuserutils::courses_selector($env{'request.role.domain'},
                                                           $formname);
               my $js = &add_script($jscript).$cb_jscript;
               my $loadcode = 
                   &Apache::lonuserutils::course_selector_loadcode($formname);
               if ($loadcode ne '') {
                   $r->print(&header($js,{'onload' => $loadcode,}));
               } else {
                   $r->print(&header($js));
               }
           } else {
               $r->print(&header());
           }
           &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
   sub user_search_result {
       my ($srch) = @_;
       my %allhomes;
       my %inst_matches;
       my %srch_results;
       my ($response,$currstate,$forcenewuser,$dirsrchres);
       $srch->{'srchterm'} =~ s/\s+/ /g;
       if ($srch->{'srchby'} !~ /^(uname|lastname|lastfirst)$/) {
           $response = &mt('Invalid search.');
       }
       if ($srch->{'srchin'} !~ /^(crs|dom|alc|instd)$/) {
           $response = &mt('Invalid search.');
       }
       if ($srch->{'srchtype'} !~ /^(exact|contains|begins)$/) {
           $response = &mt('Invalid search.');
       }
       if ($srch->{'srchterm'} eq '') {
           $response = &mt('You must enter a search term.');
       }
       if ($srch->{'srchterm'} =~ /^\s+$/) {
           $response = &mt('Your search term must contain more than just spaces.');
       }
       if (($srch->{'srchin'} eq 'dom') || ($srch->{'srchin'} eq 'instd')) {
           if (($srch->{'srchdomain'} eq '') || 
       ! (&Apache::lonnet::domain($srch->{'srchdomain'}))) {
               $response = &mt('You must specify a valid domain when searching in a domain or institutional directory.')
           }
       }
       if (($srch->{'srchin'} eq 'dom') || ($srch->{'srchin'} eq 'crs') ||
           ($srch->{'srchin'} eq 'alc')) {
           if ($srch->{'srchby'} eq 'uname') {
               if ($srch->{'srchterm'} !~ /^$match_username$/) {
                   $response = &mt('You must specify a valid username. Only the following are allowed: letters numbers - . @');
               }
           }
       }
       if ($response ne '') {
           $response = '<span class="LC_warning">'.$response.'</span>';
       }
       if ($srch->{'srchin'} eq 'instd') {
           my $instd_chk = &directorysrch_check($srch);
           if ($instd_chk ne 'ok') {
               $response = '<span class="LC_warning">'.$instd_chk.'</span>'.
                           '<br />'.&mt('You may want to search in the LON-CAPA domain instead of the institutional directory.').'<br /><br />';
           }
       }
       if ($response ne '') {
           return ($currstate,$response);
       }
       if ($srch->{'srchby'} eq 'uname') {
           if (($srch->{'srchin'} eq 'dom') || ($srch->{'srchin'} eq 'crs')) {
               if ($env{'form.forcenew'}) {
                   if ($srch->{'srchdomain'} ne $env{'request.role.domain'}) {
                       my $uhome=&Apache::lonnet::homeserver($srch->{'srchterm'},$srch->{'srchdomain'});
                       if ($uhome eq 'no_host') {
                           my $domdesc = &Apache::lonnet::domain($env{'request.role.domain'},'description');
                           my $showdom = &display_domain_info($env{'request.role.domain'});
                           $response = &mt('New users can only be created in the domain to which your current role belongs - [_1].',$showdom);
                       } else {
                           $currstate = 'modify';
                       }
                   } else {
                       $currstate = 'modify';
                   }
               } else {
                   if ($srch->{'srchin'} eq 'dom') {
                       if ($srch->{'srchtype'} eq 'exact') {
                           my $uhome=&Apache::lonnet::homeserver($srch->{'srchterm'},$srch->{'srchdomain'});
                           if ($uhome eq 'no_host') {
                               ($currstate,$response,$forcenewuser) =
                                   &build_search_response($srch,%srch_results);
                           } else {
                               $currstate = 'modify';
                           }
                       } else {
                           %srch_results = &Apache::lonnet::usersearch($srch);
                           ($currstate,$response,$forcenewuser) =
                               &build_search_response($srch,%srch_results);
                       }
                   } else {
                       my $courseusers = &get_courseusers();
                       if ($srch->{'srchtype'} eq 'exact') {
                           if (exists($courseusers->{$srch->{'srchterm'}.':'.$srch->{'srchdomain'}})) {
                               $currstate = 'modify';
                           } else {
                               ($currstate,$response,$forcenewuser) =
                                   &build_search_response($srch,%srch_results);
                           }
                       } else {
                           foreach my $user (keys(%$courseusers)) {
                               my ($cuname,$cudomain) = split(/:/,$user);
                               if ($cudomain eq $srch->{'srchdomain'}) {
                                   my $matched = 0;
                                   if ($srch->{'srchtype'} eq 'begins') {
                                       if ($cuname =~ /^\Q$srch->{'srchterm'}\E/i) {
                                           $matched = 1;
                                       }
                                   } else {
                                       if ($cuname =~ /\Q$srch->{'srchterm'}\E/i) {
                                           $matched = 1;
                                       }
                                   }
                                   if ($matched) {
                                       $srch_results{$user} = 
    {&Apache::lonnet::get('environment',
        ['firstname',
         'lastname',
         'permanentemail'],
         $cudomain,$cuname)};
                                   }
                               }
                           }
                           ($currstate,$response,$forcenewuser) =
                               &build_search_response($srch,%srch_results);
                       }
                   }
               }
           } elsif ($srch->{'srchin'} eq 'alc') {
               $currstate = 'query';
           } elsif ($srch->{'srchin'} eq 'instd') {
               ($dirsrchres,%srch_results) = &Apache::lonnet::inst_directory_query($srch);
               if ($dirsrchres eq 'ok') {
                   ($currstate,$response,$forcenewuser) = 
                       &build_search_response($srch,%srch_results);
               } else {
                   my $showdom = &display_domain_info($srch->{'srchdomain'});
                   $response = '<span class="LC_warning">'.
                       &mt('Institutional directory search is not available in domain: [_1]',$showdom).
                       '</span><br />'.
                       &mt('You may want to search in the LON-CAPA domain instead of the institutional directory.').
                       '<br /><br />'; 
               }
           }
       } else {
           if ($srch->{'srchin'} eq 'dom') {
               %srch_results = &Apache::lonnet::usersearch($srch);
               ($currstate,$response,$forcenewuser) = 
                   &build_search_response($srch,%srch_results); 
           } elsif ($srch->{'srchin'} eq 'crs') {
               my $courseusers = &get_courseusers(); 
               foreach my $user (keys(%$courseusers)) {
                   my ($uname,$udom) = split(/:/,$user);
                   my %names = &Apache::loncommon::getnames($uname,$udom);
                   my %emails = &Apache::loncommon::getemails($uname,$udom);
                   if ($srch->{'srchby'} eq 'lastname') {
                       if ((($srch->{'srchtype'} eq 'exact') && 
                            ($names{'lastname'} eq $srch->{'srchterm'})) || 
                           (($srch->{'srchtype'} eq 'begins') &&
                            ($names{'lastname'} =~ /^\Q$srch->{'srchterm'}\E/i)) ||
                           (($srch->{'srchtype'} eq 'contains') &&
                            ($names{'lastname'} =~ /\Q$srch->{'srchterm'}\E/i))) {
                           $srch_results{$user} = {firstname => $names{'firstname'},
                                               lastname => $names{'lastname'},
                                               permanentemail => $emails{'permanentemail'},
                                              };
                       }
                   } elsif ($srch->{'srchby'} eq 'lastfirst') {
                       my ($srchlast,$srchfirst) = split(/,/,$srch->{'srchterm'});
                       $srchlast =~ s/\s+$//;
                       $srchfirst =~ s/^\s+//;
                       if ($srch->{'srchtype'} eq 'exact') {
                           if (($names{'lastname'} eq $srchlast) &&
                               ($names{'firstname'} eq $srchfirst)) {
                               $srch_results{$user} = {firstname => $names{'firstname'},
                                                   lastname => $names{'lastname'},
                                                   permanentemail => $emails{'permanentemail'},
   
                                              };
                           }
                       } elsif ($srch->{'srchtype'} eq 'begins') {
                           if (($names{'lastname'} =~ /^\Q$srchlast\E/i) &&
                               ($names{'firstname'} =~ /^\Q$srchfirst\E/i)) {
                               $srch_results{$user} = {firstname => $names{'firstname'},
                                                   lastname => $names{'lastname'},
                                                   permanentemail => $emails{'permanentemail'},
                                                  };
                           }
                       } else {
                           if (($names{'lastname'} =~ /\Q$srchlast\E/i) && 
                               ($names{'firstname'} =~ /\Q$srchfirst\E/i)) {
                               $srch_results{$user} = {firstname => $names{'firstname'},
                                                   lastname => $names{'lastname'},
                                                   permanentemail => $emails{'permanentemail'},
                                                  };
                           }
                       }
                   }
               }
               ($currstate,$response,$forcenewuser) = 
                   &build_search_response($srch,%srch_results); 
           } elsif ($srch->{'srchin'} eq 'alc') {
               $currstate = 'query';
           } elsif ($srch->{'srchin'} eq 'instd') {
               ($dirsrchres,%srch_results) = &Apache::lonnet::inst_directory_query($srch); 
               if ($dirsrchres eq 'ok') {
                   ($currstate,$response,$forcenewuser) = 
                       &build_search_response($srch,%srch_results);
               } else {
                   my $showdom = &display_domain_info($srch->{'srchdomain'});                $response = '<span class="LC_warning">'.
                       &mt('Institutional directory search is not available in domain: [_1]',$showdom).
                       '</span><br />'.
                       &mt('You may want to search in the LON-CAPA domain instead of the institutional directory.').
                       '<br /><br />';
               }
           }
       }
       return ($currstate,$response,$forcenewuser,\%srch_results);
   }
   
   sub directorysrch_check {
       my ($srch) = @_;
       my $can_search = 0;
       my $response;
       my %dom_inst_srch = &Apache::lonnet::get_dom('configuration',
                                                ['directorysrch'],$srch->{'srchdomain'});
       my $showdom = &display_domain_info($srch->{'srchdomain'});
       if (ref($dom_inst_srch{'directorysrch'}) eq 'HASH') {
           if (!$dom_inst_srch{'directorysrch'}{'available'}) {
               return &mt('Institutional directory search is not available in domain: [_1]',$showdom); 
           }
           if ($dom_inst_srch{'directorysrch'}{'localonly'}) {
               if ($env{'request.role.domain'} ne $srch->{'srchdomain'}) {
                   return &mt('Institutional directory search in domain: [_1] is only allowed for users with a current role in the domain.',$showdom); 
               }
               my @usertypes = split(/:/,$env{'environment.inststatus'});
               if (!@usertypes) {
                   push(@usertypes,'default');
               }
               if (ref($dom_inst_srch{'directorysrch'}{'cansearch'}) eq 'ARRAY') {
                   foreach my $type (@usertypes) {
                       if (grep(/^\Q$type\E$/,@{$dom_inst_srch{'directorysrch'}{'cansearch'}})) {
                           $can_search = 1;
                           last;
                       }
                   }
               }
               if (!$can_search) {
                   my ($insttypes,$order) = &Apache::lonnet::retrieve_inst_usertypes($srch->{'srchdomain'});
                   my @longtypes; 
                   foreach my $item (@usertypes) {
                       push (@longtypes,$insttypes->{$item});
                   }
                   my $insttype_str = join(', ',@longtypes); 
                   return &mt('Institutional directory search in domain: [_1] is not available to your user type: ',$showdom).$insttype_str;
               } 
           } else {
               $can_search = 1;
           }
       } else {
           return &mt('Institutional directory search has not been configured for domain: [_1]',$showdom);
       }
       my %longtext = &Apache::lonlocal::texthash (
                          uname     => 'username',
                          lastfirst => 'last name, first name',
                          lastname  => 'last name',
                          contains  => 'contains',
                          exact     => 'as exact match to',
                          begins    => 'begins with',
                      );
       if ($can_search) {
           if (ref($dom_inst_srch{'directorysrch'}{'searchby'}) eq 'ARRAY') {
               if (!grep(/^\Q$srch->{'srchby'}\E$/,@{$dom_inst_srch{'directorysrch'}{'searchby'}})) {
                   return &mt('Institutional directory search in domain: [_1] is not available for searching by "[_2]"',$showdom,$longtext{$srch->{'srchby'}});
               }
           } else {
               return &mt('Institutional directory search in domain: [_1] is not available.', $showdom);
           }
       }
       if ($can_search) {
           if (ref($dom_inst_srch{'directorysrch'}{'searchtypes'}) eq 'ARRAY') {
               if (grep(/^\Q$srch->{'srchtype'}\E/,@{$dom_inst_srch{'directorysrch'}{'searchtypes'}})) {
                   return 'ok';
               } else {
                   return &mt('Institutional directory search in domain [_1] is not available for the requested search type: "[_2]"',$showdom,$longtext{$srch->{'srchtype'}});
               }
           } else {
               if ((($dom_inst_srch{'directorysrch'}{'searchtypes'} eq 'specify') &&
                    ($srch->{'srchtype'} eq 'exact' || $srch->{'srchtype'} eq 'contains')) ||
                   ($dom_inst_srch{'directorysrch'}{'searchtypes'} eq $srch->{'srchtype'})) {
                   return 'ok';
               } else {
                   return &mt('Institutional directory search in domain [_1] is not available for the requested search type: "[_2]"',$showdom,$longtext{$srch->{'srchtype'}});
               }
           }
       }
   }
   
   sub get_courseusers {
       my %advhash;
       my $classlist = &Apache::loncoursedata::get_classlist();
       my %coursepersonnel=&Apache::lonnet::get_course_adv_roles();
       foreach my $role (sort(keys(%coursepersonnel))) {
           foreach my $user (split(/\,/,$coursepersonnel{$role})) {
       if (!exists($classlist->{$user})) {
    $classlist->{$user} = [];
       }
           }
       }
       return $classlist;
   }
   
   sub build_search_response {
       my ($srch,%srch_results) = @_;
       my ($currstate,$response,$forcenewuser);
       my %names = (
             'uname' => 'username',
             'lastname' => 'last name',
             'lastfirst' => 'last name, first name',
             'crs' => 'this course',
             'dom' => 'LON-CAPA domain: ',
             'instd' => 'the institutional directory for domain: ',
       );
   
       my %single = (
                      begins   => 'A match',
                      contains => 'A match',
                      exact    => 'An exact match',
                    );
       my %nomatch = (
                      begins   => 'No match',
                      contains => 'No match',
                      exact    => 'No exact match',
                     );
       if (keys(%srch_results) > 1) {
           $currstate = 'select';
       } else {
           if (keys(%srch_results) == 1) {
               $currstate = 'modify';
               $response = &mt("$single{$srch->{'srchtype'}} was found for the $names{$srch->{'srchby'}} ([_1]) in $names{$srch->{'srchin'}}.",$srch->{'srchterm'});
               if ($srch->{'srchin'} eq 'dom' || $srch->{'srchin'} eq 'instd') {
                   $response .= &display_domain_info($srch->{'srchdomain'});
               }
           } else {
               $response = '<span class="LC_warning">'.&mt("$nomatch{$srch->{'srchtype'}} found for the $names{$srch->{'srchby'}} ([_1]) in $names{$srch->{'srchin'}}",$srch->{'srchterm'});
               if ($srch->{'srchin'} eq 'dom' || $srch->{'srchin'} eq 'instd') {
                   $response .= &display_domain_info($srch->{'srchdomain'});
               }
               $response .= '</span>';
               if ($srch->{'srchin'} ne 'alc') {
                   $forcenewuser = 1;
                   my $cansrchinst = 0; 
                   if ($srch->{'srchdomain'}) {
                       my %domconfig = &Apache::lonnet::get_dom('configuration',['directorysrch'],$srch->{'srchdomain'});
                       if (ref($domconfig{'directorysrch'}) eq 'HASH') {
                           if ($domconfig{'directorysrch'}{'available'}) {
                               $cansrchinst = 1;
                           } 
                       }
                   }
                   if ((($srch->{'srchby'} eq 'lastfirst') || 
                        ($srch->{'srchby'} eq 'lastname')) &&
                       ($srch->{'srchin'} eq 'dom')) {
                       if ($cansrchinst) {
                           $response .= '<br />'.&mt('You may want to broaden your search to a search of the institutional directory for the domain.');
                       }
                   }
                   if ($srch->{'srchin'} eq 'crs') {
                       $response .= '<br />'.&mt('You may want to broaden your search to the selected LON-CAPA domain.');
                   }
               }
               if (!($srch->{'srchby'} eq 'uname' && $srch->{'srchin'} eq 'dom' && $srch->{'srchtype'} eq 'exact' && $srch->{'srchdomain'} eq $env{'request.role.domain'})) {
                   my $showdom = &display_domain_info($env{'request.role.domain'}); 
                   $response .= '<br /><br />'.&mt("<b>To add a new user</b> (you can only create new users in your current role's domain - <span class=\"LC_cusr_emph\">[_1]</span>):",$env{'request.role.domain'}).'<ul><li>'.&mt("Set 'Domain/institution to search' to: <span class=\"LC_cusr_emph\">[_1]</span>",$showdom).'<li>'.&mt("Set 'Search criteria' to: <span class=\"LC_cusr_emph\">'username is ...... in selected LON-CAPA domain'").'</span></li><li>'.&mt('Provide the proposed username').'</li><li>'.&mt('Search').'</li></ul><br />';
               }
           }
       }
       return ($currstate,$response,$forcenewuser);
   }
   
   sub display_domain_info {
       my ($dom) = @_;
       my $output = $dom;
       if ($dom ne '') { 
           my $domdesc = &Apache::lonnet::domain($dom,'description');
           if ($domdesc ne '') {
               $output .= ' <span class="LC_cusr_emph">('.$domdesc.')</span>';
           }
       }
       return $output;
   }
   
   sub crumb_utilities {
       my %elements = (
          crtuser => {
              srchterm => 'text',
              srchin => 'selectbox',
              srchby => 'selectbox',
              srchtype => 'selectbox',
              srchdomain => 'selectbox',
          },
          docustom => {
              rolename => 'selectbox',
              newrolename => 'textbox',
          },
          studentform => {
              srchterm => 'text',
              srchin => 'selectbox',
              srchby => 'selectbox',
              srchtype => 'selectbox',
              srchdomain => 'selectbox',
          },
       );
   
       my $jsback .= qq|
   function backPage(formname,prevphase,prevstate) {
       formname.phase.value = prevphase;
       formname.currstate.value = prevstate;
       formname.submit();
   }
   |;
       return ($jsback,\%elements);
   }
   
 sub course_level_table {  sub course_level_table {
     my %inccourses = @_;      my (%inccourses) = @_;
     my $table = '';      my $table = '';
     foreach (sort( keys(%inccourses))) {  # Custom Roles?
  my $thiscourse=$_;  
  my $protectedcourse=$_;      my %customroles=&Apache::lonuserutils::my_custom_roles();
       my %lt=&Apache::lonlocal::texthash(
               'exs'  => "Existing sections",
               'new'  => "Define new section",
               'ssd'  => "Set Start Date",
               'sed'  => "Set End Date",
               'crl'  => "Course Level",
               'act'  => "Activate",
               'rol'  => "Role",
               'ext'  => "Extent",
               'grs'  => "Section",
               'sta'  => "Start",
               'end'  => "End"
       );
   
       foreach my $protectedcourse (sort( keys(%inccourses))) {
    my $thiscourse=$protectedcourse;
  $thiscourse=~s:_:/:g;   $thiscourse=~s:_:/:g;
  my %coursedata=&Apache::lonnet::coursedescription($thiscourse);   my %coursedata=&Apache::lonnet::coursedescription($thiscourse);
  my $area=$coursedata{'description'};   my $area=$coursedata{'description'};
  my $bgcol=$thiscourse;          my $type=$coursedata{'type'};
  $bgcol=~s/[^8-9b-e]//g;   if (!defined($area)) { $area=&mt('Unavailable course').': '.$protectedcourse; }
  $bgcol=substr($bgcol.$bgcol.$bgcol.'ffffff',0,6);   my ($domain,$cnum)=split(/\//,$thiscourse);
  foreach  ('st','ta','ep','ad','in','cc') {          my %sections_count;
     if (&Apache::lonnet::allowed('c'.$_,$thiscourse)) {          if (defined($env{'request.course.id'})) {
  my $plrole=&Apache::lonnet::plaintext($_);              if ($env{'request.course.id'} eq $domain.'_'.$cnum) {
  $table .= <<ENDEXTENT;                  %sections_count = 
 <tr bgcolor="#$bgcol">      &Apache::loncommon::get_sections($domain,$cnum);
 <td><input type="checkbox" name="act_$protectedcourse\_$_"></td>              }
 <td>$plrole</td>          }
 <td>$area</td>   foreach my $role ('st','ta','ep','in','cc') {
 ENDEXTENT      if (&Apache::lonnet::allowed('c'.$role,$thiscourse)) {
         if ($_ ne 'cc') {   my $plrole=&Apache::lonnet::plaintext($role);
     $table .= <<ENDSECTION;   $table .= &Apache::loncommon::start_data_table_row().
 <td><input type="text" size="5" name="sec_$protectedcourse\_$_"></td>  '<td><input type="checkbox" name="act_'.$protectedcourse.'_'.$role.'" /></td>
 ENDSECTION  <td>'.$plrole.'</td>
   <td>'.$area.'<br />Domain: '.$domain.'</td>'."\n";
           if ($role ne 'cc') {
                       if (%sections_count) {
                           my $currsec =
                               &Apache::lonuserutils::course_sections(\%sections_count,
                                                          $protectedcourse.'_'.$role);
                           $table .= 
                       '<td><table class="LC_createuser">'.
                        '<tr class="LC_section_row">
                           <td valign="top">'.$lt{'exs'}.'<br />'.
                           $currsec.'</td>'.
                        '<td>&nbsp;&nbsp;</td>'.
                        '<td valign="top">&nbsp;'.$lt{'new'}.'<br />'.
                        '<input type="text" name="newsec_'.$protectedcourse.'_'.$role.'" value="" />'.
                        '<input type="hidden" '.
                        'name="sec_'.$protectedcourse.'_'.$role.'" /></td>'.
                        '</tr></table></td>';
                       } else {
                           $table .= '<td><input type="text" size="10" '.
                        'name="sec_'.$protectedcourse.'_'.$role.'" /></td>';
                       }
                 } else {                   } else { 
     $table .= <<ENDSECTION;      $table .= '<td>&nbsp</td>';
 <td>&nbsp</td>   
 ENDSECTION  
                 }                  }
  $table .= <<ENDTIMEENTRY;   $table .= <<ENDTIMEENTRY;
 <td><input type=hidden name="start_$protectedcourse\_$_" value=''>  <td><input type="hidden" name="start_$protectedcourse\_$role" value='' />
 <a href=  <a href=
 "javascript:pjump('date_start','Start Date $plrole',document.cu.start_$protectedcourse\_$_.value,'start_$protectedcourse\_$_','cu.pres','dateset')">Set Start Date</a></td>  "javascript:pjump('date_start','Start Date $plrole',document.cu.start_$protectedcourse\_$role.value,'start_$protectedcourse\_$role','cu.pres','dateset')">$lt{'ssd'}</a></td>
 <td><input type=hidden name="end_$protectedcourse\_$_" value=''>  <td><input type="hidden" name="end_$protectedcourse\_$role" value='' />
 <a href=  <a href=
 "javascript:pjump('date_end','End Date $plrole',document.cu.end_$protectedcourse\_$_.value,'end_$protectedcourse\_$_','cu.pres','dateset')">Set End Date</a></td>  "javascript:pjump('date_end','End Date $plrole',document.cu.end_$protectedcourse\_$role.value,'end_$protectedcourse\_$role','cu.pres','dateset')">$lt{'sed'}</a></td>
 ENDTIMEENTRY  ENDTIMEENTRY
                 $table.= "</tr>\n";                  $table.= &Apache::loncommon::end_data_table_row();
             }              }
         }          }
           foreach my $cust (sort keys %customroles) {
       if (&Apache::lonnet::allowed('ccr',$thiscourse)) {
    my $plrole=$cust;
                   my $customrole=$protectedcourse.'_cr_cr_'.$env{'user.domain'}.
       '_'.$env{'user.name'}.'_'.$plrole;
    $table .= &Apache::loncommon::start_data_table_row().
   '<td><input type="checkbox" name="act_'.$customrole.'" /></td>
   <td>'.$plrole.'</td>
   <td>'.$area.'</td>'."\n";
                   if (%sections_count) {
                       my $currsec =
                           &Apache::lonuserutils::course_sections(\%sections_count,
                                                                  $customrole);
                       $table.=
                      '<td><table class="LC_createuser">'.
                      '<tr class="LC_section_row"><td valign="top">'.
                      $lt{'exs'}.'<br />'.$currsec.'</td>'.
                      '<td>&nbsp;&nbsp;</td>'.
                      '<td valign="top">&nbsp;'.$lt{'new'}.'<br />'.
                      '<input type="text" name="newsec_'.$customrole.'" value="" /></td>'.
                      '<input type="hidden" '.
                      'name="sec_'.$customrole.'" /></td>'.
                      '</tr></table></td>';
                   } else {
                       $table .= '<td><input type="text" size="10" '.
                        'name="sec_'.$customrole.'" /></td>';
                   }
                   $table .= <<ENDENTRY;
   <td><input type="hidden" name="start_$customrole" value='' />
   <a href=
   "javascript:pjump('date_start','Start Date $plrole',document.cu.start_$customrole.value,'start_$customrole','cu.pres','dateset')">$lt{'ssd'}</a></td>
   <td><input type="hidden" name="end_$customrole" value='' />
   <a href=
   "javascript:pjump('date_end','End Date $plrole',document.cu.end_$customrole.value,'end_$customrole','cu.pres','dateset')">$lt{'sed'}</a></td>
   ENDENTRY
                  $table .= &Apache::loncommon::end_data_table_row();
              }
    }
     }      }
     return '' if ($table eq ''); # return nothing if there is nothing       return '' if ($table eq ''); # return nothing if there is nothing 
                                  # in the table                                   # in the table
     my $result = <<ENDTABLE;      my $result;
 <h4>Course Level</h4>      if (!$env{'request.course.id'}) {
 <table border=2><tr><th>Activate</th><th>Role</th><th>Extent</th>          $result = '<h4>'.$lt{'crl'}.'</h4>'."\n";
 <th>Group/Section</th><th>Start</th><th>End</th></tr>      }
 $table      $result .= 
 </table>  &Apache::loncommon::start_data_table().
 ENDTABLE  &Apache::loncommon::start_data_table_header_row().
   '<th>'.$lt{'act'}.'</th><th>'.$lt{'rol'}.'</th><th>'.$lt{'ext'}.'</th>
   <th>'.$lt{'grs'}.'</th><th>'.$lt{'sta'}.'</th><th>'.$lt{'end'}.'</th>'.
   &Apache::loncommon::end_data_table_header_row().
   $table.
   &Apache::loncommon::end_data_table();
     return $result;      return $result;
 }  }
   
   sub course_level_dc {
       my ($dcdom) = @_;
       my %customroles=&Apache::lonuserutils::my_custom_roles();
       my $hiddenitems = '<input type="hidden" name="dcdomain" value="'.$dcdom.'" />'.
                         '<input type="hidden" name="origdom" value="'.$dcdom.'" />'.
                         '<input type="hidden" name="dccourse" value="" />';
       my $courseform='<b>'.&Apache::loncommon::selectcourse_link
               ('cu','dccourse','dcdomain','coursedesc',undef,undef,'Course').'</b>';
       my $cb_jscript = &Apache::loncommon::coursebrowser_javascript($dcdom,'currsec','cu');
       my %lt=&Apache::lonlocal::texthash(
                       'rol'  => "Role",
                       'grs'  => "Section",
                       'exs'  => "Existing sections",
                       'new'  => "Define new section", 
                       'sta'  => "Start",
                       'end'  => "End",
                       'ssd'  => "Set Start Date",
                       'sed'  => "Set End Date"
                     );
       my $header = '<h4>'.&mt('Course Level').'</h4>'.
                    &Apache::loncommon::start_data_table().
                    &Apache::loncommon::start_data_table_header_row().
                    '<th>'.$courseform.'</th><th>'.$lt{'rol'}.'</th><th>'.$lt{'grs'}.'</th><th>'.$lt{'sta'}.'</th><th>'.$lt{'end'}.'</th>'.
                    &Apache::loncommon::end_data_table_header_row();
       my $otheritems = &Apache::loncommon::start_data_table_row()."\n".
                        '<td><input type="text" name="coursedesc" value="" onFocus="this.blur();opencrsbrowser('."'cu','dccourse','dcdomain','coursedesc',''".')" /></td>'."\n".
                        '<td><select name="role">'."\n";
       foreach  my $role ('st','ta','ep','in','cc') {
           my $plrole=&Apache::lonnet::plaintext($role);
           $otheritems .= '  <option value="'.$role.'">'.$plrole;
       }
       if ( keys %customroles > 0) {
           foreach my $cust (sort keys %customroles) {
               my $custrole='cr_cr_'.$env{'user.domain'}.
                       '_'.$env{'user.name'}.'_'.$cust;
               $otheritems .= '  <option value="'.$custrole.'">'.$cust;
           }
       }
       $otheritems .= '</select></td><td>'.
                        '<table border="0" cellspacing="0" cellpadding="0">'.
                        '<tr><td valign="top"><b>'.$lt{'exs'}.'</b><br /><select name="currsec">'.
                        ' <option value=""><--'.&mt('Pick course first').'</select></td>'.
                        '<td>&nbsp;&nbsp;</td>'.
                        '<td valign="top">&nbsp;<b>'.$lt{'new'}.'</b><br />'.
                        '<input type="text" name="newsec" value="" />'.
                        '<input type="hidden" name="groups" value="" /></td>'.
                        '</tr></table></td>';
       $otheritems .= <<ENDTIMEENTRY;
   <td><input type="hidden" name="start" value='' />
   <a href=
   "javascript:pjump('date_start','Start Date',document.cu.start.value,'start','cu.pres','dateset')">$lt{'ssd'}</a></td>
   <td><input type="hidden" name="end" value='' />
   <a href=
   "javascript:pjump('date_end','End Date',document.cu.end.value,'end','cu.pres','dateset')">$lt{'sed'}</a></td>
   ENDTIMEENTRY
       $otheritems .= &Apache::loncommon::end_data_table_row().
                      &Apache::loncommon::end_data_table()."\n";
       return $cb_jscript.$header.$hiddenitems.$otheritems;
   }
   
 #---------------------------------------------- end functions for &phase_two  #---------------------------------------------- end functions for &phase_two
   
 #--------------------------------- functions for &phase_two and &phase_three  #--------------------------------- functions for &phase_two and &phase_three
Removed from v.1.48  
changed lines
  Added in v.1.199

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