[BACK]Return to createaccount.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/createaccount.pm between versions 1.37.2.1 and 1.37.2.2

version 1.37.2.1, 2009/12/06 23:48:34 version 1.37.2.2, 2010/11/29 14:57:20
Line 374  function validate_email() { Line 374  function validate_email() {
     if (validmail(field) == false) {      if (validmail(field) == false) {
         alert("$lt{'email'}: "+field.value+" $lt{'notv'}.");          alert("$lt{'email'}: "+field.value+" $lt{'notv'}.");
         return false;          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;      return true;
 }  }
Line 420  sub print_username_form { Line 427  sub print_username_form {
                             &Apache::lonhtmlcommon::row_closure(1).                              &Apache::lonhtmlcommon::row_closure(1).
                             &Apache::lonhtmlcommon::row_title(&mt('Validation'),                              &Apache::lonhtmlcommon::row_title(&mt('Validation'),
                                                              'LC_pick_box_title')."\n".                                                               '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 '') {                  if ($courseid ne '') {
                     $output .= '<input type="hidden" name="courseid" value="'.$courseid.'"/>'."\n";                       $output .= '<input type="hidden" name="courseid" value="'.$courseid.'"/>'."\n"; 
                 }                  }
Line 497  sub login_box { Line 505  sub login_box {
 sub process_email_request {  sub process_email_request {
     my ($useremail,$domain,$domdesc,$contact_name,$contact_email,$cancreate,      my ($useremail,$domain,$domdesc,$contact_name,$contact_email,$cancreate,
         $server,$settings,$courseid) = @_;          $server,$settings,$courseid) = @_;
     $useremail = $env{'form.useremail'};      $useremail = lc($env{'form.useremail'});
     my $output;      my $output;
     if (ref($cancreate) eq 'ARRAY') {      if (ref($cancreate) eq 'ARRAY') {
         if (!grep(/^email$/,@{$cancreate})) {          if (!grep(/^email$/,@{$cancreate})) {
Removed from v.1.37.2.1  
changed lines
  Added in v.1.37.2.2

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>