|
Lines 468-474
sub build_patron_status {
Link Here
|
| 468 |
|
468 |
|
| 469 |
sub handle_patron_status { |
469 |
sub handle_patron_status { |
| 470 |
my ( $self, $server ) = @_; |
470 |
my ( $self, $server ) = @_; |
| 471 |
warn "handle_patron_status server: " . Dumper( \$server ); |
|
|
| 472 |
my $ils = $server->{ils}; |
471 |
my $ils = $server->{ils}; |
| 473 |
my $patron; |
472 |
my $patron; |
| 474 |
my $resp = (PATRON_STATUS_RESP); |
473 |
my $resp = (PATRON_STATUS_RESP); |
|
Lines 476-484
sub handle_patron_status {
Link Here
|
| 476 |
my ( $lang, $date ) = @{ $self->{fixed_fields} }; |
475 |
my ( $lang, $date ) = @{ $self->{fixed_fields} }; |
| 477 |
my $fields = $self->{fields}; |
476 |
my $fields = $self->{fields}; |
| 478 |
|
477 |
|
| 479 |
#warn Dumper($fields); |
|
|
| 480 |
#warn FID_INST_ID; |
| 481 |
#warn $fields->{(FID_INST_ID)}; |
| 482 |
$ils->check_inst_id( $fields->{ (FID_INST_ID) }, "handle_patron_status" ); |
478 |
$ils->check_inst_id( $fields->{ (FID_INST_ID) }, "handle_patron_status" ); |
| 483 |
$patron = $ils->find_patron( $fields->{ (FID_PATRON_ID) } ); |
479 |
$patron = $ils->find_patron( $fields->{ (FID_PATRON_ID) } ); |
| 484 |
$resp = build_patron_status( $patron, $lang, $fields, $server ); |
480 |
$resp = build_patron_status( $patron, $lang, $fields, $server ); |
| 485 |
- |
|
|