View | Details | Raw Unified | Return to bug 15956
Collapse All | Expand All

(-)a/C4/SIP/Sip/MsgType.pm (-5 lines)
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
- 

Return to bug 15956