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