From 1e1929be43b3885d299026c260ff2dd0b04b0604 Mon Sep 17 00:00:00 2001
From: rangi <rangi>
Date: Sat, 14 May 2005 22:20:17 +0000
Subject: [PATCH] Fixing a line that was throwing up warnings when running the
 script with -w

---
 C4/Accounts.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/C4/Accounts.pm b/C4/Accounts.pm
index 94997c2ea2..83ae1a2d5a 100755
--- a/C4/Accounts.pm
+++ b/C4/Accounts.pm
@@ -85,7 +85,7 @@ sub checkaccount  {
 		WHERE borrowernumber = ?
 			AND amountoutstanding<>0";
 	my @bind = ($bornumber);
-	if ($date ne ''){
+	if ($date && $date ne ''){
 	$select.=" AND date < ?";
 	push(@bind,$date);
 	}
-- 
2.39.5