| 
      
            Lines 171-176
          $category_type="A" unless $category_type; # FIXME we should display a error mess
      
      
        Link Here
      
     | 
  
        
          | 171 | 
          # if a add or modify is requested => check validity of data.  | 
          171 | 
          # if a add or modify is requested => check validity of data.  | 
        
        
          | 172 | 
          %data = %$borrower_data if ($borrower_data);  | 
          172 | 
          %data = %$borrower_data if ($borrower_data);  | 
        
        
          | 173 | 
           | 
          173 | 
           | 
        
            
               | 
               | 
              174 | 
              #Check passwords  | 
            
            
              | 175 | 
              my $minPasswordLength = C4::Context->preference('minPasswordLength'); | 
            
            
              | 176 | 
              warn $minPasswordLength;  | 
            
            
              | 177 | 
              if ($minPasswordLength < 8) { | 
            
            
              | 178 | 
                  warn my $warning = "Your minPasswordLength system preference is less than 8 characters this means library patrons can potentially set passwords which are vulnerable to cracking. Please set your minPasswordLength syspref to 8 or more characters";  | 
            
            
              | 179 | 
                  $template->param("passwordwarning"=>$warning); | 
            
            
              | 180 | 
              }  | 
            
            
              | 181 | 
               | 
            
        
          | 174 | 
          # initialize %newdata  | 
          182 | 
          # initialize %newdata  | 
        
        
          | 175 | 
          my %newdata;                                                                             # comes from $input->param()  | 
          183 | 
          my %newdata;                                                                             # comes from $input->param()  | 
        
        
          | 176 | 
          if ( $op eq 'insert' || $op eq 'modify' || $op eq 'save' || $op eq 'duplicate' ) { | 
          184 | 
          if ( $op eq 'insert' || $op eq 'modify' || $op eq 'save' || $op eq 'duplicate' ) { | 
        
  
    | 
      
            Lines 365-370
          if ($op eq 'save' || $op eq 'insert'){
      
      
        Link Here
      
     | 
  
        
          | 365 | 
              push @errors, "ERROR_login_exist";  | 
          373 | 
              push @errors, "ERROR_login_exist";  | 
        
        
          | 366 | 
            }  | 
          374 | 
            }  | 
        
        
          | 367 | 
           | 
          375 | 
           | 
        
            
               | 
               | 
              376 | 
               | 
            
            
              | 377 | 
               | 
            
        
          | 368 | 
            my $password = $input->param('password'); | 
          378 | 
            my $password = $input->param('password'); | 
        
        
          | 369 | 
            my $password2 = $input->param('password2'); | 
          379 | 
            my $password2 = $input->param('password2'); | 
        
        
          | 370 | 
            push @errors, "ERROR_password_mismatch" if ( $password ne $password2 );  | 
          380 | 
            push @errors, "ERROR_password_mismatch" if ( $password ne $password2 );  | 
        
            
              | 371 | 
              -   | 
               | 
               |