From be1db4628eaf56303b77bfe82f5837e88cfaa280 Mon Sep 17 00:00:00 2001 From: Owen Leonard Date: Thu, 8 Dec 2011 11:10:20 -0500 Subject: [PATCH] Bug 7336 - memberentry.pl generates an error in the log Adding check for the existence of a variable in order to quiet errors in the log. Signed-off-by: Paul Poulain Signed-off-by: Chris Nighswonger --- members/memberentry.pl | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/members/memberentry.pl b/members/memberentry.pl index 87c80814a2..e760df929e 100755 --- a/members/memberentry.pl +++ b/members/memberentry.pl @@ -633,7 +633,10 @@ if (C4::Context->preference('uppercasesurnames')) { $data{'surname'} =uc($data{'surname'} ); $data{'contactname'}=uc($data{'contactname'}); } -foreach (qw(dateenrolled dateexpiry dateofbirth)) { + +$data{debarred} = C4::Overdues::CheckBorrowerDebarred($borrowernumber); +$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{$_}); } -- 2.39.5