--- loncom/interface/createaccount.pm 2009/09/23 02:05:38 1.36.10.1
+++ loncom/interface/createaccount.pm 2010/12/02 22:51:27 1.37.2.6
@@ -3,7 +3,7 @@
# institutional log-in ID (institutional authentication required - localauth
# or kerberos) or an e-mail address.
#
-# $Id: createaccount.pm,v 1.36.10.1 2009/09/23 02:05:38 gci Exp $
+# $Id: createaccount.pm,v 1.37.2.6 2010/12/02 22:51:27 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -278,7 +278,7 @@ sub selfenroll_crumbs {
my ($r,$courseid,$desc) = @_;
&Apache::lonhtmlcommon::add_breadcrumb
({href=>"javascript:ToCatalog('backupcrumbs','')",
- text=>"Course Catalog"});
+ text=>"Course/Community Catalog"});
if ($env{'form.coursenum'} ne '') {
&Apache::lonhtmlcommon::add_breadcrumb
({href=>"javascript:ToCatalog('backupcrumbs','details')",
@@ -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";
}
@@ -467,7 +475,7 @@ sub login_box {
my $unameform = '';
my $upassform = '';
$output .= '