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

Diff for /loncom/interface/loncommon.pm between versions 1.1331 and 1.1335

version 1.1331, 2019/05/05 23:19:47 version 1.1335, 2020/01/10 05:08:39
Line 3571  sub check_passwd_rules { Line 3571  sub check_passwd_rules {
     my ($domain,$plainpass) = @_;      my ($domain,$plainpass) = @_;
     my %passwdconf = &Apache::lonnet::get_passwdconf($domain);      my %passwdconf = &Apache::lonnet::get_passwdconf($domain);
     my ($min,$max,@chars,@brokerule,$warning);      my ($min,$max,@chars,@brokerule,$warning);
       $min = $Apache::lonnet::passwdmin;
     if (ref($passwdconf{'chars'}) eq 'ARRAY') {      if (ref($passwdconf{'chars'}) eq 'ARRAY') {
         if ($passwdconf{'min'} =~ /^\d+$/) {          if ($passwdconf{'min'} =~ /^\d+$/) {
             $min = $passwdconf{'min'};              if ($passwdconf{'min'} > $min) {
                   $min = $passwdconf{'min'};
               }
         }          }
         if ($passwdconf{'max'} =~ /^\d+$/) {          if ($passwdconf{'max'} =~ /^\d+$/) {
             $max = $passwdconf{'max'};              $max = $passwdconf{'max'};
         }          }
         @chars = @{$passwdconf{'chars'}};          @chars = @{$passwdconf{'chars'}};
     } else {  
         $min = 7;  
     }      }
     if (($min) && (length($plainpass) < $min)) {      if (($min) && (length($plainpass) < $min)) {
         push(@brokerule,'min');          push(@brokerule,'min');
Line 3597  sub check_passwd_rules { Line 3598  sub check_passwd_rules {
             }              }
         }          }
         if ($rules{'lc'}) {          if ($rules{'lc'}) {
             unless ($plainpass =~ /a-z/) {              unless ($plainpass =~ /[a-z]/) {
                 push(@brokerule,'lc');                  push(@brokerule,'lc');
             }              }
         }          }
Line 3633  sub check_passwd_rules { Line 3634  sub check_passwd_rules {
         }          }
         $warning .= '</ul>';          $warning .= '</ul>';
     }      }
       if (wantarray) {
           return @brokerule;
       }
     return $warning;      return $warning;
 }  }
   
Line 7254  table.LC_prior_tries td { Line 7258  table.LC_prior_tries td {
   padding: 6px;    padding: 6px;
 }  }
   
 .LC_answer_unknown {  .LC_answer_unknown,
   .LC_answer_warning {
   background: orange;    background: orange;
   color: black;    color: black;
   padding: 6px;    padding: 6px;
Line 8250  ul.LC_funclist li { Line 8255  ul.LC_funclist li {
  cursor:pointer;   cursor:pointer;
 }  }
   
   pre.LC_wordwrap {
     white-space: pre-wrap;
     white-space: -moz-pre-wrap;
     white-space: -pre-wrap;
     white-space: -o-pre-wrap;
     word-wrap: break-word;
   }
   
 /*  /*
   styles used for response display    styles used for response display
 */  */
Removed from v.1.1331  
changed lines
  Added in v.1.1335

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