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

Diff for /loncom/interface/loncreateuser.pm between versions 1.222 and 1.238

version 1.222, 2007/12/21 21:02:10 version 1.238, 2008/03/12 02:45:06
Line 76  my $authformfsys; Line 76  my $authformfsys;
 my $authformloc;  my $authformloc;
   
 sub initialize_authen_forms {  sub initialize_authen_forms {
     my ($dom,$curr_authtype,$mode) = @_;       my ($dom,$formname,$curr_authtype,$mode) = @_;
     my ($krbdefdom)=( $ENV{'SERVER_NAME'}=~/(\w+\.\w+)$/);      my ($krbdef,$krbdefdom) = &Apache::loncommon::get_kerberos_defaults($dom);
     $krbdefdom= uc($krbdefdom);      my %param = ( formname => $formname,
     my %param = ( formname => 'document.cu',  
                   kerb_def_dom => $krbdefdom,                    kerb_def_dom => $krbdefdom,
                     kerb_def_auth => $krbdef,
                   domain => $dom,                    domain => $dom,
                 );                  );
     my %abv_auth = &auth_abbrev();      my %abv_auth = &auth_abbrev();
     if ($curr_authtype =~ /^(krb4|krb5|internal|localauth|unix):$/) {      if ($curr_authtype =~ /^(krb4|krb5|internal|localauth|unix):(.*)$/) {
         my $long_auth = $1;          my $long_auth = $1;
           my $curr_autharg = $2;
         my %abv_auth = &auth_abbrev();          my %abv_auth = &auth_abbrev();
         $param{'curr_authtype'} = $abv_auth{$long_auth};          $param{'curr_authtype'} = $abv_auth{$long_auth};
         if ($long_auth =~ /^krb(4|5)$/) {          if ($long_auth =~ /^krb(4|5)$/) {
             $param{'curr_kerb_ver'} = $1;              $param{'curr_kerb_ver'} = $1;
               $param{'curr_autharg'} = $curr_autharg;
         }          }
         if ($mode eq 'modifyuser') {          if ($mode eq 'modifyuser') {
             $param{'mode'} = $mode;              $param{'mode'} = $mode;
         }          }
     }      }
 # no longer static due to configurable kerberos defaults      $loginscript  = &Apache::loncommon::authform_header(%param);
 #    $loginscript  = &Apache::loncommon::authform_header(%param);      $authformkrb  = &Apache::loncommon::authform_kerberos(%param);
     $authformnop  = &Apache::loncommon::authform_nochange(%param);      $authformnop  = &Apache::loncommon::authform_nochange(%param);
 # no longer static due to configurable kerberos defaults  
 #    $authformkrb  = &Apache::loncommon::authform_kerberos(%param);  
     $authformint  = &Apache::loncommon::authform_internal(%param);      $authformint  = &Apache::loncommon::authform_internal(%param);
     $authformfsys = &Apache::loncommon::authform_filesystem(%param);      $authformfsys = &Apache::loncommon::authform_filesystem(%param);
     $authformloc  = &Apache::loncommon::authform_local(%param);      $authformloc  = &Apache::loncommon::authform_local(%param);
Line 156  END_SCRIPT Line 156  END_SCRIPT
         $custom_off = ' ';          $custom_off = ' ';
         $showquota = $currquota;          $showquota = $currquota;
         if ($longinsttype eq '') {          if ($longinsttype eq '') {
             $defaultinfo = &mt('For this user, the default quota would be [_1]              $defaultinfo = &mt('For this user, the default quota would be [_1]'
                             Mb.',$defquota);                              .' Mb.',$defquota);
         } else {          } else {
             $defaultinfo = &mt("For this user, the default quota would be [_1]               $defaultinfo = &mt("For this user, the default quota would be [_1]".
                             Mb, as determined by the user's institutional                                 " Mb, as determined by the user's institutional".
                            affiliation ([_2]).",$defquota,$longinsttype);                                 " affiliation ([_2]).",$defquota,$longinsttype);
         }          }
     } else {      } else {
         if ($longinsttype eq '') {          if ($longinsttype eq '') {
             $defaultinfo = &mt('For this user, the default quota is [_1]              $defaultinfo = &mt('For this user, the default quota is [_1]'
                             Mb.',$defquota);                              .' Mb.',$defquota);
         } else {          } else {
             $defaultinfo = &mt("For this user, the default quota of [_1]              $defaultinfo = &mt("For this user, the default quota of [_1]".
                             Mb, is determined by the user's institutional                                 " Mb, is determined by the user's institutional".
                             affiliation ([_2]).",$defquota,$longinsttype);                                 " affiliation ([_2]).",$defquota,$longinsttype);
         }          }
     }      }
     my $output = $quota_javascript.      my $output = $quota_javascript.
Line 220  sub print_username_entry_form { Line 220  sub print_username_entry_form {
     my %loaditems = (      my %loaditems = (
                 'onload' => "javascript:setFormElements(document.$formtoset)",                  'onload' => "javascript:setFormElements(document.$formtoset)",
                     );                      );
       my %breadcrumb_text = &singleuser_breadcrumb();
     my $start_page =      my $start_page =
  &Apache::loncommon::start_page('User Management',   &Apache::loncommon::start_page('User Management',
        $jscript,{'add_entries' => \%loaditems,});         $jscript,{'add_entries' => \%loaditems,});
Line 230  sub print_username_entry_form { Line 231  sub print_username_entry_form {
     } else {      } else {
         &Apache::lonhtmlcommon::add_breadcrumb          &Apache::lonhtmlcommon::add_breadcrumb
           ({href=>"javascript:backPage(document.crtuser)",            ({href=>"javascript:backPage(document.crtuser)",
             text=>"Single user search",              text=>$breadcrumb_text{'search'},
             faq=>282,bug=>'Instructor Interface',});              faq=>282,bug=>'Instructor Interface',});
     }      }
     my $crumbs = &Apache::lonhtmlcommon::breadcrumbs('User Management');      my $helpitem = 'Course_Change_Privileges';
       if ($env{'form.action'} eq 'custom') {
           $helpitem = 'Course_Editing_Custom_Roles';
       } elsif ($env{'form.action'} eq 'singlestudent') {
           $helpitem = 'Course_Add_Student';
       }
       my $crumbs = &Apache::lonhtmlcommon::breadcrumbs('User Management',
                                                        $helpitem);
     my %existingroles=&Apache::lonuserutils::my_custom_roles();      my %existingroles=&Apache::lonuserutils::my_custom_roles();
     my $choice=&Apache::loncommon::select_form('make new role','rolename',      my $choice=&Apache::loncommon::select_form('make new role','rolename',
  ('make new role' => 'Generate new role ...',%existingroles));   ('make new role' => 'Generate new role ...',%existingroles));
     my %lt=&Apache::lonlocal::texthash(      my %lt=&Apache::lonlocal::texthash(
                     'srch' => "User Search",                      'srst' => 'Search for a user and enroll as a student',
                      or    => "or",                      'srad' => 'Search for a user and modify/add user information or roles',
     'usr'  => "Username",      'usr'  => "Username",
                     'dom'  => "Domain",                      'dom'  => "Domain",
                     'ecrp' => "Edit Custom Role Privileges",                      'ecrp' => "Edit Custom Role Privileges",
                     'nr'   => "Name of Role",                      'nr'   => "Name of Role",
                     'cre'  => "Custom Role Editor",                      'cre'  => "Custom Role Editor",
                     'mod'  => "to modify user information or add/modify roles",  
                     'enrl' => "to enroll one student",  
        );         );
     my $help = &Apache::loncommon::help_open_menu(undef,undef,282,'Instructor Interface');  
     my $helpsiur=&Apache::loncommon::help_open_topic('Course_Change_Privileges');  
     my $helpsist=&Apache::loncommon::help_open_topic('Course_Add_Student');  
     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);      $r->print($start_page."\n".$crumbs);
     if ($env{'form.action'} eq 'custom') {      if ($env{'form.action'} eq 'custom') {
         if (&Apache::lonnet::allowed('mcr','/')) {          if (&Apache::lonnet::allowed('mcr','/')) {
Line 263  sub print_username_entry_form { Line 261  sub print_username_entry_form {
 <form action="/adm/createuser" method="post" name="docustom">  <form action="/adm/createuser" method="post" name="docustom">
 <input type="hidden" name="action" value="$env{'form.action'}" />  <input type="hidden" name="action" value="$env{'form.action'}" />
 <input type="hidden" name="phase" value="selected_custom_edit" />  <input type="hidden" name="phase" value="selected_custom_edit" />
 <h3>$lt{'ecrp'}$helpecpr</h3>  <h3>$lt{'ecrp'}</h3>
 $lt{'nr'}: $choice <input type="text" size="15" name="newrolename" /><br />  $lt{'nr'}: $choice <input type="text" size="15" name="newrolename" /><br />
 <input name="customeditor" type="submit" value="$lt{'cre'}" />  <input name="customeditor" type="submit" value="$lt{'cre'}" />
 </form>  </form>
 ENDCUSTOM  ENDCUSTOM
         }          }
     } else {      } else {
         my $actiontext = $lt{'mod'}.$helpsiur;          my $actiontext = $lt{'srad'};
         if ($env{'form.action'} eq 'singlestudent') {          if ($env{'form.action'} eq 'singlestudent') {
             $actiontext = $lt{'enrl'}.$helpsist;              $actiontext = $lt{'srst'};
         }          }
         $r->print("          $r->print("
 <h3>$lt{'srch'} $sellink $actiontext</h3>");  <h3>$actiontext</h3>");
         if ($env{'form.origform'} ne 'crtusername') {          if ($env{'form.origform'} ne 'crtusername') {
             $r->print("\n".$response);              $r->print("\n".$response);
         }          }
Line 287  ENDCUSTOM Line 285  ENDCUSTOM
 sub entry_form {  sub entry_form {
     my ($dom,$srch,$forcenewuser,$context,$responsemsg) = @_;      my ($dom,$srch,$forcenewuser,$context,$responsemsg) = @_;
     my %domconf = &Apache::lonnet::get_dom('configuration',['usercreation'],$dom);      my %domconf = &Apache::lonnet::get_dom('configuration',['usercreation'],$dom);
     my $usertype;      my ($usertype,$inexact);
     if (ref($srch) eq 'HASH') {      if (ref($srch) eq 'HASH') {
         if (($srch->{'srchin'} eq 'dom') &&          if (($srch->{'srchin'} eq 'dom') &&
             ($srch->{'srchby'} eq 'uname') &&              ($srch->{'srchby'} eq 'uname') &&
Line 297  sub entry_form { Line 295  sub entry_form {
             my ($rules,$ruleorder) =              my ($rules,$ruleorder) =
                 &Apache::lonnet::inst_userrules($srch->{'srchdomain'},'username');                  &Apache::lonnet::inst_userrules($srch->{'srchdomain'},'username');
             $usertype = &Apache::lonuserutils::check_usertype($srch->{'srchdomain'},$srch->{'srchterm'},$rules);              $usertype = &Apache::lonuserutils::check_usertype($srch->{'srchdomain'},$srch->{'srchterm'},$rules);
           } else {
               $inexact = 1;
         }          }
     }      }
     my $cancreate =      my $cancreate =
Line 305  sub entry_form { Line 305  sub entry_form {
        &Apache::loncommon::user_picker($dom,$srch,$forcenewuser,         &Apache::loncommon::user_picker($dom,$srch,$forcenewuser,
                                        'document.crtuser',$cancreate,$usertype);                                         'document.crtuser',$cancreate,$usertype);
     my $srchbutton = &mt('Search');      my $srchbutton = &mt('Search');
       if ($env{'form.action'} eq 'singlestudent') {
           $srchbutton = &mt('Search and Enroll');
       } elsif ($cancreate && $responsemsg ne '' && $inexact) {
           $srchbutton = &mt('Search or Add New User');
       }
     my $output = <<"ENDBLOCK";      my $output = <<"ENDBLOCK";
 <form action="/adm/createuser" method="post" name="crtuser">  <form action="/adm/createuser" method="post" name="crtuser">
 <input type="hidden" name="action" value="$env{'form.action'}" />  <input type="hidden" name="action" value="$env{'form.action'}" />
Line 313  $userpicker Line 318  $userpicker
 <input name="userrole" type="button" value="$srchbutton" onclick="javascript:validateEntry(document.crtuser)" />  <input name="userrole" type="button" value="$srchbutton" onclick="javascript:validateEntry(document.crtuser)" />
 </form>  </form>
 ENDBLOCK  ENDBLOCK
     if ($cancreate && $env{'form.phase'} eq '') {      if ($env{'form.phase'} eq '') {
         my $defdom=$env{'request.role.domain'};          my $defdom=$env{'request.role.domain'};
         my $domform = &Apache::loncommon::select_dom_form($defdom,'srchdomain');          my $domform = &Apache::loncommon::select_dom_form($defdom,'srchdomain');
         my $helpcrt=&Apache::loncommon::help_open_topic('Course_Change_Privileges');  
         my %lt=&Apache::lonlocal::texthash(          my %lt=&Apache::lonlocal::texthash(
                     'enro' => 'Enroll one student',
                     'admo' => 'Add/modify a single user',
                     'crea' => 'create new user if required',
                     'uskn' => "username is known",
                   'crnu' => 'Create a new user',                    'crnu' => 'Create a new user',
                   'usr'  => 'Username',                    'usr'  => 'Username',
                   'dom'  => 'in domain',                    'dom'  => 'in domain',
                   'cra'  => 'Create user',                    'enrl' => 'Enroll',
                     'cram'  => 'Create/Modify user',
         );          );
           my $sellink=&Apache::loncommon::selectstudent_link('crtusername','srchterm','srchdomain');
           my ($title,$buttontext,$showresponse);
           if ($env{'form.action'} eq 'singlestudent') {   
               $title = $lt{'enro'};
               $buttontext = $lt{'enrl'};
           } else {
               $title = $lt{'admo'};
               $buttontext = $lt{'cram'};
           }
           if ($cancreate) {
               $title .= ' <span class="LC_cusr_subheading">('.$lt{'crea'}.')</span>';
           } else {
               $title .= ' <span class="LC_cusr_subheading">('.$lt{'uskn'}.')</span>';
           }
           if ($env{'form.origform'} eq 'crtusername') {
               $showresponse = $responsemsg;
           }
         $output .= <<"ENDDOCUMENT";          $output .= <<"ENDDOCUMENT";
   <br />
 <form action="/adm/createuser" method="post" name="crtusername">  <form action="/adm/createuser" method="post" name="crtusername">
 <input type="hidden" name="action" value="$env{'form.action'}" />  <input type="hidden" name="action" value="$env{'form.action'}" />
 <input type="hidden" name="phase" value="createnewuser" />  <input type="hidden" name="phase" value="createnewuser" />
 <input type="hidden" name="srchtype" value="exact" />  <input type="hidden" name="srchtype" value="exact" />
 <input type="hidden" name="srchby" value="username" />  <input type="hidden" name="srchby" value="uname" />
 <input type="hidden" name="srchin" value="dom" />  <input type="hidden" name="srchin" value="dom" />
 <input type="hidden" name="forcenewuser" value="1" />  <input type="hidden" name="forcenewuser" value="1" />
 <input type="hidden" name="origform" value="crtusername" />  <input type="hidden" name="origform" value="crtusername" />
 <h3>$lt{crnu}$helpcrt</h3>  <h3>$title</h3>
 $responsemsg  $showresponse
 <table>  <table>
  <tr>   <tr>
   <td>$lt{'usr'}:</td>    <td>$lt{'usr'}:</td>
   <td><input type="text" size="15" name="srchterm" /></td>    <td><input type="text" size="15" name="srchterm" /></td>
   <td>&nbsp;$lt{'dom'}:</td><td>$domform</td>    <td>&nbsp;$lt{'dom'}:</td><td>$domform</td>
   <td>&nbsp;<input name="userrole" type="submit" value="$lt{'cra'}" /></td>    <td>&nbsp;$sellink&nbsp;</td>
     <td>&nbsp;<input name="userrole" type="submit" value="$buttontext" /></td>
  </tr>   </tr>
 </table>  </table>
 </form>  </form>
Line 377  END Line 405  END
   
 # =================================================================== Phase two  # =================================================================== Phase two
 sub print_user_selection_page {  sub print_user_selection_page {
     my ($r,$response,$srch,$srch_results,$operation,$srcharray,$context) = @_;      my ($r,$response,$srch,$srch_results,$srcharray,$context) = @_;
     my @fields = ('username','domain','lastname','firstname','permanentemail');      my @fields = ('username','domain','lastname','firstname','permanentemail');
     my $sortby = $env{'form.sortby'};      my $sortby = $env{'form.sortby'};
   
Line 412  ENDSCRIPT Line 440  ENDSCRIPT
                                        'permanentemail' => "permanent e-mail",                                         'permanentemail' => "permanent e-mail",
                                       );                                        );
     $r->print(&Apache::loncommon::start_page('User Management',$jscript));      $r->print(&Apache::loncommon::start_page('User Management',$jscript));
     if ($operation eq 'createuser') {  
         &Apache::lonhtmlcommon::add_breadcrumb      my %breadcrumb_text = &singleuser_breadcrumb();
             ({href=>"javascript:backPage(document.usersrchform,'','')",      &Apache::lonhtmlcommon::add_breadcrumb
               text=>"Create/modify user",          ({href=>"javascript:backPage(document.usersrchform,'','')",
               faq=>282,bug=>'Instructor Interface',},            text=>$breadcrumb_text{'search'},
              {href=>"javascript:backPage(document.usersrchform,'get_user_info','select')",            faq=>282,bug=>'Instructor Interface',},
               text=>"Select User",           {href=>"javascript:backPage(document.usersrchform,'get_user_info','select')",
               faq=>282,bug=>'Instructor Interface',});            text=>$breadcrumb_text{'userpicked'},
         $r->print(&Apache::lonhtmlcommon::breadcrumbs('User Management'));            faq=>282,bug=>'Instructor Interface',});
       if ($env{'form.action'} eq 'singleuser') {
           $r->print(&Apache::lonhtmlcommon::breadcrumbs('User Management',
                                                         'Course_Change_Privileges'));
         $r->print("<b>$lt{'usrch'}</b><br />");          $r->print("<b>$lt{'usrch'}</b><br />");
         $r->print(&entry_form($srch->{'srchdomain'},$srch,undef,$context));          $r->print(&entry_form($srch->{'srchdomain'},$srch,undef,$context));
         $r->print('<h3>'.$lt{'usel'}.'</h3>');          $r->print('<h3>'.$lt{'usel'}.'</h3>');
     } elsif ($operation eq 'enrollstudent') {      } elsif ($env{'form.action'} eq 'singlestudent') {
         &Apache::lonhtmlcommon::add_breadcrumb          $r->print(&Apache::lonhtmlcommon::breadcrumbs('User Management',
             ({href=>"javascript:backPage(document.usersrchform,'','')",                                                        'Course_Add_Student'));
               text=>"Create/modify student",  
               faq=>282,bug=>'Instructor Interface',},  
              {href=>"javascript:backPage(document.usersrchform,'get_user_info','select')",  
               text=>"Select Student",  
               faq=>282,bug=>'Instructor Interface',});  
         $r->print(&Apache::lonhtmlcommon::breadcrumbs('User Management'));  
         $r->print($jscript."<b>$lt{'stusrch'}</b><br />");          $r->print($jscript."<b>$lt{'stusrch'}</b><br />");
         $r->print(&entry_form($srch->{'srchdomain'},$srch,undef,$context));          $r->print(&entry_form($srch->{'srchdomain'},$srch,undef,$context));
         $r->print('</form><h3>'.$lt{'stusel'}.'</h3>');          $r->print('</form><h3>'.$lt{'stusel'}.'</h3>');
Line 509  sub print_user_modification_page { Line 534  sub print_user_modification_page {
         $formname = 'cu';          $formname = 'cu';
     }      }
     my %abv_auth = &auth_abbrev();      my %abv_auth = &auth_abbrev();
     my ($curr_authtype,%rulematch,%inst_results,$curr_kerb_ver,$newuser,      my (%rulematch,%inst_results,$newuser,%alerts,%curr_rules,%got_rules);
         %alerts,%curr_rules,%got_rules);  
     my $uhome=&Apache::lonnet::homeserver($ccuname,$ccdomain);      my $uhome=&Apache::lonnet::homeserver($ccuname,$ccdomain);
     if ($uhome eq 'no_host') {      if ($uhome eq 'no_host') {
         my $usertype;          my $usertype;
Line 565  sub print_user_modification_page { Line 589  sub print_user_modification_page {
         }          }
     } else {      } else {
         $newuser = 0;          $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) {      if ($response) {
         $response = '<br />'.$response;          $response = '<br />'.$response;
     }      }
     my $defdom=$env{'request.role.domain'};  
   
     my ($krbdef,$krbdefdom) =  
        &Apache::loncommon::get_kerberos_defaults($defdom);  
   
     my %param = ( formname => 'document.cu',  
                   kerb_def_dom => $krbdefdom,  
                   kerb_def_auth => $krbdef,  
                   curr_authtype => $curr_authtype,  
                   curr_kerb_ver => $curr_kerb_ver,  
                   domain => $ccdomain,  
                 );  
     $loginscript  = &Apache::loncommon::authform_header(%param);  
     $authformkrb  = &Apache::loncommon::authform_kerberos(%param);  
   
     my $pjump_def = &Apache::lonhtmlcommon::pjump_javascript_definition();      my $pjump_def = &Apache::lonhtmlcommon::pjump_javascript_definition();
     my $dc_setcourse_code = '';      my $dc_setcourse_code = '';
Line 601  sub print_user_modification_page { Line 603  sub print_user_modification_page {
   
     my $js = &validation_javascript($context,$ccdomain,$pjump_def,      my $js = &validation_javascript($context,$ccdomain,$pjump_def,
                                $groupslist,$newuser,$formname,\%loaditem);                                 $groupslist,$newuser,$formname,\%loaditem);
       my $args = {'add_entries' => \%loaditem};  
       if ($env{'form.popup'}) {
          $args->{'no_nav_bar'} = 1; 
       }
     my $start_page =       my $start_page = 
  &Apache::loncommon::start_page('User Management',   &Apache::loncommon::start_page('User Management',$js,$args);
        $js,{'add_entries' => \%loaditem,});  
     my %breadcrumb_text = &singleuser_breadcrumb();      my %breadcrumb_text = &singleuser_breadcrumb();
     &Apache::lonhtmlcommon::add_breadcrumb      &Apache::lonhtmlcommon::add_breadcrumb
      ({href=>"javascript:backPage($form)",       ({href=>"javascript:backPage($form)",
Line 620  sub print_user_modification_page { Line 625  sub print_user_modification_page {
       ({href=>"javascript:backPage($form,'$env{'form.phase'}','modify')",        ({href=>"javascript:backPage($form,'$env{'form.phase'}','modify')",
         text=>$breadcrumb_text{'modify'},          text=>$breadcrumb_text{'modify'},
         faq=>282,bug=>'Instructor Interface',});          faq=>282,bug=>'Instructor Interface',});
     my $crumbs = &Apache::lonhtmlcommon::breadcrumbs('User Management');      my $helpitem = 'Course_Change_Privileges';
       if ($env{'form.action'} eq 'singlestudent') {
           $helpitem = 'Course_Add_Student';
       }
       my $crumbs = &Apache::lonhtmlcommon::breadcrumbs('User Management',
                                                        $helpitem);
   
     my $forminfo =<<"ENDFORMINFO";      my $forminfo =<<"ENDFORMINFO";
 <form action="/adm/createuser" method="post" name="$formname">  <form action="/adm/createuser" method="post" name="$formname">
Line 643  ENDFORMINFO Line 653  ENDFORMINFO
             # Current user has quota modification privileges              # Current user has quota modification privileges
             $portfolioform = '<br />'.&portfolio_quota($ccuname,$ccdomain);              $portfolioform = '<br />'.&portfolio_quota($ccuname,$ccdomain);
         }          }
         &initialize_authen_forms($ccdomain);          &initialize_authen_forms($ccdomain,$formname);
         my %lt=&Apache::lonlocal::texthash(          my %lt=&Apache::lonlocal::texthash(
                 'cnu'            => 'Create New User',                  'cnu'            => 'Create New User',
                 'ast'            => 'as a student',                  'ast'            => 'as a student',
Line 764  ENDCHANGEUSER Line 774  ENDCHANGEUSER
             $r->print(&Apache::lonuserutils::forceid_change($context));              $r->print(&Apache::lonuserutils::forceid_change($context));
         }          }
         $r->print('</div>');          $r->print('</div>');
         my $user_auth_text =           my $user_auth_text =  &user_authentication($ccuname,$ccdomain,$formname);
             &user_authentication($ccuname,$ccdomain,$krbdefdom,\%abv_auth);  
         my $user_quota_text;          my $user_quota_text;
         if (&Apache::lonnet::allowed('mpq',$ccdomain)) {          if (&Apache::lonnet::allowed('mpq',$ccdomain)) {
             # Current user has quota modification privileges              # Current user has quota modification privileges
Line 829  ENDNOPORTPRIV Line 838  ENDNOPORTPRIV
             if ($addrolesdisplay) {              if ($addrolesdisplay) {
                 $r->print('<br /><input type="button" value="'.&mt('Modify User').'"');                  $r->print('<br /><input type="button" value="'.&mt('Modify User').'"');
                 if ($newuser) {                  if ($newuser) {
                     $r->print(' onClick="verify_message(this.form)" \>'."\n");                      $r->print(' onClick="auth_check()" \>'."\n");
                 } else {                  } else {
                     $r->print('onClick="this.form.submit()" \>'."\n");                      $r->print('onClick="this.form.submit()" \>'."\n");
                 }                  }
Line 856  sub singleuser_breadcrumb { Line 865  sub singleuser_breadcrumb {
         $breadcrumb_text{'userpicked'} = 'Select a user',          $breadcrumb_text{'userpicked'} = 'Select a user',
         $breadcrumb_text{'modify'} = 'Set section/dates',          $breadcrumb_text{'modify'} = 'Set section/dates',
     } else {      } else {
         $breadcrumb_text{'search'} = 'Create/modify user';          $breadcrumb_text{'search'} = 'Create/modify a user';
         $breadcrumb_text{'userpicked'} = 'Select a user',          $breadcrumb_text{'userpicked'} = 'Select a user',
         $breadcrumb_text{'modify'} = 'Set user role',          $breadcrumb_text{'modify'} = 'Set user role',
     }      }
Line 886  sub validation_javascript { Line 895  sub validation_javascript {
     if ($context eq 'domain') {      if ($context eq 'domain') {
         my $dcdom = $env{'request.role.domain'};          my $dcdom = $env{'request.role.domain'};
         $loaditem->{'onload'} = "document.cu.coursedesc.value='';";          $loaditem->{'onload'} = "document.cu.coursedesc.value='';";
         $dc_setcourse_code = &Apache::lonuserutils::dc_setcourse_js('cu','singleuser');          $dc_setcourse_code = 
               &Apache::lonuserutils::dc_setcourse_js('cu','singleuser',$context);
     } else {      } else {
         $nondc_setsection_code =          my $checkauth; 
             &Apache::lonuserutils::setsections_javascript($formname,$groupslist);          if (($newuser) || (&Apache::lonnet::allowed('mau',$ccdomain))) {
               $checkauth = 1;
           }
           if ($context eq 'course') {
               $nondc_setsection_code =
                   &Apache::lonuserutils::setsections_javascript($formname,$groupslist,
                                                                 undef,$checkauth);
           }
           if ($checkauth) {
               $nondc_setsection_code .= 
                   &Apache::lonuserutils::verify_authen($formname,$context);
           }
     }      }
     my $js = &user_modification_js($pjump_def,$dc_setcourse_code,      my $js = &user_modification_js($pjump_def,$dc_setcourse_code,
                                    $nondc_setsection_code,$groupslist);                                     $nondc_setsection_code,$groupslist);
   
     my ($jsback,$elements) = &crumb_utilities();      my ($jsback,$elements) = &crumb_utilities();
     my $javascript_validations;  
     if ((&Apache::lonnet::allowed('mau',$ccdomain)) || ($newuser)) {  
         my ($krbdef,$krbdefdom) =  
             &Apache::loncommon::get_kerberos_defaults($ccdomain);  
         $javascript_validations =  
             &Apache::lonuserutils::javascript_validations('createuser',$krbdefdom,undef,  
                                                           undef,$ccdomain);  
     }  
     $js .= "\n".      $js .= "\n".
            '<script type="text/javascript">'."\n".$jsback."\n".             '<script type="text/javascript">'."\n".$jsback."\n".'</script>';
            $javascript_validations.'</script>';  
     return $js;      return $js;
 }  }
   
Line 1230  sub new_domain_roles { Line 1241  sub new_domain_roles {
 }  }
   
 sub user_authentication {  sub user_authentication {
     my ($ccuname,$ccdomain,$krbdefdom,$abv_auth) = @_;      my ($ccuname,$ccdomain,$formname) = @_;
     my $currentauth=&Apache::lonnet::queryauthenticate($ccuname,$ccdomain);      my $currentauth=&Apache::lonnet::queryauthenticate($ccuname,$ccdomain);
     my ($loginscript,$outcome);      my $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      # Check for a bad authentication type
     if ($currentauth !~ /^(krb4|krb5|unix|internal|localauth):/) {      if ($currentauth !~ /^(krb4|krb5|unix|internal|localauth):/) {
         # bad authentication scheme          # bad authentication scheme
Line 1257  sub user_authentication { Line 1255  sub user_authentication {
                        'ld'    => "Login Data"                         'ld'    => "Login Data"
         );          );
         if (&Apache::lonnet::allowed('mau',$ccdomain)) {          if (&Apache::lonnet::allowed('mau',$ccdomain)) {
             &initialize_authen_forms($ccdomain);              &initialize_authen_forms($ccdomain,$formname);
   
             my $choices = &Apache::lonuserutils::set_login($ccdomain,$authformkrb,$authformint,$authformloc);              my $choices = &Apache::lonuserutils::set_login($ccdomain,$authformkrb,$authformint,$authformloc);
             $outcome = <<ENDBADAUTH;              $outcome = <<ENDBADAUTH;
 <script type="text/javascript" language="Javascript">  <script type="text/javascript" language="Javascript">
Line 1278  $lt{'uuas'} ($currentauth). $lt{'adcs'}. Line 1277  $lt{'uuas'} ($currentauth). $lt{'adcs'}.
 ENDBADAUTH  ENDBADAUTH
         }          }
     } else { # Authentication type is valid      } else { # Authentication type is valid
         &initialize_authen_forms($ccdomain,$currentauth,'modifyuser');          &initialize_authen_forms($ccdomain,$formname,$currentauth,'modifyuser');
         my ($authformcurrent,$can_modify,@authform_others) =          my ($authformcurrent,$can_modify,@authform_others) =
             &modify_login_block($ccdomain,$currentauth);              &modify_login_block($ccdomain,$currentauth);
         if (&Apache::lonnet::allowed('mau',$ccdomain)) {          if (&Apache::lonnet::allowed('mau',$ccdomain)) {
Line 1322  ENDBADAUTH Line 1321  ENDBADAUTH
                 $outcome .= <<ENDNOPRIV;                  $outcome .= <<ENDNOPRIV;
 <h3>$lt{'ccld'}</h3>  <h3>$lt{'ccld'}</h3>
 $lt{'yodo'} $lt{'ifch'}: $ccdomain  $lt{'yodo'} $lt{'ifch'}: $ccdomain
   <input type="hidden" name="login" value="nochange" />
 ENDNOPRIV  ENDNOPRIV
             }              }
         }          }
Line 1490  sub update_user_data { Line 1490  sub update_user_data {
     my $jscript = '<script type="text/javascript">'."\n".      my $jscript = '<script type="text/javascript">'."\n".
                   $jsback."\n".'</script>'."\n";                    $jsback."\n".'</script>'."\n";
     my %breadcrumb_text = &singleuser_breadcrumb();      my %breadcrumb_text = &singleuser_breadcrumb();
     $r->print(&Apache::loncommon::start_page($title,$jscript));      my $args;
       if ($env{'form.popup'}) {
           $args->{'no_nav_bar'} = 1;
       } else {
           $args = undef;
       }
       $r->print(&Apache::loncommon::start_page($title,$jscript,$args));
     &Apache::lonhtmlcommon::add_breadcrumb      &Apache::lonhtmlcommon::add_breadcrumb
        ({href=>"javascript:backPage(document.userupdate)",         ({href=>"javascript:backPage(document.userupdate)",
          text=>$breadcrumb_text{'search'},           text=>$breadcrumb_text{'search'},
Line 1508  sub update_user_data { Line 1514  sub update_user_data {
         {href=>"/adm/createuser",          {href=>"/adm/createuser",
          text=>"Result",           text=>"Result",
          faq=>282,bug=>'Instructor Interface',});           faq=>282,bug=>'Instructor Interface',});
     $r->print(&Apache::lonhtmlcommon::breadcrumbs('User Management'));      my $helpitem = 'Course_Change_Privileges';
       if ($env{'form.action'} eq 'singlestudent') {
           $helpitem = 'Course_Add_Student';
       }
       $r->print(&Apache::lonhtmlcommon::breadcrumbs('User Management',
                                                    $helpitem));
     $r->print(&update_result_form($uhome));      $r->print(&update_result_form($uhome));
     # Check Inputs      # Check Inputs
     if (! $env{'form.ccuname'} ) {      if (! $env{'form.ccuname'} ) {
Line 1635  sub update_user_data { Line 1646  sub update_user_data {
  $r->print(&mt('Generating user').': '.$result);   $r->print(&mt('Generating user').': '.$result);
         $uhome = &Apache::lonnet::homeserver($env{'form.ccuname'},          $uhome = &Apache::lonnet::homeserver($env{'form.ccuname'},
                                                $env{'form.ccdomain'});                                                 $env{'form.ccdomain'});
           if (($uhome ne 'no_host') && ($env{'form.customquota'} == 1)) {
               my (%changeHash,$newportfolioquota);
               if ($env{'form.portfolioquota'} eq '') {
                   $newportfolioquota = 0;
               } else {
                   $newportfolioquota = $env{'form.portfolioquota'};
                   $newportfolioquota =~ s/[^\d\.]//g;
               }
               my $quotachanged = &quota_admin($newportfolioquota,\%changeHash);
               if ($quotachanged) {
                   $changeHash{'firstname'}  = $env{'form.cfirstname'};
                   $changeHash{'middlename'} = $env{'form.cmiddlename'};
                   $changeHash{'lastname'}   = $env{'form.clastname'};
                   $changeHash{'generation'} = $env{'form.cgeneration'};
                   $changeHash{'id'}         = $env{'form.cid'};
                   $changeHash{'permanentemail'} = $env{'form.cpermanentemail'};
                   my $quotachgresult =
                       &Apache::lonnet::put('environment',\%changeHash,
                                            $env{'form.ccdomain'},$env{'form.ccuname'});
               }
           }
         $r->print('<br />'.&mt('Home server').': '.$uhome.' '.          $r->print('<br />'.&mt('Home server').': '.$uhome.' '.
                   &Apache::lonnet::hostname($uhome));                    &Apache::lonnet::hostname($uhome));
     } elsif (($env{'form.login'} ne 'nochange') &&      } elsif (($env{'form.login'} ne 'nochange') &&
Line 1954  END Line 1986  END
                     foreach my $key (keys(%changeHash)) {                      foreach my $key (keys(%changeHash)) {
                         $newenvhash{'environment.'.$key} = $changeHash{$key};                          $newenvhash{'environment.'.$key} = $changeHash{$key};
                     }                      }
                     &Apache::lonnet::appenv(%newenvhash);                      &Apache::lonnet::appenv(\%newenvhash);
                 }                  }
             } else { # error occurred              } else { # error occurred
                 $r->print('<span class="LC_error">'.&mt('Unable to successfully change environment for').' '.                  $r->print('<span class="LC_error">'.&mt('Unable to successfully change environment for').' '.
Line 2013  END Line 2045  END
     }      }
     if ($env{'form.action'} eq 'singlestudent') {      if ($env{'form.action'} eq 'singlestudent') {
         &enroll_single_student($r,$uhome,$amode,$genpwd,$now,$newuser);          &enroll_single_student($r,$uhome,$amode,$genpwd,$now,$newuser);
           $r->print('<p><a href="javascript:backPage(document.userupdate)">'.                  &mt('Enroll Another Student').'</a></p>');
     } else {      } else {
         my $rolechanges = &update_roles($r);          my @rolechanges = &update_roles($r);
         if (!$rolechanges && $namechanged) {          if ($namechanged) {
             if ($context eq 'course') {              if ($context eq 'course') {
                 if (@userroles > 0) {                  if (@userroles > 0) {
                     if (grep(/^st$/,@userroles)) {                      if ((@rolechanges == 0) || 
                         my $classlistupdated =                          (!(grep(/^st$/,@rolechanges)))) {
                             &Apache::lonuserutils::update_classlist($cdom,                          if (grep(/^st$/,@userroles)) {
                               my $classlistupdated =
                                   &Apache::lonuserutils::update_classlist($cdom,
                                               $cnum,$env{'form.ccdomain'},                                                $cnum,$env{'form.ccdomain'},
                                        $env{'form.ccuname'},\%userupdate);                                         $env{'form.ccuname'},\%userupdate);
                           }
                     }                      }
                 }                  }
             }              }
         }          }
           my $userinfo = &Apache::loncommon::plainname($env{'form.ccuname'},
                                                        $env{'form.ccdomain'});
           if ($env{'form.popup'}) {
               $r->print('<p><a href="javascript:window.close()">'.&mt('Close window').'</a></p>');
           } else {
               $r->print('<p><a href="javascript:backPage(document.userupdate,'."'$env{'form.prevphase'}','modify'".')">'.&mt('Modify this user: <span class="LC_cusr_emph">([_1])</span>',$userinfo).'</a>'.('&nbsp;'x5).'<a href="javascript:backPage(document.userupdate)">'.&mt('Create/Modify Another User').'</a></p>');
           }
     }      }
     $r->print(&Apache::loncommon::end_page());      $r->print(&Apache::loncommon::end_page());
 }  }
Line 2034  END Line 2077  END
 sub update_roles {  sub update_roles {
     my ($r) = @_;      my ($r) = @_;
     my $now=time;      my $now=time;
     my $rolechanges = 0;      my @rolechanges;
     my %disallowed;      my %disallowed;
     $r->print('<h3>'.&mt('Modifying Roles').'</h3>');      $r->print('<h3>'.&mt('Modifying Roles').'</h3>');
     foreach my $key (keys (%env)) {      foreach my $key (keys (%env)) {
Line 2058  sub update_roles { Line 2101  sub update_roles {
     $now);      $now);
     $r->print($result);      $r->print($result);
  }   }
                   if (!grep(/^\Q$role\E$/,@rolechanges)) {
                       push(@rolechanges,$role);
                   }
     }      }
     if ($key=~m{^form\.rev\:([^_]+)_cr\.cr/($match_domain)/($match_username)/(\w+)$}s) {      if ($key=~m{^form\.rev\:([^_]+)_cr\.cr/($match_domain)/($match_username)/(\w+)$}s) {
 # Revoke custom role  # Revoke custom role
Line 2066  sub update_roles { Line 2112  sub update_roles {
                       &Apache::lonnet::revokecustomrole($env{'form.ccdomain'},                        &Apache::lonnet::revokecustomrole($env{'form.ccdomain'},
   $env{'form.ccuname'},$1,$2,$3,$4).    $env{'form.ccuname'},$1,$2,$3,$4).
  '</b><br />');   '</b><br />');
                   if (!grep(/^cr$/,@rolechanges)) {
                       push(@rolechanges,'cr');
                   }
     }      }
             $rolechanges ++;  
  } elsif ($key=~/^form\.del/) {   } elsif ($key=~/^form\.del/) {
     if ($key=~/^form\.del\:([^\_]+)\_([^\_\.]+)$/) {      if ($key=~/^form\.del\:([^\_]+)\_([^\_\.]+)$/) {
 # Delete standard role  # Delete standard role
Line 2085  sub update_roles { Line 2133  sub update_roles {
     $now);      $now);
     $r->print($result);      $r->print($result);
  }   }
                   if (!grep(/^\Q$role\E$/,@rolechanges)) {
                       push(@rolechanges,$role);
                   }
             }              }
     if ($key=~m{^form\.del\:([^_]+)_cr\.cr/($match_domain)/($match_username)/(\w+)$}) {      if ($key=~m{^form\.del\:([^_]+)_cr\.cr/($match_domain)/($match_username)/(\w+)$}) {
                 my ($url,$rdom,$rnam,$rolename) = ($1,$2,$3,$4);                  my ($url,$rdom,$rnam,$rolename) = ($1,$2,$3,$4);
Line 2094  sub update_roles { Line 2145  sub update_roles {
                       &Apache::lonnet::assigncustomrole($env{'form.ccdomain'},                        &Apache::lonnet::assigncustomrole($env{'form.ccdomain'},
                          $env{'form.ccuname'},$url,$rdom,$rnam,$rolename,$now,                           $env{'form.ccuname'},$url,$rdom,$rnam,$rolename,$now,
                          0,1).'</b><br />');                           0,1).'</b><br />');
                   if (!grep(/^cr$/,@rolechanges)) {
                       push(@rolechanges,'cr');
                   }
             }              }
             $rolechanges ++;  
  } elsif ($key=~/^form\.ren/) {   } elsif ($key=~/^form\.ren/) {
             my $udom = $env{'form.ccdomain'};              my $udom = $env{'form.ccdomain'};
             my $uname = $env{'form.ccuname'};              my $uname = $env{'form.ccuname'};
Line 2109  sub update_roles { Line 2162  sub update_roles {
                     if ($url =~ m-^/($match_domain)/($match_courseid)/?(\w*)$-) {                      if ($url =~ m-^/($match_domain)/($match_courseid)/?(\w*)$-) {
                         my $result = &Apache::loncommon::commit_studentrole(\$logmsg,$udom,$uname,$url,$role,$now,0,$1,$2,$3);                          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') || ($result eq 'refused')) {                          if (($result =~ /^error/) || ($result eq 'not_in_class') || ($result eq 'unknown_course') || ($result eq 'refused')) {
                             $output = "Error: $result\n";                              if ($result eq 'refused' && $logmsg) {
                                   $output = $logmsg;
                               } else { 
                                   $output = "Error: $result\n";
                               }
                         } else {                          } else {
                             $output = &mt('Assigning').' '.$role.' in '.$url.                              $output = &mt('Assigning').' '.$role.' in '.$url.
                                       &mt('starting').' '.localtime($now).                                        &mt('starting').' '.localtime($now).
Line 2124  sub update_roles { Line 2181  sub update_roles {
       $role,$url,$result).'<br />';        $role,$url,$result).'<br />';
  }   }
                 $r->print($output);                  $r->print($output);
                   if (!grep(/^\Q$role\E$/,@rolechanges)) {
                       push(@rolechanges,$role);
                   }
     }      }
 # Re-enable custom role  # Re-enable custom role
     if ($key=~m{^form\.ren\:([^_]+)_cr\.cr/($match_domain)/($match_username)/(\w+)$}) {      if ($key=~m{^form\.ren\:([^_]+)_cr\.cr/($match_domain)/($match_username)/(\w+)$}) {
Line 2133  sub update_roles { Line 2193  sub update_roles {
                                $url,$rdom,$rnam,$rolename,0,$now);                                 $url,$rdom,$rnam,$rolename,0,$now);
                 $r->print(&mt('Re-enabling custom role [_1] by [_2]@[_3] in [_4] : <b>[_5]</b>',                  $r->print(&mt('Re-enabling custom role [_1] by [_2]@[_3] in [_4] : <b>[_5]</b>',
                           $rolename,$rnam,$rdom,$url,$result).'<br />');                            $rolename,$rnam,$rdom,$url,$result).'<br />');
                   if (!grep(/^cr$/,@rolechanges)) {
                       push(@rolechanges,'cr');
                   }
             }              }
             $rolechanges ++;  
  } elsif ($key=~/^form\.act/) {   } elsif ($key=~/^form\.act/) {
             my $udom = $env{'form.ccdomain'};              my $udom = $env{'form.ccdomain'};
             my $uname = $env{'form.ccuname'};              my $uname = $env{'form.ccuname'};
Line 2169  sub update_roles { Line 2231  sub update_roles {
         $r->print(&Apache::loncommon::commit_customrole($udom,$uname,$securl,$three,$four,$five,$start,$end));          $r->print(&Apache::loncommon::commit_customrole($udom,$uname,$securl,$three,$four,$five,$start,$end));
                     }                      }
                 }                  }
                   if (!grep(/^cr$/,@rolechanges)) {
                       push(@rolechanges,'cr');
                   }
     } elsif ($key=~/^form\.act\_($match_domain)\_($match_name)\_([^\_]+)$/) {      } 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
Line 2207  sub update_roles { Line 2272  sub update_roles {
                     if ($emptysec) {                      if ($emptysec) {
                         $r->print(&Apache::loncommon::commit_standardrole($udom,$uname,$url,$three,$start,$end,$one,$two,''));                          $r->print(&Apache::loncommon::commit_standardrole($udom,$uname,$url,$three,$start,$end,$one,$two,''));
                     }                      }
                 }                   }
                   if (!grep(/^\Q$three\E$/,@rolechanges)) {
                       push(@rolechanges,$three);
                   }
     } elsif ($key=~/^form\.act\_([^\_]+)\_([^\_]+)$/) {      } 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
Line 2217  sub update_roles { Line 2285  sub update_roles {
  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 $one = $1;
                   my $two = $2;
    my $url='/'.$one.'/';
                 # split multiple sections                  # split multiple sections
                 my %sections = ();                  my %sections = ();
                 my $num_sections = &build_roles($env{'form.sec_'.$1.'_'.$2},\%sections,$2);                  my $num_sections = &build_roles($env{'form.sec_'.$one.'_'.$two},\%sections,$two);
                 if ($num_sections == 0) {                  if ($num_sections == 0) {
                     $r->print(&Apache::loncommon::commit_standardrole($udom,$uname,$url,$2,$start,$end,$1,undef,''));                      $r->print(&Apache::loncommon::commit_standardrole($udom,$uname,$url,$two,$start,$end,$one,undef,''));
                 } else {                  } else {
                     my $emptysec = 0;                      my $emptysec = 0;
                     foreach my $sec (sort {$a cmp $b} keys %sections) {                      foreach my $sec (sort {$a cmp $b} keys %sections) {
                         if ($sec ne '') {                          if ($sec ne '') {
                             my $securl = $url.'/'.$sec;                              my $securl = $url.'/'.$sec;
                             $r->print(&Apache::loncommon::commit_standardrole($udom,$uname,$securl,$2,$start,$end,$1,undef,$sec));                              $r->print(&Apache::loncommon::commit_standardrole($udom,$uname,$securl,$two,$start,$end,$one,undef,$sec));
                         } else {                          } else {
                             $emptysec = 1;                              $emptysec = 1;
                         }                          }
                     }                      }
                     if ($emptysec) {                      if ($emptysec) {
                         $r->print(&Apache::loncommon::commit_standardrole($udom,$uname,$url,$2,$start,$end,$1,undef,''));                          $r->print(&Apache::loncommon::commit_standardrole($udom,$uname,$url,$two,$start,$end,$one,undef,''));
                     }                      }
                 }                  }
                   if (!grep(/^\Q$two\E$/,@rolechanges)) {
                       push(@rolechanges,$two);
                   }
     } else {      } else {
  $r->print('<p><span class="LC_error">'.&mt('ERROR').': '.&mt('Unknown command').' <tt>'.$key.'</tt></span></p><br />');   $r->print('<p><span class="LC_error">'.&mt('ERROR').': '.&mt('Unknown command').' <tt>'.$key.'</tt></span></p><br />');
             }              }
Line 2248  sub update_roles { Line 2321  sub update_roles {
                 }                  }
                 $r->print(' '.&mt('Please <a href="javascript:history.go(-1)">go back</a> and choose a different section name.').'</p><br />');                  $r->print(' '.&mt('Please <a href="javascript:history.go(-1)">go back</a> and choose a different section name.').'</p><br />');
             }              }
             $rolechanges ++;  
  }   }
     } # End of foreach (keys(%env))      } # End of foreach (keys(%env))
 # Flush the course logs so reverse user roles immediately updated  # Flush the course logs so reverse user roles immediately updated
     &Apache::lonnet::flushcourselogs();      &Apache::lonnet::flushcourselogs();
     if (!$rolechanges) {      if (@rolechanges == 0) {
         $r->print(&mt('No roles to modify'));          $r->print(&mt('No roles to modify'));
     }      }
     return $rolechanges;      return @rolechanges;
 }  }
   
 sub enroll_single_student {  sub enroll_single_student {
Line 2475  sub custom_role_editor { Line 2547  sub custom_role_editor {
       {href=>"javascript:backPage(document.form1,'','')",        {href=>"javascript:backPage(document.form1,'','')",
          text=>"Edit custom role",           text=>"Edit custom role",
          faq=>282,bug=>'Instructor Interface',});           faq=>282,bug=>'Instructor Interface',});
     $r->print(&Apache::lonhtmlcommon::breadcrumbs('User Management'));      $r->print(&Apache::lonhtmlcommon::breadcrumbs('User Management',
                                                     'Course_Editing_Custom_Roles'));
   
     $r->print($body_top);      $r->print($body_top);
     my %lt=&Apache::lonlocal::texthash(      my %lt=&Apache::lonlocal::texthash(
Line 2483  sub custom_role_editor { Line 2556  sub custom_role_editor {
     'crl'  => "Course Level",      'crl'  => "Course Level",
                     'dml'  => "Domain Level",                      'dml'  => "Domain Level",
                     'ssl'  => "System Level");                      'ssl'  => "System Level");
     $r->print('Select a Template<br />');      $r->print(&mt('Select a Template').'<br />');
     $r->print('<form action="">');      $r->print('<form action="">');
     $r->print($button_code);      $r->print($button_code);
     $r->print('</form>');      $r->print('</form>');
Line 2615  sub set_custom_role { Line 2688  sub set_custom_role {
          {href=>"javascript:backPage(document.customresult,'set_custom_roles','')",           {href=>"javascript:backPage(document.customresult,'set_custom_roles','')",
           text=>"Result",            text=>"Result",
           faq=>282,bug=>'Instructor Interface',});            faq=>282,bug=>'Instructor Interface',});
     $r->print(&Apache::lonhtmlcommon::breadcrumbs('User Management'));      $r->print(&Apache::lonhtmlcommon::breadcrumbs('User Management',
                                                     'Course_Editing_Custom_Roles'));
   
     my ($rdummy,$roledef)=      my ($rdummy,$roledef)=
  &Apache::lonnet::get('roles',["rolesdef_$rolename"]);   &Apache::lonnet::get('roles',["rolesdef_$rolename"]);
Line 2692  sub handler { Line 2766  sub handler {
         $context = 'domain';          $context = 'domain';
     }      }
     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},      &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
         ['action','state','callingform','roletype','showrole','bulkaction']);          ['action','state','callingform','roletype','showrole','bulkaction','popup','phase',
            'username','domain','srchterm','srchdomain','srchin','srchby','srchtype']);
     &Apache::lonhtmlcommon::clear_breadcrumbs();      &Apache::lonhtmlcommon::clear_breadcrumbs();
     if ($env{'form.action'} ne 'dateselect') {      if ($env{'form.action'} ne 'dateselect') {
         &Apache::lonhtmlcommon::add_breadcrumb          &Apache::lonhtmlcommon::add_breadcrumb
Line 2723  sub handler { Line 2798  sub handler {
             ({href=>'/adm/createuser?action=upload&state=',              ({href=>'/adm/createuser?action=upload&state=',
               text=>"Upload Users List"});                text=>"Upload Users List"});
         $r->print(&Apache::lonhtmlcommon::breadcrumbs('Upload Users List',          $r->print(&Apache::lonhtmlcommon::breadcrumbs('Upload Users List',
                                                    'User_Management_Upload'));                                                     'Course_Create_Class_List'));
         $r->print('<form name="studentform" method="post" '.          $r->print('<form name="studentform" method="post" '.
                   'enctype="multipart/form-data" '.                    'enctype="multipart/form-data" '.
                   ' action="/adm/createuser">'."\n");                    ' action="/adm/createuser">'."\n");
Line 2749  sub handler { Line 2824  sub handler {
  foreach my $item (@search) {   foreach my $item (@search) {
     $srch->{$item} = $env{'form.'.$item};      $srch->{$item} = $env{'form.'.$item};
  }   }
   
         if (($phase eq 'get_user_info') || ($phase eq 'userpicked') ||          if (($phase eq 'get_user_info') || ($phase eq 'userpicked') ||
             ($phase eq 'createnewuser')) {              ($phase eq 'createnewuser')) {
             if ($env{'form.phase'} eq 'createnewuser') {              if ($env{'form.phase'} eq 'createnewuser') {
Line 2772  sub handler { Line 2846  sub handler {
                     $currstate = $env{'form.currstate'};                      $currstate = $env{'form.currstate'};
                 }                  }
                 if ($currstate eq 'select') {                  if ($currstate eq 'select') {
                     my $operation;   
                     if ($env{'form.action'} eq 'singleuser') {  
                         $operation = 'createuser';  
                     } elsif ($env{'form.action'} eq 'singlestudent') {  
                         $operation = 'enrollstudent';  
                     }  
                     &print_user_selection_page($r,$response,$srch,$results,                      &print_user_selection_page($r,$response,$srch,$results,
                                                $operation,\@search,$context);                                                 \@search,$context);
                 } elsif ($currstate eq 'modify') {                  } elsif ($currstate eq 'modify') {
                     my ($ccuname,$ccdomain);                      my ($ccuname,$ccdomain);
                     if (($srch->{'srchby'} eq 'uname') &&                       if (($srch->{'srchby'} eq 'uname') && 
Line 2801  sub handler { Line 2869  sub handler {
                 } elsif ($currstate eq 'query') {                  } elsif ($currstate eq 'query') {
                     &print_user_query_page($r,'createuser');                      &print_user_query_page($r,'createuser');
                 } else {                  } else {
                       $env{'form.phase'} = '';
                     &print_username_entry_form($r,$context,$response,$srch,                      &print_username_entry_form($r,$context,$response,$srch,
                                                $forcenewuser);                                                 $forcenewuser);
                 }                  }
Line 2833  sub handler { Line 2902  sub handler {
             my $choice = $env{'form.bulkaction'};              my $choice = $env{'form.bulkaction'};
             $r->print(&header());              $r->print(&header());
             $r->print(&Apache::lonhtmlcommon::breadcrumbs("Update Users",              $r->print(&Apache::lonhtmlcommon::breadcrumbs("Update Users",
                                                           'User_Management_List'));                                                            'Course_View_Class_List'));
             if ($permission->{'cusr'}) {              if ($permission->{'cusr'}) {
                 &Apache::lonuserutils::update_user_list($r,$context,$setting,$choice);                  &Apache::lonuserutils::update_user_list($r,$context,$setting,$choice);
                 $r->print('<p><a href="/adm/createuser?action=listusers">'.&mt('Display User Lists').'</a>');  
                 $r->print(&Apache::loncommon::end_page());                  $r->print(&Apache::loncommon::end_page());
             } else {              } else {
                 $r->print(&mt('You are not authorized to make bulk changes to user roles'));                  $r->print(&mt('You are not authorized to make bulk changes to user roles'));
                   $r->print('<p><a href="/adm/createuser?action=listusers">'.&mt('Display User Lists').'</a>');
                 $r->print(&Apache::loncommon::end_page());                  $r->print(&Apache::loncommon::end_page());
             }              }
         } else {          } else {
Line 2865  sub handler { Line 2934  sub handler {
                 $r->print(&header(&add_script(&verify_user_display())));                  $r->print(&header(&add_script(&verify_user_display())));
             }              }
             $r->print(&Apache::lonhtmlcommon::breadcrumbs("List Users",              $r->print(&Apache::lonhtmlcommon::breadcrumbs("List Users",
                                                           'User_Management_List'));                                                            'Course_View_Class_List'));
             &Apache::lonuserutils::print_userlist($r,undef,$permission,$context,              &Apache::lonuserutils::print_userlist($r,undef,$permission,$context,
                          $formname,$totcodes,$codetitles,$idlist,$idlist_titles);                           $formname,$totcodes,$codetitles,$idlist,$idlist_titles);
             $r->print(&Apache::loncommon::end_page());              $r->print(&Apache::loncommon::end_page());
Line 2901  sub handler { Line 2970  sub handler {
                      '<span class="LC_error">'.&mt('You do not have permission to modify dates or sections for users').'</span>'.                        '<span class="LC_error">'.&mt('You do not have permission to modify dates or sections for users').'</span>'. 
                      &Apache::loncommon::end_page());                       &Apache::loncommon::end_page());
         }          }
       } elsif ($env{'form.action'} eq 'selfenroll') {
           $r->print(&header());
           &Apache::lonhtmlcommon::add_breadcrumb
               ({href=>'/adm/createuser?action=selfenroll',
                 text=>"Configure Self-enrollment"});
           if (!exists($env{'form.state'})) {
               $r->print(&Apache::lonhtmlcommon::breadcrumbs('Configure Self-enrollment',
                                                             'Course_Self_Enrollment'));
   
               &print_selfenroll_menu($r,$context,$permission);
           } elsif ($env{'form.state'} eq 'done') {
               &Apache::lonhtmlcommon::add_breadcrumb
               ({href=>'/adm/createuser?action=selfenroll',
                 text=>"Result"});
               $r->print(&Apache::lonhtmlcommon::breadcrumbs('Self-enrollment result',
                                                             'Course_Self_Enrollment'));
               &update_selfenroll_config($r,$context);
           }
           $r->print(&Apache::loncommon::end_page());
     } else {      } else {
         $r->print(&header());          $r->print(&header());
         $r->print(&Apache::lonhtmlcommon::breadcrumbs('User Management'));          $r->print(&Apache::lonhtmlcommon::breadcrumbs('User Management'));
Line 2965  sub print_main_menu { Line 3053  sub print_main_menu {
     my @menu =      my @menu =
         (          (
           { text => $links{$context}{'upload'},            { text => $links{$context}{'upload'},
             help => 'User_Management_Upload',              help => 'Course_Create_Class_List',
             action => 'upload',              action => 'upload',
             permission => $permission->{'cusr'},              permission => $permission->{'cusr'},
             },              },
           { text => $links{$context}{'singleuser'},             { text => $links{$context}{'singleuser'}, 
             help => 'User_Management_Single_User',              help => 'Course_Change_Privileges',
             action => 'singleuser',              action => 'singleuser',
             permission => $permission->{'cusr'},              permission => $permission->{'cusr'},
             },              },
           { text => $links{$context}{'listusers'},            { text => $links{$context}{'listusers'},
             help => 'User_Management_List',              help => 'Course_View_Class_List',
             action => 'listusers',              action => 'listusers',
             permission => ($permission->{'view'} || $permission->{'cusr'}),              permission => ($permission->{'view'} || $permission->{'cusr'}),
           },            },
         );          );
     if ($context eq 'domain' || $context eq 'course') {      if ($context eq 'domain' || $context eq 'course') {
         my $customlink =  { text => 'Edit Custom Roles',          my $customlink =  { text => 'Edit Custom Roles',
                             help => 'Custom_Role_Edit',                              help => 'Course_Editing_Custom_Roles',
                             action => 'custom',                              action => 'custom',
                             permission => $permission->{'custom'},                              permission => $permission->{'custom'},
                           };                            };
Line 2993  sub print_main_menu { Line 3081  sub print_main_menu {
         my @courselinks =          my @courselinks =
             (              (
               { text => 'Enroll a Single Student',                { text => 'Enroll a Single Student',
                  help => 'Course_Single_Student',                   help => 'Course_Add_Student',
                  action => 'singlestudent',                   action => 'singlestudent',
                  permission => $permission->{'cusr'},                   permission => $permission->{'cusr'},
                  },                   },
Line 3005  sub print_main_menu { Line 3093  sub print_main_menu {
         if (!exists($permission->{'cusr_section'})) {          if (!exists($permission->{'cusr_section'})) {
             push(@courselinks,              push(@courselinks,
                { text => 'Automated Student Enrollment Manager',                 { text => 'Automated Student Enrollment Manager',
                    help => 'Course_Automated_Enrollment',
                  permission => (&Apache::lonnet::auto_run($cnum,$cdom)                   permission => (&Apache::lonnet::auto_run($cnum,$cdom)
                                 && $permission->{'cusr'}),                                  && $permission->{'cusr'}),
                  url  => '/adm/populate',                   url  => '/adm/populate',
                  });                   },
                  { text => 'Configure User Self-enrollment',
                    help => 'Course_Self_Enrollment',
                    action => 'selfenroll',
                    permission => $permission->{'cusr'},    
                  });
         }          }
         push(@courselinks,          push(@courselinks,
                { text => 'Manage Course Groups',                 { text => 'Manage Course Groups',
Line 3022  sub print_main_menu { Line 3116  sub print_main_menu {
     foreach my $menu_item (@menu) {      foreach my $menu_item (@menu) {
         next if (! $menu_item->{'permission'});          next if (! $menu_item->{'permission'});
         $menu_html.='<p>';          $menu_html.='<p>';
           if (exists($menu_item->{'help'})) {
               $menu_html.=
                   &Apache::loncommon::help_open_topic($menu_item->{'help'});
           }
         $menu_html.='<font size="+1">';          $menu_html.='<font size="+1">';
         if (exists($menu_item->{'url'})) {          if (exists($menu_item->{'url'})) {
             $menu_html.=qq{<a href="$menu_item->{'url'}">};              $menu_html.=qq{<a href="$menu_item->{'url'}">};
Line 3030  sub print_main_menu { Line 3128  sub print_main_menu {
                 qq{<a href="/adm/createuser?action=$menu_item->{'action'}">};                  qq{<a href="/adm/createuser?action=$menu_item->{'action'}">};
         }          }
         $menu_html.= &mt($menu_item->{'text'}).'</a></font>';          $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>';          $menu_html.='</p>';
     }      }
     return $menu_html;      return $menu_html;
Line 3050  sub restore_prev_selections { Line 3144  sub restore_prev_selections {
  \%saveable_parameters);   \%saveable_parameters);
 }  }
   
   sub print_selfenroll_menu {
       my ($r,$context,$permission) = @_;
       my $formname = 'enrollstudent';
       my $nolink = 1;
       my ($row,$lt) = &get_selfenroll_titles();
       my $groupslist = &Apache::lonuserutils::get_groupslist();
       my $setsec_js = 
           &Apache::lonuserutils::setsections_javascript($formname,$groupslist);
       my $output = '<script type="text/javascript">'."\n".
                    $setsec_js."\n".
                    '</script>'."\n".
                    '<h3>'.$lt->{'selfenroll'}.'</h3>'."\n".
                    '<form name="'.$formname.'" method="post">'."\n".
                    &Apache::lonhtmlcommon::start_pick_box();
       if (ref($row) eq 'ARRAY') {
           foreach my $item (@{$row}) {
               my $title = $item; 
               if (ref($lt) eq 'HASH') {
                   $title = $lt->{$item};
               }
               $output .= 
                   &Apache::lonhtmlcommon::row_title($title,
                                'LC_selfenroll_pick_box_title','LC_oddrow_value')."\n";
               if ($item eq 'types') {
                   my $curr_types = $env{'course.'.$env{'request.course.id'}.'.internal.selfenroll_types'};
                   $output .= '<input type="text" name="selfenroll_types" value="'.$curr_types.'" size="50" />';
               } elsif ($item eq 'registered') {
                   my ($regon,$regoff);
                   if ($env{'course.'.$env{'request.course.id'}.'.internal.selfenroll_registered'}) {
                       $regon = ' checked="checked" ';
                       $regoff = ' ';
                   } else {
                       $regon = ' ';
                       $regoff = ' checked="checked" ';
                   }
                   $output .= '<label>'.
                              '<input type="radio" name="registered" value="0"'.$regoff.'/>'.
                              &mt('No').'</label>&nbsp;&nbsp;<label>'.
                              '<input type="radio" name="registered" value="1"'.$regon.'/>'.
                              &mt('Yes').'</label>';
               } elsif ($item eq 'enroll_dates') {
                   my $starttime = $env{'course.'.$env{'request.course.id'}.'.internal.selfenroll_start_date'};
                   my $endtime = $env{'course.'.$env{'request.course.id'}.'.internal.selfenroll_end_date'};
                   if ($starttime eq '') {
                       $starttime = $env{'course.'.$env{'request.course.id'}.'.default_enrollment_start_date'};
                   }
                   if ($endtime eq '') {
                       $endtime = $env{'course.'.$env{'request.course.id'}.'.default_enrollment_end_date'};
                   }
                   my $startform =
                       &Apache::lonhtmlcommon::date_setter($formname,'selfenroll_start_date',$starttime,
                                         undef,undef,undef,undef,undef,undef,undef,$nolink);
                   my $endform =
                       &Apache::lonhtmlcommon::date_setter($formname,'selfenroll_end_date',$endtime,
                                         undef,undef,undef,undef,undef,undef,undef,$nolink);
                   $output .= &selfenroll_date_forms($startform,$endform);
               } elsif ($item eq 'access_dates') {
                   my $starttime = $env{'course.'.$env{'request.course.id'}.'.internal.selfenroll_start_access'};
                   my $endtime = $env{'course.'.$env{'request.course.id'}.'.internal.selfenroll_end_access'};
                   if ($starttime eq '') {
                       $starttime = $env{'course.'.$env{'request.course.id'}.'.default_enrollment_start_date'};
                   }
                   if ($endtime eq '') {
                       $endtime = $env{'course.'.$env{'request.course.id'}.'.default_enrollment_end_date'};
                   }
                   my $startform =
                       &Apache::lonhtmlcommon::date_setter($formname,'selfenroll_start_access',$starttime,
                                         undef,undef,undef,undef,undef,undef,undef,$nolink);
                   my $endform =
                       &Apache::lonhtmlcommon::date_setter($formname,'selfenroll_end_access',$endtime,
                                         undef,undef,undef,undef,undef,undef,undef,$nolink);
                   $output .= &selfenroll_date_forms($startform,$endform);
               } elsif ($item eq 'section') {
                   my $currsec = $env{'course.'.$env{'request.course.id'}.'.internal.selfenroll_section'}; 
                   my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
                   my $cnum = $env{'course.'.$env{'request.course.id'},'.num'};
                   my %sections_count = &Apache::loncommon::get_sections($cdom,$cnum);
                   my $newsecval;
                   if ($currsec ne 'none' && $currsec ne '') {
                       if (!defined($sections_count{$currsec})) {
                           $newsecval = $currsec;
                       }
                   }
                   my $sections_select = 
                       &Apache::lonuserutils::course_sections(\%sections_count,'st',$currsec);
                   $output .= '<table class="LC_createuser">'."\n".
                              '<tr class="LC_section_row">'."\n".
                              '<td align="center">'.&mt('Existing sections')."\n".
                              '<br />'.$sections_select.'</td><td align="center">'.
                              &mt('New section').'<br />'."\n".
                              '<input type="text" name="newsec" size="15" value="'.$newsecval.'" />'."\n".
                              '<input type="hidden" name="sections" value="" />'."\n".
                              '<input type="hidden" name="state" value="done" />'."\n".
                              '</td></tr></table>'."\n";
               }
               $output .= &Apache::lonhtmlcommon::row_closure(1);
           }
       }
       $output .= &Apache::lonhtmlcommon::end_pick_box().
                  '<br /><input type="button" name="selfenrollconf" value="'.
                  &mt('Save changes').'" onclick="setSections(this.form);" /></form>';
       $r->print($output);
       return;
   }
   
   sub selfenroll_date_forms {
       my ($startform,$endform) = @_;
       my $output .= &Apache::lonhtmlcommon::start_pick_box()."\n".
                     &Apache::lonhtmlcommon::row_title(&mt('Starts'),
                                                       'LC_oddrow_value')."\n".
                     $startform."\n".
                     &Apache::lonhtmlcommon::row_closure(1).
                     &Apache::lonhtmlcommon::row_title(&mt('Ends'),
                                                      'LC_oddrow_value')."\n".
                     $endform."\n".
                     &Apache::lonhtmlcommon::row_closure(1).
                     &Apache::lonhtmlcommon::end_pick_box();
       return $output;
   }
   
 #-------------------------------------------------- functions for &phase_two  #-------------------------------------------------- functions for &phase_two
 sub user_search_result {  sub user_search_result {
     my ($context,$srch) = @_;      my ($context,$srch) = @_;
Line 3291  sub directorysrch_check { Line 3505  sub directorysrch_check {
                 my ($insttypes,$order) = &Apache::lonnet::retrieve_inst_usertypes($srch->{'srchdomain'});                  my ($insttypes,$order) = &Apache::lonnet::retrieve_inst_usertypes($srch->{'srchdomain'});
                 my @longtypes;                   my @longtypes; 
                 foreach my $item (@usertypes) {                  foreach my $item (@usertypes) {
                     push (@longtypes,$insttypes->{$item});                      if (defined($insttypes->{$item})) { 
                           push (@longtypes,$insttypes->{$item});
                       } elsif ($item eq 'default') {
                           push (@longtypes,&mt('other')); 
                       }
                 }                  }
                 my $insttype_str = join(', ',@longtypes);                   my $insttype_str = join(', ',@longtypes); 
                 return &mt('Institutional directory search in domain: [_1] is not available to your user type: ',$showdom).$insttype_str;                  return &mt('Institutional directory search in domain: [_1] is not available to your user type: ',$showdom).$insttype_str;
             }               }
         } else {          } else {
             $can_search = 1;              $can_search = 1;
         }          }
Line 3416  sub build_search_response { Line 3634  sub build_search_response {
                     &Apache::lonuserutils::can_create_user($env{'request.role.domain'},$context);                      &Apache::lonuserutils::can_create_user($env{'request.role.domain'},$context);
                 if ($cancreate) {                  if ($cancreate) {
                     my $showdom = &display_domain_info($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 />';                      $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 />';
                 } else {                  } else {
                     my $helplink = ' href="javascript:helpMenu('."'display'".')"';                      my $helplink = ' href="javascript:helpMenu('."'display'".')"';
                     $response .= '<br /><br />'.&mt("You are not authorized to create new users in your current role's domain - <span class=\"LC_cusr_emph\">[_1]</span>.",$env{'request.role.domain'}).'<br />'.&mt('Contact the <a[_1]>helpdesk</a> if you need to create a new user.',$helplink).'<br /><br />';                      $response .= '<br /><br />'.&mt("You are not authorized to create new users in your current role's domain - <span class=\"LC_cusr_emph\">[_1]</span>.",$env{'request.role.domain'}).'<br />'.&mt('Contact the <a[_1]>helpdesk</a> if you need to create a new user.',$helplink).'<br /><br />';
Line 3652  sub course_level_dc { Line 3870  sub course_level_dc {
                      '<td>&nbsp;&nbsp;</td>'.                       '<td>&nbsp;&nbsp;</td>'.
                      '<td valign="top">&nbsp;<b>'.$lt{'new'}.'</b><br />'.                       '<td valign="top">&nbsp;<b>'.$lt{'new'}.'</b><br />'.
                      '<input type="text" name="newsec" value="" />'.                       '<input type="text" name="newsec" value="" />'.
                      '<input type="hidden" name="sections" value="" />'.                       '<input type="hidden" name="section" value="" />'.
                      '<input type="hidden" name="groups" value="" /></td>'.                       '<input type="hidden" name="groups" value="" /></td>'.
                      '</tr></table></td>';                       '</tr></table></td>';
     $otheritems .= <<ENDTIMEENTRY;      $otheritems .= <<ENDTIMEENTRY;
Line 3668  ENDTIMEENTRY Line 3886  ENDTIMEENTRY
     return $cb_jscript.$header.$hiddenitems.$otheritems;      return $cb_jscript.$header.$hiddenitems.$otheritems;
 }  }
   
   sub update_selfenroll_config {
       my ($r,$context) = @_;
       my ($row,$lt) = &get_selfenroll_titles();
       my $groupslist = &Apache::lonuserutils::get_groupslist();
       my (%changes,%warning);
       my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
       my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
       $r->print('<h3>'.$lt->{'selfenroll'}.'</h3>'."\n");
       if (ref($row) eq 'ARRAY') {
           foreach my $item (@{$row}) {
               if ($item eq 'enroll_dates') {
                   my (%currenrolldate,%newenrolldate);
                   foreach my $type ('start','end') {
                       $currenrolldate{$type} = $env{'course.'.$env{'request.course.id'}.'.internal.selfenroll_'.$type.'_date'};
                       $newenrolldate{$type} = &Apache::lonhtmlcommon::get_date_from_form('selfenroll_'.$type.'_date');
                       if ($newenrolldate{$type} ne $currenrolldate{$type}) {
                           $changes{'internal.selfenroll_'.$type.'_date'} = $newenrolldate{$type};
                       }
                   }
               } elsif ($item eq 'access_dates') {
                   my (%currdate,%newdate);
                   foreach my $type ('start','end') {
                       $currdate{$type} = $env{'course.'.$env{'request.course.id'}.'.internal.selfenroll_'.$type.'_access'};
                       $newdate{$type} = &Apache::lonhtmlcommon::get_date_from_form('selfenroll_'.$type.'_access');
                       if ($newdate{$type} ne $currdate{$type}) {
                           $changes{'internal.selfenroll_'.$type.'_access'} = $newdate{$type};
                       }
                   }
               } else {
                   my $curr_val = 
                       $env{'course.'.$env{'request.course.id'}.'.internal.selfenroll_'.$item};
                   my $newval = $env{'form.selfenroll_'.$item};
                   if ($item eq 'section') {
                       $newval = $env{'form.sections'};
                       if (grep(/^\Q$newval\E$/,keys(%{$groupslist}))) {
                           $newval = $curr_val;
                           $warning{$item} = &mt('Section for self-enrolled users unchanged as the proposed section is a group').'<br />'.&mt('Group names and section names must be distinct');
                       } elsif ($newval eq 'all') {
                           $newval = $curr_val;
                           $warning{$item} = &mt("Section for self-enrolled users unchanged, as 'all' is a reserved section name.");
                       }
                       if ($newval eq '') {
                           $newval = 'none';
                       }
                   }
                   if ($newval ne $curr_val) {
                       $changes{'internal.selfenroll_'.$item} = $newval;
                   }
               } 
           }
           if (keys(%warning) > 0) {
               foreach my $item (@{$row}) {
                   if (exists($warning{$item})) {
                       $r->print($warning{$item}.'<br />');
                   }
               } 
           }
           if (keys(%changes) > 0) {
               my $putresult = &Apache::lonnet::put('environment',\%changes,$cdom,$cnum);
               if ($putresult eq 'ok') {
                   if ((exists($changes{'internal.selfenroll_types'})) ||
                       (exists($changes{'internal.selfenroll_start_date'}))  ||
                       (exists($changes{'internal.selfenroll_end_date'}))) {
                       my %crsinfo = &Apache::lonnet::courseiddump($cdom,'.',1,'.','.',
                                                                   $cnum,undef,undef,'Course');
                       my $chome = &Apache::lonnet::homeserver($cnum,$cdom);
                       if (ref($crsinfo{$env{'request.course.id'}}) eq 'HASH') {
                           foreach my $item ('selfenroll_types','selfenroll_start_date','selfenroll_end_date') {
                               if (exists($changes{'internal.'.$item})) {
                                   $crsinfo{$env{'request.course.id'}}{$item} = 
                                       $changes{'internal.'.$item};
                               }
                           }
                           my $crsputresult =
                               &Apache::lonnet::courseidput($cdom,\%crsinfo,
                                                            $chome,'notime');
                       }
                   }
                   $r->print(&mt('The following changes were made to self-enrollment settings:').'<ul>');
                   foreach my $item (@{$row}) {
                       my $title = $item;
                       if (ref($lt) eq 'HASH') {
                           $title = $lt->{$item};
                       }
                       if ($item eq 'enroll_dates') {
                           foreach my $type ('start','end') {
                               if (exists($changes{'internal.selfenroll_'.$type.'_date'})) {
                                   my $newdate = &Apache::lonlocal::locallocaltime($changes{'internal.selfenroll_'.$type.'_date'});
                                   $r->print('<li>'.&mt('[_1]: [_2] set to "[_3]".',
                                             $title,$type,$newdate).'</li>');
                               }
                           }
                       } elsif ($item eq 'access_dates') {
                           foreach my $type ('start','end') {
                               if (exists($changes{'internal.selfenroll_'.$type.'_access'})) {
                                   my $newdate = &Apache::lonlocal::locallocaltime($changes{'internal.selfenroll_'.$type.'_access'});
                                   $r->print('<li>'.&mt('[_1]: [_2] set to "[_3]".',
                                             $title,$type,$newdate).'</li>');
                               }
                           }
                       } else {
                           if (exists($changes{'internal.selfenroll_'.$item})) {
                               $r->print('<li>'.&mt('[_1] set to "[_2]".',$title,
                                         $changes{'internal.selfenroll_'.$item}).'</li>'."\n");
                           }
                       }
                   }
                   $r->print('</ul>');
                   my %newenvhash;
                   foreach my $key (keys(%changes)) {
                       $newenvhash{'course.'.$env{'request.course.id'}.'.'.$key} = $changes{$key};
                   }
                   &Apache::lonnet::appenv(\%newenvhash);
               } else {
                   $r->print(&mt('An error occurred when saving changes to self-enrollment settings in this course.').'<br />'.&mt('The error was: [_1].',$putresult));
               }
           } else {
               $r->print(&mt('No changes were needed to the existing self-enrollment settings in this course.'));
           }
       } else {
           $r->print(&mt('No changes were needed to the existing self-enrollment settings in this course.'));
       }
       return;
   }
   
   sub get_selfenroll_titles {
       my @row = ('types','registered','enroll_dates','access_dates','section');
       my %lt = &Apache::lonlocal::texthash (
                   selfenroll   => 'Self-enrollment with a student role',
                   types        => 'Users allowed to self-enroll in this course',
                   registered   => 'Restrict self-enrollment to registered students?',
                   enroll_dates => 'Dates self-enrollment available',
                   access_dates => 'Access dates for self-enrolled users',
                   section      => 'Section',
                );
       return (\@row,\%lt);
   }
   
 #---------------------------------------------- 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.222  
changed lines
  Added in v.1.238

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