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

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

Return to bug 15956