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