--- loncom/interface/createaccount.pm 2021/12/12 22:10:45 1.72.4.7 +++ loncom/interface/createaccount.pm 2023/11/03 01:12:15 1.88 @@ -4,7 +4,7 @@ # kerberos, or SSO) or an e-mail address. Requests to use an e-mail address as # username may be processed automatically, or may be queued for approval. # -# $Id: createaccount.pm,v 1.72.4.7 2021/12/12 22:10:45 raeburn Exp $ +# $Id: createaccount.pm,v 1.88 2023/11/03 01:12:15 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -37,7 +37,6 @@ use Apache::lonacc; use Apache::lonnet; use Apache::loncommon; use Apache::lonhtmlcommon; -use Apache::lonuserutils; use Apache::lonlocal; use Apache::lonauth; use Apache::resetpw; @@ -528,7 +527,7 @@ sub javascript_checkpass { my $mismatchpass = &mt('The passwords you entered did not match.')."\n". &mt('Please try again.'); my ($numrules,$intargjs) = - &Apache::lonuserutils::passwd_validation_js('upass',$domain); + &Apache::loncommon::passwd_validation_js('upass',$domain); &js_escape(\$nopass); &js_escape(\$mismatchpass); my $js = <<"ENDSCRIPT"; @@ -741,7 +740,7 @@ sub login_box { $lonhost); $output = &serverform($logtoken,$lonhost,undef,$courseid,$context); my $unameform = ''; - my $upassform = ''; + my $upassform = ''; $output .= '
'."\n". &Apache::lonhtmlcommon::start_pick_box()."\n". &Apache::lonhtmlcommon::row_title($titles{$context}, @@ -1255,7 +1254,7 @@ ENDSERVERFORM '
'."\n"; my ($datatable,$rowcount) = &Apache::loncreateuser::personal_data_display('',$domain,'email','selfcreate', - '','',$now,$captchaform, + '','','',$now,$captchaform, $emailusername,$usertype, $usernameset,$condition,$excluded, $showsubmit);