Lines 174-179
$category_type="A" unless $category_type; # FIXME we should display a error mess
Link Here
|
174 |
# if a add or modify is requested => check validity of data. |
174 |
# if a add or modify is requested => check validity of data. |
175 |
%data = %$borrower_data if ($borrower_data); |
175 |
%data = %$borrower_data if ($borrower_data); |
176 |
|
176 |
|
|
|
177 |
#Check passwords |
178 |
my $minPasswordLength = C4::Context->preference('minPasswordLength'); |
179 |
warn $minPasswordLength; |
180 |
if ($minPasswordLength < 8) { |
181 |
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"; |
182 |
$template->param("passwordwarning"=>$warning); |
183 |
} |
184 |
|
177 |
# initialize %newdata |
185 |
# initialize %newdata |
178 |
my %newdata; # comes from $input->param() |
186 |
my %newdata; # comes from $input->param() |
179 |
if ( $op eq 'insert' || $op eq 'modify' || $op eq 'save' || $op eq 'duplicate' ) { |
187 |
if ( $op eq 'insert' || $op eq 'modify' || $op eq 'save' || $op eq 'duplicate' ) { |
Lines 355-360
if ($op eq 'save' || $op eq 'insert'){
Link Here
|
355 |
push @errors, "ERROR_login_exist"; |
363 |
push @errors, "ERROR_login_exist"; |
356 |
} |
364 |
} |
357 |
|
365 |
|
|
|
366 |
|
367 |
|
358 |
my $password = $input->param('password'); |
368 |
my $password = $input->param('password'); |
359 |
my $password2 = $input->param('password2'); |
369 |
my $password2 = $input->param('password2'); |
360 |
push @errors, "ERROR_password_mismatch" if ( $password ne $password2 ); |
370 |
push @errors, "ERROR_password_mismatch" if ( $password ne $password2 ); |
361 |
- |
|
|