--- loncom/interface/createaccount.pm	2009/12/06 23:48:34	1.37.2.1
+++ loncom/interface/createaccount.pm	2010/11/29 14:57:20	1.37.2.2
@@ -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.2 2010/11/29 14:57:20 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".'<br /><br />';
+                            $captchaform."\n".
+                            &mt('If either word is hard to read, [_1] will replace them.','<image src="/res/adm/pages/refresh.gif" alt="reCAPTCHA refresh" />').'<br /><br />';
                 if ($courseid ne '') {
                     $output .= '<input type="hidden" name="courseid" value="'.$courseid.'"/>'."\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})) {