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

Diff for /loncom/interface/loncreateuser.pm between versions 1.454 and 1.456

version 1.454, 2020/09/08 19:38:59 version 1.456, 2021/12/10 04:14:52
Line 71  use Apache::longroup; Line 71  use Apache::longroup;
 use Apache::lonuserutils;  use Apache::lonuserutils;
 use Apache::loncoursequeueadmin;  use Apache::loncoursequeueadmin;
 use LONCAPA qw(:DEFAULT :match);  use LONCAPA qw(:DEFAULT :match);
   use HTML::Entities;
   
 my $loginscript; # piece of javascript used in two separate instances  my $loginscript; # piece of javascript used in two separate instances
 my $authformnop;  my $authformnop;
Line 2441  sub modify_login_block { Line 2442  sub modify_login_block {
 }  }
   
 sub personal_data_display {  sub personal_data_display {
     my ($ccuname,$ccdomain,$newuser,$context,$inst_results,$rolesarray,      my ($ccuname,$ccdomain,$newuser,$context,$inst_results,$rolesarray,$now,
         $now,$captchaform,$emailusername,$usertype,$usernameset,$condition,$excluded) = @_;          $captchaform,$emailusername,$usertype,$usernameset,$condition,$excluded,$showsubmit) = @_;
     my ($output,%userenv,%canmodify,%canmodify_status);      my ($output,%userenv,%canmodify,%canmodify_status);
     my @userinfo = ('firstname','middlename','lastname','generation',      my @userinfo = ('firstname','middlename','lastname','generation',
                     'permanentemail','id');                      'permanentemail','id');
Line 2567  sub personal_data_display { Line 2568  sub personal_data_display {
         if ($usernameset eq 'free') {          if ($usernameset eq 'free') {
             my $onclick = "toggleUsernameDisp(this,'selfcreateusername');";               my $onclick = "toggleUsernameDisp(this,'selfcreateusername');"; 
             $output .= &Apache::lonhtmlcommon::row_title($lt{'username'},undef,'LC_oddrow_value')."\n".              $output .= &Apache::lonhtmlcommon::row_title($lt{'username'},undef,'LC_oddrow_value')."\n".
                        &mt('Use e-mail address: ').                         '<span class="LC_nobreak">'.&mt('Use e-mail address: ').
                        '<label><input type="radio" name="emailused" value="1" checked="checked" onclick="'.$onclick.'" />'.&mt('Yes').'</label>'."\n".                         '<label><input type="radio" name="emailused" value="1" checked="checked" onclick="'.$onclick.'" />'.
                        ('&nbsp;'x2).                         &mt('Yes').'</label>'.('&nbsp;'x2).
                        '<label><input type="radio" name="emailused" value="0" onclick="'.$onclick.'" />'.&mt('No').'</label>'."\n".                         '<label><input type="radio" name="emailused" value="0" onclick="'.$onclick.'" />'.
                          &mt('No').'</label></span>'."\n".
                        '<div id="selfcreateusername" style="display: none; font-size: smaller">'.                         '<div id="selfcreateusername" style="display: none; font-size: smaller">'.
                        '<br /><span class="LC_nobreak">'.&mt('Preferred username').                         '<br /><span class="LC_nobreak">'.&mt('Preferred username').
                        '&nbsp;<input type="text" name="username" value="" size="20" autocomplete="off"/>'.                         '&nbsp;<input type="text" name="username" value="" size="20" autocomplete="off"/>'.
Line 2678  sub personal_data_display { Line 2680  sub personal_data_display {
                        &Apache::lonhtmlcommon::row_closure(1);                          &Apache::lonhtmlcommon::row_closure(1); 
             $rowcount ++;              $rowcount ++;
         }          }
         my $submit_text = &mt('Create account');          if ($showsubmit) {
         $output .= &Apache::lonhtmlcommon::row_title()."\n".              my $submit_text = &mt('Create account');
                    '<br /><input type="submit" name="createaccount" value="'.              $output .= &Apache::lonhtmlcommon::row_title()."\n".
                    $submit_text.'" />'.                         '<br /><input type="submit" name="createaccount" value="'.
                    '<input type="hidden" name="type" value="'.$usertype.'" />'.                         $submit_text.'" />';
                    &Apache::lonhtmlcommon::row_closure(1);              if ($usertype ne '') {
                   $output .= '<input type="hidden" name="type" value="'.
                              &HTML::Entities::encode($usertype,'\'<>"&').'" />';
               }
               $output .= &Apache::lonhtmlcommon::row_closure(1);
           }
     }      }
     $output .= &Apache::lonhtmlcommon::end_pick_box();      $output .= &Apache::lonhtmlcommon::end_pick_box();
     if (wantarray) {      if (wantarray) {
Removed from v.1.454  
changed lines
  Added in v.1.456

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