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 452-457
sub build_patron_status {
Link Here
|
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}) if ( $server->{account}->{send_patron_home_library_in_af} ); |
455 |
$resp .= maybe_add(FID_PRINT_LINE, $patron->print_line); |
457 |
$resp .= maybe_add(FID_PRINT_LINE, $patron->print_line); |
456 |
} else { |
458 |
} else { |
457 |
# Invalid patron id. Report that the user has no privs., |
459 |
# 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)}; |
487 |
#warn $fields->{(FID_INST_ID)}; |
486 |
$ils->check_inst_id($fields->{(FID_INST_ID)}, "handle_patron_status"); |
488 |
$ils->check_inst_id($fields->{(FID_INST_ID)}, "handle_patron_status"); |
487 |
$patron = $ils->find_patron($fields->{(FID_PATRON_ID)}); |
489 |
$patron = $ils->find_patron($fields->{(FID_PATRON_ID)}); |
488 |
$resp = build_patron_status($patron, $lang, $fields); |
490 |
$resp = build_patron_status($patron, $lang, $fields, $server ); |
489 |
$self->write_msg($resp); |
491 |
$self->write_msg($resp); |
490 |
return (PATRON_STATUS_REQ); |
492 |
return (PATRON_STATUS_REQ); |
491 |
} |
493 |
} |