|
Lines 477-492
sub build_patron_status {
Link Here
|
| 477 |
|
477 |
|
| 478 |
sub handle_patron_status { |
478 |
sub handle_patron_status { |
| 479 |
my ($self, $server) = @_; |
479 |
my ($self, $server) = @_; |
| 480 |
warn "handle_patron_status server: " . Dumper(\$server); |
|
|
| 481 |
my $ils = $server->{ils}; |
480 |
my $ils = $server->{ils}; |
| 482 |
my $patron; |
481 |
my $patron; |
| 483 |
my $resp = (PATRON_STATUS_RESP); |
482 |
my $resp = (PATRON_STATUS_RESP); |
| 484 |
my $account = $server->{account}; |
483 |
my $account = $server->{account}; |
| 485 |
my ($lang, $date) = @{$self->{fixed_fields}}; |
484 |
my ($lang, $date) = @{$self->{fixed_fields}}; |
| 486 |
my $fields = $self->{fields}; |
485 |
my $fields = $self->{fields}; |
| 487 |
#warn Dumper($fields); |
|
|
| 488 |
#warn FID_INST_ID; |
| 489 |
#warn $fields->{(FID_INST_ID)}; |
| 490 |
$ils->check_inst_id($fields->{(FID_INST_ID)}, "handle_patron_status"); |
486 |
$ils->check_inst_id($fields->{(FID_INST_ID)}, "handle_patron_status"); |
| 491 |
$patron = $ils->find_patron($fields->{(FID_PATRON_ID)}); |
487 |
$patron = $ils->find_patron($fields->{(FID_PATRON_ID)}); |
| 492 |
$resp = build_patron_status($patron, $lang, $fields, $server ); |
488 |
$resp = build_patron_status($patron, $lang, $fields, $server ); |
| 493 |
- |
|
|