[LON-CAPA-cvs] cvs: doc(GCI_3) /loncapafiles loncapafiles.lpml loncom/interface createaccount.pm

[raeburn]

raeburn		Mon Nov 29 14:57:30 2010 EDT

  Modified files:              (Branch: GCI_3)
    /loncom/interface	createaccount.pm 
    /doc/loncapafiles	loncapafiles.lpml 
  Log:
  - Customization for GCI_3.
    - Alert when creating account that usernames are all lower case.
    - Hint to reload reCAPTCHA if words are hard to read.
  
  
Index: loncom/interface/createaccount.pm
diff -u loncom/interface/createaccount.pm:1.37.2.1 loncom/interface/createaccount.pm:1.37.2.2
--- loncom/interface/createaccount.pm:1.37.2.1	Sun Dec  6 23:48:34 2009
+++ loncom/interface/createaccount.pm	Mon Nov 29 14:57:20 2010
@@ -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 @@
     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 @@
                             &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 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})) {
Index: doc/loncapafiles/loncapafiles.lpml
diff -u doc/loncapafiles/loncapafiles.lpml:1.668.2.11 doc/loncapafiles/loncapafiles.lpml:1.668.2.12
--- doc/loncapafiles/loncapafiles.lpml:1.668.2.11	Tue Nov  9 03:19:33 2010
+++ doc/loncapafiles/loncapafiles.lpml	Mon Nov 29 14:57:29 2010
@@ -2,7 +2,7 @@
  "http://lpml.sourceforge.net/DTD/lpml.dtd">
 <!-- loncapafiles.lpml -->
 
-<!-- $Id: loncapafiles.lpml,v 1.668.2.11 2010/11/09 03:19:33 raeburn Exp $ -->
+<!-- $Id: loncapafiles.lpml,v 1.668.2.12 2010/11/29 14:57:29 raeburn Exp $ -->
 
 <!--
 
@@ -6909,6 +6909,7 @@
 new22.png;
 prnt22.png;
 rcrs22.png;
+refresh.gif;
 </filenames>
 </fileglob>
 <file>