From 116e5aed6699b456eae312a1abccbb7eb9fa4e71 Mon Sep 17 00:00:00 2001
From: Joe Atzberger <joe.atzberger@liblime.com>
Date: Tue, 18 Dec 2007 13:06:35 -0600
Subject: [PATCH] memberentry.pl - $debug-ify warn messages

Signed-off-by: Chris Cormack <crc@liblime.com>
Signed-off-by: Joshua Ferraro <jmf@liblime.com>
---
 members/memberentry.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/members/memberentry.pl b/members/memberentry.pl
index 643069999e..253e6e45af 100755
--- a/members/memberentry.pl
+++ b/members/memberentry.pl
@@ -171,7 +171,7 @@ if ($op eq 'save' || $op eq 'insert'){
       $nok = 1;
     }
   }
-warn $newdata{'dateofbirth'};
+	$debug and warn "dateofbirth: " . $newdata{'dateofbirth'};
     
   if (C4::Context->preference("IndependantBranches")) {
     if ($userenv && $userenv->{flags} != 1){
@@ -222,7 +222,7 @@ if ($op eq 'save'){
 			delete $newdata{'password'};
 			delete $newdata{'userid'};
 		}
-warn $newdata{'dateofbirth'};
+		$debug and warn "dateofbirth: " . $newdata{'dateofbirth'};
 		&ModMember(%newdata);    
 	    if ($destination eq "circ")	{
 		print $input->redirect("/cgi-bin/koha/circ/circulation.pl?findborrower=$data{'cardnumber'}");
-- 
2.39.2