@@ -, +, @@ --- C4/SIP/Sip/MsgType.pm | 4 ---- 1 file changed, 4 deletions(-) --- a/C4/SIP/Sip/MsgType.pm +++ a/C4/SIP/Sip/MsgType.pm @@ -477,16 +477,12 @@ sub build_patron_status { sub handle_patron_status { my ($self, $server) = @_; - warn "handle_patron_status server: " . Dumper(\$server); my $ils = $server->{ils}; my $patron; my $resp = (PATRON_STATUS_RESP); my $account = $server->{account}; my ($lang, $date) = @{$self->{fixed_fields}}; my $fields = $self->{fields}; - #warn Dumper($fields); - #warn FID_INST_ID; - #warn $fields->{(FID_INST_ID)}; $ils->check_inst_id($fields->{(FID_INST_ID)}, "handle_patron_status"); $patron = $ils->find_patron($fields->{(FID_PATRON_ID)}); $resp = build_patron_status($patron, $lang, $fields, $server ); --