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

Diff for /loncom/interface/lonpreferences.pm between versions 1.229 and 1.235

version 1.229, 2019/04/24 02:00:23 version 1.235, 2019/08/21 22:41:13
Line 27 Line 27
 #  #
 # This package uses the "londes.js" javascript code.   # This package uses the "londes.js" javascript code. 
 #  #
 # TODOs that have to be completed:  
 #    interface with lonnet to change the password  
     
 package Apache::lonpreferences;  package Apache::lonpreferences;
   
Line 365  $options.' Line 363  $options.'
 &Apache::lonhtmlcommon::row_closure(1).  &Apache::lonhtmlcommon::row_closure(1).
 &Apache::lonhtmlcommon::end_pick_box().'  &Apache::lonhtmlcommon::end_pick_box().'
 </div>');  </div>');
     if ($roles_check_list) {       if ($roles_check_list) {
         $r->print('<div class="LC_left_float">          $r->print('<div class="LC_left_float">
 <h4>'.&mt('Freeze Roles').'</h4>  <h4>'.&mt('Freeze Roles').'</h4>
 <p>'.&mt('The table below can be used to [_1]freeze[_2] '.$lc_role.'s in the Hotlist.','<q>','</q>').'<br />'.  <p>'.&mt('The table below can be used to [_1]freeze[_2] '.$lc_role.'s in the Hotlist.','<q>','</q>').'<br />'.
Line 1312  sub passwordchanger { Line 1310  sub passwordchanger {
                 );                  );
                 return;                  return;
             }              }
          } else {          } else {
             $r->print(              $r->print(
                 '<p class="LC_warning">'                  '<p class="LC_warning">'
                .&mt('Sorry, the URL generated when you requested reset of'                 .&mt('Sorry, the URL generated when you requested reset of'
Line 1410  sub jscript_send { Line 1408  sub jscript_send {
 |;  |;
         }          }
         if ((ref($extrafields) eq 'HASH') && ($extrafields->{'email'})) {          if ((ref($extrafields) eq 'HASH') && ($extrafields->{'email'})) {
             $output .= qq|               $output .= qq|
         this.document.pserver.elements.email.value =          this.document.pserver.elements.email.value =
                    this.document.client.elements.email.value;                     this.document.client.elements.email.value;
 |;  |;
Line 1446  sub client_form { Line 1444  sub client_form {
                       .&Apache::lonhtmlcommon::row_closure();                        .&Apache::lonhtmlcommon::row_closure();
         }          }
         if ((ref($extrafields) eq 'HASH') && ($extrafields->{'username'})) {          if ((ref($extrafields) eq 'HASH') && ($extrafields->{'username'})) {
             $output .= &Apache::lonhtmlcommon::row_title(                $output .= &Apache::lonhtmlcommon::row_title(
                        '<label for="uname">'.$lt{'username'}.'</label>')                         '<label for="uname">'.$lt{'username'}.'</label>')
                       .'<input type="text" name="uname" size="20" autocapitalize="off" autocorrect="off" />'                        .'<input type="text" name="uname" size="20" autocapitalize="off" autocorrect="off" />'
                       .&Apache::lonhtmlcommon::row_closure()                        .&Apache::lonhtmlcommon::row_closure()
Line 1621  ENDERROR Line 1619  ENDERROR
                          &mt('Please try again.').'</span>',$caller,$mailtoken);                           &mt('Please try again.').'</span>',$caller,$mailtoken);
             return 1;              return 1;
         }          }
     }       }
     if ($newpass1 ne $newpass2) {      if ($newpass1 ne $newpass2) {
  &passwordchanger($r,   &passwordchanger($r,
  '<span class="LC_warning">'.   '<span class="LC_warning">'.
Line 1629  ENDERROR Line 1627  ENDERROR
  &mt('Please try again.').'</span>',$caller,$mailtoken);   &mt('Please try again.').'</span>',$caller,$mailtoken);
  return 1;   return 1;
     }      }
     if (length($newpass1) < 7) {      if ($currentauth eq 'unix:') {
  &passwordchanger($r,          if (length($newpass1) < 7) {
  '<span class="LC_warning">'.              &passwordchanger($r,
  &mt('Passwords must be a minimum of 7 characters long.').'  '.                               '<span class="LC_warning">'.
  &mt('Please try again.').'</span>',$caller,$mailtoken);                               &mt('Passwords must be a minimum of 7 characters long.').'  '.
  return 1;                               &mt('Please try again.').'</span>',$caller,$mailtoken);
               return 1;
           }
       } else {
           my $warning = &Apache::loncommon::check_passwd_rules($domain,$newpass1);
           if ($warning) {
               &passwordchanger($r,'<span class="LC_warning">'.
                               $warning.
                               &mt('Please try again.').'</span>',
                               $caller,$mailtoken);
               return 1;
           }
     }      }
     #      #
     # Check for bad characters      # Check for bad characters
Line 1682  ENDERROR Line 1691  ENDERROR
                 return $result;                  return $result;
             }              }
         } else {          } else {
               my $feedback;
               if ($result eq 'prioruse') {
                   $feedback = &mt('Please enter a password that you have not used recently.');
               } else {
                   $feedback = &mt('Please make sure your old password was entered correctly.');
               }
             $message = &Apache::lonhtmlcommon::confirm_success(              $message = &Apache::lonhtmlcommon::confirm_success(
                 &mt("The password for user [_1] was not changed.",'<i>'.$user.'</i>').' '.&mt('Please make sure your old password was entered correctly.'),1);                  &mt("The password for user [_1] was not changed.",'<i>'.$user.'</i>').' '.$feedback,1);
             $message=&Apache::loncommon::confirmwrapper($message);              $message=&Apache::loncommon::confirmwrapper($message);
             &print_main_menu($r, $message);              &print_main_menu($r, $message);
             if (ref($ended)) {              if (ref($ended)) {
Line 2291  sub handler { Line 2306  sub handler {
     } else {      } else {
         $brlink ='/adm/preferences';          $brlink ='/adm/preferences';
         $brtxt = 'Set User Preferences';          $brtxt = 'Set User Preferences';
         $brhelp = 'Prefs_About_Me,Prefs_Language,Prefs_Screen_Name_Nickname,Change_Colors,Change_Password,Prefs_Messages,Change_Discussion_Display';             $brhelp = 'Prefs_About_Me,Prefs_Language,Prefs_Screen_Name_Nickname,Change_Colors,Change_Password,Prefs_Messages,Change_Discussion_Display';
     }      }
     Apache::lonhtmlcommon::add_breadcrumb      Apache::lonhtmlcommon::add_breadcrumb
         ({href => $brlink,          ({href => $brlink,
Removed from v.1.229  
changed lines
  Added in v.1.235

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