--- loncom/interface/createaccount.pm 2024/08/22 20:12:39 1.72.4.7.2.3 +++ loncom/interface/createaccount.pm 2021/12/10 04:14:52 1.85 @@ -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.2.3 2024/08/22 20:12:39 raeburn Exp $ +# $Id: createaccount.pm,v 1.85 2021/12/10 04:14:52 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -37,6 +37,7 @@ use Apache::lonacc; use Apache::lonnet; use Apache::loncommon; use Apache::lonhtmlcommon; +use Apache::lonuserutils; use Apache::lonlocal; use Apache::lonauth; use Apache::resetpw; @@ -527,7 +528,7 @@ sub javascript_checkpass { my $mismatchpass = &mt('The passwords you entered did not match.')."\n". &mt('Please try again.'); my ($numrules,$intargjs) = - &Apache::loncommon::passwd_validation_js('upass',$domain); + &Apache::lonuserutils::passwd_validation_js('upass',$domain); &js_escape(\$nopass); &js_escape(\$mismatchpass); my $js = <<"ENDSCRIPT"; @@ -740,7 +741,7 @@ sub login_box { $lonhost); $output = &serverform($logtoken,$lonhost,undef,$courseid,$context); my $unameform = ''; - my $upassform = ''; + my $upassform = ''; $output .= '
'."\n"; my ($datatable,$rowcount) = &Apache::loncreateuser::personal_data_display('',$domain,'email','selfcreate', - '','','',$now,$captchaform, + '','',$now,$captchaform, $emailusername,$usertype, $usernameset,$condition,$excluded, $showsubmit);