Lines 432-438
sub handle {
Link Here
|
432 |
# |
432 |
# |
433 |
sub build_patron_status { |
433 |
sub build_patron_status { |
434 |
my ( $patron, $lang, $fields, $server ) = @_; |
434 |
my ( $patron, $lang, $fields, $server ) = @_; |
435 |
my $overdrive_mode = $server->{account}->{'overdrive-mode'}; |
435 |
my $send_msg_on_invalid_credentials = $server->{account}->{'send_msg_on_invalid_credentials'}; |
436 |
my $patron_pwd = $fields->{ (FID_PATRON_PWD) }; |
436 |
my $patron_pwd = $fields->{ (FID_PATRON_PWD) }; |
437 |
my $resp = (PATRON_STATUS_RESP); |
437 |
my $resp = (PATRON_STATUS_RESP); |
438 |
my $password_ok = 1; |
438 |
my $password_ok = 1; |
Lines 443-449
sub build_patron_status {
Link Here
|
443 |
$password_rc = $patron->check_password($patron_pwd); |
443 |
$password_rc = $patron->check_password($patron_pwd); |
444 |
$password_ok = 0 unless $password_rc; |
444 |
$password_ok = 0 unless $password_rc; |
445 |
} |
445 |
} |
446 |
elsif ( $overdrive_mode |
446 |
elsif ( $send_msg_on_invalid_credentials |
447 |
and not exists $fields->{'AL'} # not block_request |
447 |
and not exists $fields->{'AL'} # not block_request |
448 |
and not $patron_pwd ) # no password supplied |
448 |
and not $patron_pwd ) # no password supplied |
449 |
{ |
449 |
{ |
Lines 477-483
sub build_patron_status {
Link Here
|
477 |
} |
477 |
} |
478 |
else { |
478 |
else { |
479 |
|
479 |
|
480 |
# Invalid patron id (and/or passwd for overdrive_mode) |
480 |
# Invalid patron id (and/or passwd for send_msg_on_invalid_credentials) |
481 |
# Report that the user has no privs. |
481 |
# Report that the user has no privs. |
482 |
|
482 |
|
483 |
# no personal name, and is invalid (if we're using 2.00) |
483 |
# no personal name, and is invalid (if we're using 2.00) |