[Patches] [PATCH] Bug 7336 - memberentry.pl generates an error in the log

[koha-patchbot at kohaaloha.com]

From: Owen Leonard <oleonard at myacpl.org>
Date: Thu, 8 Dec 2011 11:10:20 -0500
Subject: [PATCH] Bug 7336 - memberentry.pl generates an error in the log
Content-Type: text/plain; charset="utf-8"

Adding check for the existence of a variable in
order to quiet errors in the log.
---
 members/memberentry.pl |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/members/memberentry.pl b/members/memberentry.pl
index d169dbd..c047873 100755
--- a/members/memberentry.pl
+++ b/members/memberentry.pl
@@ -649,7 +649,7 @@ if (C4::Context->preference('uppercasesurnames')) {
 }
 
 $data{debarred} = C4::Overdues::CheckBorrowerDebarred($borrowernumber);
-$data{datedebarred} = $data{debarred} if ( $data{debarred} ne "9999-12-31" );
+$data{datedebarred} = $data{debarred} if ( $data{debarred} && $data{debarred} ne "9999-12-31" );
 foreach (qw(dateenrolled dateexpiry dateofbirth datedebarred)) {
 	$data{$_} = format_date($data{$_});	# back to syspref for display
 	$template->param( $_ => $data{$_});
-- 
1.7.3