|
Lines 453-459
sub build_patron_status {
Link Here
|
| 453 |
|
453 |
|
| 454 |
my $msg = $patron->screen_msg; |
454 |
my $msg = $patron->screen_msg; |
| 455 |
$msg .= ' -- '. INVALID_PW if $patron_pwd && !$password_rc; |
455 |
$msg .= ' -- '. INVALID_PW if $patron_pwd && !$password_rc; |
| 456 |
$resp .= maybe_add( FID_SCREEN_MSG, $msg, $server, $server ); |
456 |
$resp .= maybe_add( FID_SCREEN_MSG, $msg, $server ); |
| 457 |
|
457 |
|
| 458 |
$resp .= maybe_add( FID_SCREEN_MSG, $patron->{branchcode}, $server ) |
458 |
$resp .= maybe_add( FID_SCREEN_MSG, $patron->{branchcode}, $server ) |
| 459 |
if ( $server->{account}->{send_patron_home_library_in_af} ); |
459 |
if ( $server->{account}->{send_patron_home_library_in_af} ); |
|
Lines 476-482
sub build_patron_status {
Link Here
|
| 476 |
( $protocol_version >= 2 ) |
476 |
( $protocol_version >= 2 ) |
| 477 |
and $resp .= add_field( FID_VALID_PATRON, 'N', $server ); |
477 |
and $resp .= add_field( FID_VALID_PATRON, 'N', $server ); |
| 478 |
|
478 |
|
| 479 |
$resp .= maybe_add( FID_SCREEN_MSG, INVALID_CARD, $server, $server ); |
479 |
$resp .= maybe_add( FID_SCREEN_MSG, INVALID_CARD, $server ); |
| 480 |
} |
480 |
} |
| 481 |
|
481 |
|
| 482 |
$resp .= add_field( FID_INST_ID, $fields->{ (FID_INST_ID) }, $server ); |
482 |
$resp .= add_field( FID_INST_ID, $fields->{ (FID_INST_ID) }, $server ); |
|
Lines 561-567
sub handle_checkout {
Link Here
|
| 561 |
$resp .= add_field( FID_DUE_DATE, q{}, $server ); |
561 |
$resp .= add_field( FID_DUE_DATE, q{}, $server ); |
| 562 |
} |
562 |
} |
| 563 |
|
563 |
|
| 564 |
$resp .= maybe_add( FID_SCREEN_MSG, $status->screen_msg, $server, $server ); |
564 |
$resp .= maybe_add( FID_SCREEN_MSG, $status->screen_msg, $server ); |
| 565 |
$resp .= maybe_add( FID_PRINT_LINE, $status->print_line, $server ); |
565 |
$resp .= maybe_add( FID_PRINT_LINE, $status->print_line, $server ); |
| 566 |
|
566 |
|
| 567 |
if ( $protocol_version >= 2 ) { |
567 |
if ( $protocol_version >= 2 ) { |
|
Lines 592-598
sub handle_checkout {
Link Here
|
| 592 |
# it's not due, so leave the date blank |
592 |
# it's not due, so leave the date blank |
| 593 |
$resp .= add_field( FID_DUE_DATE, '', $server ); |
593 |
$resp .= add_field( FID_DUE_DATE, '', $server ); |
| 594 |
|
594 |
|
| 595 |
$resp .= maybe_add( FID_SCREEN_MSG, $status->screen_msg, $server, $server ); |
595 |
$resp .= maybe_add( FID_SCREEN_MSG, $status->screen_msg, $server ); |
| 596 |
$resp .= maybe_add( FID_PRINT_LINE, $status->print_line, $server ); |
596 |
$resp .= maybe_add( FID_PRINT_LINE, $status->print_line, $server ); |
| 597 |
|
597 |
|
| 598 |
if ( $protocol_version >= 2 ) { |
598 |
if ( $protocol_version >= 2 ) { |
|
Lines 1021-1027
sub handle_patron_info {
Link Here
|
| 1021 |
if( defined( $patron_pwd ) && !$password_rc ) { |
1021 |
if( defined( $patron_pwd ) && !$password_rc ) { |
| 1022 |
$msg .= ' -- ' . INVALID_PW; |
1022 |
$msg .= ' -- ' . INVALID_PW; |
| 1023 |
} |
1023 |
} |
| 1024 |
$resp .= maybe_add( FID_SCREEN_MSG, $msg, $server, $server ); |
1024 |
$resp .= maybe_add( FID_SCREEN_MSG, $msg, $server ); |
| 1025 |
if ( $server->{account}->{send_patron_home_library_in_af} ) { |
1025 |
if ( $server->{account}->{send_patron_home_library_in_af} ) { |
| 1026 |
$resp .= maybe_add( FID_SCREEN_MSG, $patron->{branchcode}, $server); |
1026 |
$resp .= maybe_add( FID_SCREEN_MSG, $patron->{branchcode}, $server); |
| 1027 |
} |
1027 |
} |
|
Lines 1045-1051
sub handle_patron_info {
Link Here
|
| 1045 |
if ( $protocol_version >= 2 ) { |
1045 |
if ( $protocol_version >= 2 ) { |
| 1046 |
$resp .= add_field( FID_VALID_PATRON, 'N', $server ); |
1046 |
$resp .= add_field( FID_VALID_PATRON, 'N', $server ); |
| 1047 |
} |
1047 |
} |
| 1048 |
$resp .= maybe_add( FID_SCREEN_MSG, INVALID_CARD, $server, $server ); |
1048 |
$resp .= maybe_add( FID_SCREEN_MSG, INVALID_CARD, $server ); |
| 1049 |
} |
1049 |
} |
| 1050 |
|
1050 |
|
| 1051 |
$self->write_msg( $resp, undef, $server->{account}->{terminator}, $server->{account}->{encoding} ); |
1051 |
$self->write_msg( $resp, undef, $server->{account}->{terminator}, $server->{account}->{encoding} ); |
|
Lines 1072-1078
sub handle_end_patron_session {
Link Here
|
| 1072 |
$resp .= add_field( FID_INST_ID, $server->{ils}->institution, $server ); |
1072 |
$resp .= add_field( FID_INST_ID, $server->{ils}->institution, $server ); |
| 1073 |
$resp .= add_field( FID_PATRON_ID, $fields->{ (FID_PATRON_ID) }, $server ); |
1073 |
$resp .= add_field( FID_PATRON_ID, $fields->{ (FID_PATRON_ID) }, $server ); |
| 1074 |
|
1074 |
|
| 1075 |
$resp .= maybe_add( FID_SCREEN_MSG, $screen_msg, $server, $server ); |
1075 |
$resp .= maybe_add( FID_SCREEN_MSG, $screen_msg, $server ); |
| 1076 |
$resp .= maybe_add( FID_PRINT_LINE, $print_line, $server ); |
1076 |
$resp .= maybe_add( FID_PRINT_LINE, $print_line, $server ); |
| 1077 |
|
1077 |
|
| 1078 |
$self->write_msg( $resp, undef, $server->{account}->{terminator}, $server->{account}->{encoding} ); |
1078 |
$self->write_msg( $resp, undef, $server->{account}->{terminator}, $server->{account}->{encoding} ); |
|
Lines 1150-1156
sub handle_fee_paid {
Link Here
|
| 1150 |
$resp .= add_field( FID_INST_ID, $inst_id, $server ); |
1150 |
$resp .= add_field( FID_INST_ID, $inst_id, $server ); |
| 1151 |
$resp .= add_field( FID_PATRON_ID, $patron_id, $server ); |
1151 |
$resp .= add_field( FID_PATRON_ID, $patron_id, $server ); |
| 1152 |
$resp .= maybe_add( FID_TRANSACTION_ID, $status->transaction_id, $server ); |
1152 |
$resp .= maybe_add( FID_TRANSACTION_ID, $status->transaction_id, $server ); |
| 1153 |
$resp .= maybe_add( FID_SCREEN_MSG, $status->screen_msg, $server, $server ); |
1153 |
$resp .= maybe_add( FID_SCREEN_MSG, $status->screen_msg, $server ); |
| 1154 |
$resp .= maybe_add( FID_PRINT_LINE, $status->print_line, $server ); |
1154 |
$resp .= maybe_add( FID_PRINT_LINE, $status->print_line, $server ); |
| 1155 |
|
1155 |
|
| 1156 |
$self->write_msg( $resp, undef, $server->{account}->{terminator}, $server->{account}->{encoding} ); |
1156 |
$self->write_msg( $resp, undef, $server->{account}->{terminator}, $server->{account}->{encoding} ); |
|
Lines 1220-1226
sub handle_item_information {
Link Here
|
| 1220 |
$resp .= add_field( FID_HOLD_PICKUP_DATE, timestamp($i), $server ); |
1220 |
$resp .= add_field( FID_HOLD_PICKUP_DATE, timestamp($i), $server ); |
| 1221 |
} |
1221 |
} |
| 1222 |
|
1222 |
|
| 1223 |
$resp .= maybe_add( FID_SCREEN_MSG, $item->screen_msg, $server, $server ); |
1223 |
$resp .= maybe_add( FID_SCREEN_MSG, $item->screen_msg, $server ); |
| 1224 |
$resp .= maybe_add( FID_PRINT_LINE, $item->print_line, $server ); |
1224 |
$resp .= maybe_add( FID_PRINT_LINE, $item->print_line, $server ); |
| 1225 |
} |
1225 |
} |
| 1226 |
|
1226 |
|
|
Lines 1271-1277
sub handle_item_status_update {
Link Here
|
| 1271 |
$resp .= maybe_add( FID_ITEM_PROPS, $item->sip_item_properties, $server ); |
1271 |
$resp .= maybe_add( FID_ITEM_PROPS, $item->sip_item_properties, $server ); |
| 1272 |
} |
1272 |
} |
| 1273 |
|
1273 |
|
| 1274 |
$resp .= maybe_add( FID_SCREEN_MSG, $status->screen_msg, $server, $server ); |
1274 |
$resp .= maybe_add( FID_SCREEN_MSG, $status->screen_msg, $server ); |
| 1275 |
$resp .= maybe_add( FID_PRINT_LINE, $status->print_line, $server ); |
1275 |
$resp .= maybe_add( FID_PRINT_LINE, $status->print_line, $server ); |
| 1276 |
|
1276 |
|
| 1277 |
$self->write_msg( $resp, undef, $server->{account}->{terminator}, $server->{account}->{encoding} ); |
1277 |
$self->write_msg( $resp, undef, $server->{account}->{terminator}, $server->{account}->{encoding} ); |
|
Lines 1320-1326
sub handle_patron_enable {
Link Here
|
| 1320 |
$resp .= add_field( FID_VALID_PATRON_PWD, sipbool( $patron->check_password($patron_pwd) ), $server ); |
1320 |
$resp .= add_field( FID_VALID_PATRON_PWD, sipbool( $patron->check_password($patron_pwd) ), $server ); |
| 1321 |
} |
1321 |
} |
| 1322 |
$resp .= add_field( FID_VALID_PATRON, 'Y', $server ); |
1322 |
$resp .= add_field( FID_VALID_PATRON, 'Y', $server ); |
| 1323 |
$resp .= maybe_add( FID_SCREEN_MSG, $patron->screen_msg, $server, $server ); |
1323 |
$resp .= maybe_add( FID_SCREEN_MSG, $patron->screen_msg, $server ); |
| 1324 |
$resp .= maybe_add( FID_PRINT_LINE, $patron->print_line, $server ); |
1324 |
$resp .= maybe_add( FID_PRINT_LINE, $patron->print_line, $server ); |
| 1325 |
} |
1325 |
} |
| 1326 |
|
1326 |
|
|
Lines 1386-1392
sub handle_hold {
Link Here
|
| 1386 |
} |
1386 |
} |
| 1387 |
|
1387 |
|
| 1388 |
$resp .= add_field( FID_INST_ID, $ils->institution, $server ); |
1388 |
$resp .= add_field( FID_INST_ID, $ils->institution, $server ); |
| 1389 |
$resp .= maybe_add( FID_SCREEN_MSG, $status->screen_msg, $server, $server ); |
1389 |
$resp .= maybe_add( FID_SCREEN_MSG, $status->screen_msg, $server ); |
| 1390 |
$resp .= maybe_add( FID_PRINT_LINE, $status->print_line, $server ); |
1390 |
$resp .= maybe_add( FID_PRINT_LINE, $status->print_line, $server ); |
| 1391 |
|
1391 |
|
| 1392 |
$self->write_msg( $resp, undef, $server->{account}->{terminator}, $server->{account}->{encoding} ); |
1392 |
$self->write_msg( $resp, undef, $server->{account}->{terminator}, $server->{account}->{encoding} ); |
|
Lines 1471-1477
sub handle_renew {
Link Here
|
| 1471 |
} |
1471 |
} |
| 1472 |
|
1472 |
|
| 1473 |
$resp .= add_field( FID_INST_ID, $ils->institution, $server ); |
1473 |
$resp .= add_field( FID_INST_ID, $ils->institution, $server ); |
| 1474 |
$resp .= maybe_add( FID_SCREEN_MSG, $status->screen_msg, $server, $server ); |
1474 |
$resp .= maybe_add( FID_SCREEN_MSG, $status->screen_msg, $server ); |
| 1475 |
$resp .= maybe_add( FID_PRINT_LINE, $status->print_line, $server ); |
1475 |
$resp .= maybe_add( FID_PRINT_LINE, $status->print_line, $server ); |
| 1476 |
|
1476 |
|
| 1477 |
$self->write_msg( $resp, undef, $server->{account}->{terminator}, $server->{account}->{encoding} ); |
1477 |
$self->write_msg( $resp, undef, $server->{account}->{terminator}, $server->{account}->{encoding} ); |
|
Lines 1522-1528
sub handle_renew_all {
Link Here
|
| 1522 |
$resp .= join( '', map( add_field( FID_RENEWED_ITEMS, $_ ), @renewed ), $server ); |
1522 |
$resp .= join( '', map( add_field( FID_RENEWED_ITEMS, $_ ), @renewed ), $server ); |
| 1523 |
$resp .= join( '', map( add_field( FID_UNRENEWED_ITEMS, $_ ), @unrenewed ), $server ); |
1523 |
$resp .= join( '', map( add_field( FID_UNRENEWED_ITEMS, $_ ), @unrenewed ), $server ); |
| 1524 |
|
1524 |
|
| 1525 |
$resp .= maybe_add( FID_SCREEN_MSG, $status->screen_msg, $server, $server ); |
1525 |
$resp .= maybe_add( FID_SCREEN_MSG, $status->screen_msg, $server ); |
| 1526 |
$resp .= maybe_add( FID_PRINT_LINE, $status->print_line, $server ); |
1526 |
$resp .= maybe_add( FID_PRINT_LINE, $status->print_line, $server ); |
| 1527 |
|
1527 |
|
| 1528 |
$self->write_msg( $resp, undef, $server->{account}->{terminator}, $server->{account}->{encoding} ); |
1528 |
$self->write_msg( $resp, undef, $server->{account}->{terminator}, $server->{account}->{encoding} ); |
|
Lines 1614-1620
sub send_acs_status {
Link Here
|
| 1614 |
$msg .= add_field( FID_SUPPORTED_MSGS, $supported_msgs, $server ); |
1614 |
$msg .= add_field( FID_SUPPORTED_MSGS, $supported_msgs, $server ); |
| 1615 |
} |
1615 |
} |
| 1616 |
|
1616 |
|
| 1617 |
$msg .= maybe_add( FID_SCREEN_MSG, $screen_msg, $server, $server ); |
1617 |
$msg .= maybe_add( FID_SCREEN_MSG, $screen_msg, $server ); |
| 1618 |
|
1618 |
|
| 1619 |
if ( defined( $account->{print_width} ) |
1619 |
if ( defined( $account->{print_width} ) |
| 1620 |
&& defined($print_line) |
1620 |
&& defined($print_line) |
| 1621 |
- |
|
|