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