|
Lines 401-408
sub CheckForInvalidFields {
Link Here
|
| 401 |
if ($borrower->{'B_email'}) { |
401 |
if ($borrower->{'B_email'}) { |
| 402 |
push(@invalidFields, "B_email") if (!Email::Valid->address($borrower->{'B_email'})); |
402 |
push(@invalidFields, "B_email") if (!Email::Valid->address($borrower->{'B_email'})); |
| 403 |
} |
403 |
} |
| 404 |
if ( $borrower->{'password'} ne $borrower->{'password2'} ){ |
404 |
if ( defined $borrower->{'password'} |
| 405 |
push(@invalidFields, "password_match"); |
405 |
and $borrower->{'password'} ne $borrower->{'password2'} ) |
|
|
406 |
{ |
| 407 |
push( @invalidFields, "password_match" ); |
| 406 |
} |
408 |
} |
| 407 |
if ( $borrower->{'password'} && $minpw && (length($borrower->{'password'}) < $minpw) ) { |
409 |
if ( $borrower->{'password'} && $minpw && (length($borrower->{'password'}) < $minpw) ) { |
| 408 |
push(@invalidFields, "password_invalid"); |
410 |
push(@invalidFields, "password_invalid"); |
|
Lines 534-542
sub GeneratePatronAttributesForm {
Link Here
|
| 534 |
sub ParsePatronAttributes { |
536 |
sub ParsePatronAttributes { |
| 535 |
my ( $cgi ) = @_; |
537 |
my ( $cgi ) = @_; |
| 536 |
|
538 |
|
| 537 |
my @codes = $cgi->param('patron_attribute_code'); |
539 |
my @codes = $cgi->multi_param('patron_attribute_code'); |
| 538 |
my @values = $cgi->param('patron_attribute_value'); |
540 |
my @values = $cgi->multi_param('patron_attribute_value'); |
| 539 |
my @passwords = $cgi->param('patron_attribute_password'); |
541 |
my @passwords = $cgi->multi_param('patron_attribute_password'); |
| 540 |
|
542 |
|
| 541 |
my $ea = each_array( @codes, @values, @passwords ); |
543 |
my $ea = each_array( @codes, @values, @passwords ); |
| 542 |
my @attributes; |
544 |
my @attributes; |
| 543 |
- |
|
|