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