|
Lines 448-454
sub build_patron_status {
Link Here
|
| 448 |
$resp .= add_field( FID_VALID_PATRON, 'Y' ); |
448 |
$resp .= add_field( FID_VALID_PATRON, 'Y' ); |
| 449 |
|
449 |
|
| 450 |
# Patron password is a required field. |
450 |
# Patron password is a required field. |
| 451 |
$resp .= add_field( FID_VALID_PATRON_PWD, sipbool( $patron->check_password($patron_pwd) ) ); |
451 |
$resp .= add_field( FID_VALID_PATRON_PWD, sipbool( $patron->check_password($patron_pwd) || $server->{account}->{no_password_mode} ) ); |
| 452 |
$resp .= maybe_add( FID_CURRENCY, $patron->currency ); |
452 |
$resp .= maybe_add( FID_CURRENCY, $patron->currency ); |
| 453 |
$resp .= maybe_add( FID_FEE_AMT, $patron->fee_amount ); |
453 |
$resp .= maybe_add( FID_FEE_AMT, $patron->fee_amount ); |
| 454 |
} |
454 |
} |
|
Lines 603-610
sub handle_checkout {
Link Here
|
| 603 |
|
603 |
|
| 604 |
# Password provided, so we can tell if it was valid or not |
604 |
# Password provided, so we can tell if it was valid or not |
| 605 |
$resp .= |
605 |
$resp .= |
| 606 |
add_field( FID_VALID_PATRON_PWD, |
606 |
add_field( FID_VALID_PATRON_PWD, sipbool( $patron->check_password( $fields->{ (FID_PATRON_PWD) } ) || $server->{account}->{no_password_mode} ) ); |
| 607 |
sipbool( $patron->check_password( $fields->{ (FID_PATRON_PWD) } ) ) ); |
|
|
| 608 |
} |
607 |
} |
| 609 |
} |
608 |
} |
| 610 |
} |
609 |
} |
|
Lines 984-991
sub handle_patron_info {
Link Here
|
| 984 |
$resp .= add_field(FID_VALID_PATRON, 'Y'); |
983 |
$resp .= add_field(FID_VALID_PATRON, 'Y'); |
| 985 |
if (defined($patron_pwd)) { |
984 |
if (defined($patron_pwd)) { |
| 986 |
# If patron password was provided, report whether it was right or not. |
985 |
# If patron password was provided, report whether it was right or not. |
| 987 |
$resp .= add_field(FID_VALID_PATRON_PWD, |
986 |
$resp .= |
| 988 |
sipbool($patron->check_password($patron_pwd))); |
987 |
add_field( FID_VALID_PATRON_PWD, |
|
|
988 |
sipbool( $patron->check_password($patron_pwd) || $server->{account}->{no_password_mode} ) ); |
| 989 |
} |
989 |
} |
| 990 |
|
990 |
|
| 991 |
$resp .= maybe_add(FID_CURRENCY, $patron->currency); |
991 |
$resp .= maybe_add(FID_CURRENCY, $patron->currency); |
|
Lines 1244-1250
sub handle_patron_enable {
Link Here
|
| 1244 |
} |
1244 |
} |
| 1245 |
else { |
1245 |
else { |
| 1246 |
# valid patron |
1246 |
# valid patron |
| 1247 |
if ( !defined($patron_pwd) || $patron->check_password($patron_pwd) ) { |
1247 |
if ( !defined($patron_pwd) || $patron->check_password($patron_pwd) || || $server->{account}->{no_password_mode} ) { |
| 1248 |
|
1248 |
|
| 1249 |
# Don't enable the patron if there was an invalid password |
1249 |
# Don't enable the patron if there was an invalid password |
| 1250 |
$status = $patron->enable; |
1250 |
$status = $patron->enable; |
|
Lines 1255-1261
sub handle_patron_enable {
Link Here
|
| 1255 |
$resp .= add_field( FID_PATRON_ID, $patron->id ); |
1255 |
$resp .= add_field( FID_PATRON_ID, $patron->id ); |
| 1256 |
$resp .= add_field( FID_PERSONAL_NAME, $patron->name ); |
1256 |
$resp .= add_field( FID_PERSONAL_NAME, $patron->name ); |
| 1257 |
if ( defined($patron_pwd) ) { |
1257 |
if ( defined($patron_pwd) ) { |
| 1258 |
$resp .= add_field( FID_VALID_PATRON_PWD, sipbool( $patron->check_password($patron_pwd) ) ); |
1258 |
$resp .= add_field( FID_VALID_PATRON_PWD, sipbool( $patron->check_password($patron_pwd) || $server->{account}->{no_password_mode} ) ); |
| 1259 |
} |
1259 |
} |
| 1260 |
$resp .= add_field( FID_VALID_PATRON, 'Y' ); |
1260 |
$resp .= add_field( FID_VALID_PATRON, 'Y' ); |
| 1261 |
$resp .= maybe_add( FID_SCREEN_MSG, $patron->screen_msg, $server ); |
1261 |
$resp .= maybe_add( FID_SCREEN_MSG, $patron->screen_msg, $server ); |