|
Lines 459-465
sub build_patron_status {
Link Here
|
| 459 |
( $protocol_version >= 2 ) |
459 |
( $protocol_version >= 2 ) |
| 460 |
and $resp .= add_field( FID_VALID_PATRON, 'N' ); |
460 |
and $resp .= add_field( FID_VALID_PATRON, 'N' ); |
| 461 |
|
461 |
|
| 462 |
$resp .= maybe_add( FID_SCREEN_MSG, INVALID_CARD ); |
462 |
$resp .= maybe_add( FID_SCREEN_MSG, INVALID_CARD, $server ); |
| 463 |
} |
463 |
} |
| 464 |
|
464 |
|
| 465 |
$resp .= add_field( FID_INST_ID, $fields->{ (FID_INST_ID) } ); |
465 |
$resp .= add_field( FID_INST_ID, $fields->{ (FID_INST_ID) } ); |
|
Lines 1028-1034
sub handle_patron_info {
Link Here
|
| 1028 |
if ( $protocol_version >= 2 ) { |
1028 |
if ( $protocol_version >= 2 ) { |
| 1029 |
$resp .= add_field( FID_VALID_PATRON, 'N' ); |
1029 |
$resp .= add_field( FID_VALID_PATRON, 'N' ); |
| 1030 |
} |
1030 |
} |
| 1031 |
$resp .= maybe_add( FID_SCREEN_MSG, INVALID_CARD ); |
1031 |
$resp .= maybe_add( FID_SCREEN_MSG, INVALID_CARD, $server ); |
| 1032 |
} |
1032 |
} |
| 1033 |
|
1033 |
|
| 1034 |
$self->write_msg( $resp, undef, $server->{account}->{terminator}, $server->{account}->{encoding} ); |
1034 |
$self->write_msg( $resp, undef, $server->{account}->{terminator}, $server->{account}->{encoding} ); |
| 1035 |
- |
|
|