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

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

Return to bug 15956