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