Fixing a line that was throwing up warnings when running the script with -w

diff --git a/C4/Accounts.pm b/C4/Accounts.pm
index 94997c2..83ae1a2 100755 (executable)
--- 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);
        }