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 |
- |
|
|