getalert - do not generate bad SQL for borrowernumber=0

Signed-off-by: Chris Cormack <chris@bigballofwax.co.nz>
Signed-off-by: Joshua Ferraro <jmf@liblime.com>

diff --git a/C4/Letters.pm b/C4/Letters.pm
index 07520ed..857dc56 100644 (file)
--- a/C4/Letters.pm
+++ b/C4/Letters.pm
@@ -175,7 +175,7 @@ sub getalert {
     my $dbh   = C4::Context->dbh;
     my $query = "select * from alert where";
     my @bind;
-    if ($borrowernumber) {
+    if ($borrowernumber =~ /^\d+$/) {
         $query .= " borrowernumber=? and";
         push @bind, $borrowernumber;
     }