--- loncom/interface/createaccount.pm 2009/12/06 23:48:34 1.37.2.1
+++ loncom/interface/createaccount.pm 2010/11/29 15:13:08 1.37.2.3
@@ -3,7 +3,7 @@
# institutional log-in ID (institutional authentication required - localauth
# or kerberos) or an e-mail address.
#
-# $Id: createaccount.pm,v 1.37.2.1 2009/12/06 23:48:34 raeburn Exp $
+# $Id: createaccount.pm,v 1.37.2.3 2010/11/29 15:13:08 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -374,6 +374,13 @@ function validate_email() {
if (validmail(field) == false) {
alert("$lt{'email'}: "+field.value+" $lt{'notv'}.");
return false;
+ } else {
+ var emailaddr = field.value;
+ var lcemail = emailaddr.toLowerCase();
+ if (emailaddr != lcemail) {
+ field.value = lcemail;
+ alert("WebCenter usernames are all lower case.\\nAccordingly your username will be "+lcemail+" once activated.");
+ }
}
return true;
}
@@ -420,7 +427,8 @@ sub print_username_form {
&Apache::lonhtmlcommon::row_closure(1).
&Apache::lonhtmlcommon::row_title(&mt('Validation'),
'LC_pick_box_title')."\n".
- $captchaform."\n".'
';
+ $captchaform."\n".
+ &mt('If either word is hard to read, [_1] will replace them.','
';
if ($courseid ne '') {
$output .= ''."\n";
}
@@ -497,7 +505,7 @@ sub login_box {
sub process_email_request {
my ($useremail,$domain,$domdesc,$contact_name,$contact_email,$cancreate,
$server,$settings,$courseid) = @_;
- $useremail = $env{'form.useremail'};
+ $useremail = lc($env{'form.useremail'});
my $output;
if (ref($cancreate) eq 'ARRAY') {
if (!grep(/^email$/,@{$cancreate})) {
@@ -1124,17 +1132,17 @@ sub invalid_state {
my ($error,$domdesc,$contact_name,$contact_email,$msgtext) = @_;
my $msg = '