From 45625c17dbc2b3db6f1e13544a6bccf366383ad7 Mon Sep 17 00:00:00 2001
From: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
Date: Wed, 2 Mar 2016 14:20:59 +0100
Subject: [PATCH] Bug 15956: Remove warn from handle_patron_status

Removes a warn and some commented warns.

Test plan:
Nothing to do here. Will be covered later by additional unit test.

Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
Signed-off-by: Bernardo Gonzalez Kriegel <bgkriegel@gmail.com>

Signed-off-by: Katrin Fischer <katrin.fischer.83@web.de>

Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
---
 C4/SIP/Sip/MsgType.pm | 4 ----
 1 file changed, 4 deletions(-)

diff --git a/C4/SIP/Sip/MsgType.pm b/C4/SIP/Sip/MsgType.pm
index 7728ed43d4..360f7fe9e6 100644
--- a/C4/SIP/Sip/MsgType.pm
+++ b/C4/SIP/Sip/MsgType.pm
@@ -467,7 +467,6 @@ 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);
@@ -475,9 +474,6 @@ sub handle_patron_status {
     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 );