Lines 431-437
sub handle {
Link Here
|
431 |
# information will be returned to the terminal. |
431 |
# information will be returned to the terminal. |
432 |
# |
432 |
# |
433 |
sub build_patron_status { |
433 |
sub build_patron_status { |
434 |
my ($patron, $lang, $fields)= @_; |
434 |
my ($patron, $lang, $fields, $server)= @_; |
|
|
435 |
|
435 |
my $patron_pwd = $fields->{(FID_PATRON_PWD)}; |
436 |
my $patron_pwd = $fields->{(FID_PATRON_PWD)}; |
436 |
my $resp = (PATRON_STATUS_RESP); |
437 |
my $resp = (PATRON_STATUS_RESP); |
437 |
|
438 |
|
Lines 451-457
sub build_patron_status {
Link Here
|
451 |
$resp .= maybe_add(FID_FEE_AMT, $patron->fee_amount); |
452 |
$resp .= maybe_add(FID_FEE_AMT, $patron->fee_amount); |
452 |
} |
453 |
} |
453 |
|
454 |
|
454 |
$resp .= maybe_add(FID_SCREEN_MSG, $patron->screen_msg); |
455 |
$resp .= maybe_add( FID_SCREEN_MSG, $patron->screen_msg ); |
|
|
456 |
$resp .= maybe_add( FID_SCREEN_MSG, $patron->{branchcode} ) |
457 |
if ( $server->{account}->{send_patron_home_library_in_af} ); |
458 |
|
455 |
$resp .= maybe_add(FID_PRINT_LINE, $patron->print_line); |
459 |
$resp .= maybe_add(FID_PRINT_LINE, $patron->print_line); |
456 |
} else { |
460 |
} else { |
457 |
# Invalid patron id. Report that the user has no privs., |
461 |
# Invalid patron id. Report that the user has no privs., |
Lines 485-491
sub handle_patron_status {
Link Here
|
485 |
#warn $fields->{(FID_INST_ID)}; |
489 |
#warn $fields->{(FID_INST_ID)}; |
486 |
$ils->check_inst_id($fields->{(FID_INST_ID)}, "handle_patron_status"); |
490 |
$ils->check_inst_id($fields->{(FID_INST_ID)}, "handle_patron_status"); |
487 |
$patron = $ils->find_patron($fields->{(FID_PATRON_ID)}); |
491 |
$patron = $ils->find_patron($fields->{(FID_PATRON_ID)}); |
488 |
$resp = build_patron_status($patron, $lang, $fields); |
492 |
$resp = build_patron_status($patron, $lang, $fields, $server ); |
489 |
$self->write_msg($resp); |
493 |
$self->write_msg($resp); |
490 |
return (PATRON_STATUS_REQ); |
494 |
return (PATRON_STATUS_REQ); |
491 |
} |
495 |
} |
Lines 993-999
sub handle_patron_info {
Link Here
|
993 |
# Custom protocol extension to report patron internet privileges |
997 |
# Custom protocol extension to report patron internet privileges |
994 |
$resp .= maybe_add(FID_INET_PROFILE, $patron->inet_privileges); |
998 |
$resp .= maybe_add(FID_INET_PROFILE, $patron->inet_privileges); |
995 |
|
999 |
|
996 |
$resp .= maybe_add(FID_SCREEN_MSG, $patron->screen_msg); |
1000 |
$resp .= maybe_add( FID_SCREEN_MSG, $patron->screen_msg ); |
|
|
1001 |
$resp .= maybe_add( FID_SCREEN_MSG, $patron->{branchcode} ) |
1002 |
if ( $server->{account}->{send_patron_home_library_in_af} ); |
1003 |
|
997 |
$resp .= maybe_add(FID_PRINT_LINE, $patron->print_line); |
1004 |
$resp .= maybe_add(FID_PRINT_LINE, $patron->print_line); |
998 |
} else { |
1005 |
} else { |
999 |
# Invalid patron ID: |
1006 |
# Invalid patron ID: |