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