Fix Bug 1735

[mfinanz.git] / SL / Projects.pm

diff --git a/SL/Projects.pm b/SL/Projects.pm
index c25e75ae3264e9babffe251a7c716be8a0727190..d3df51fdd9e1b009519d7c3c46d1cc25fe033e95 100644 (file)
--- a/SL/Projects.pm
+++ b/SL/Projects.pm
@@ -104,7 +104,7 @@ sub search_projects {
   }
 
 
-  my $where = 'WHERE ' . join(' AND ', map { "($_)" } @filters) if (scalar @filters);
+  my $where = @filters ? 'WHERE ' . join(' AND ', map { "($_)" } @filters) : '';
 
   my $sortorder =  $params{sort} ? $params{sort} : "projectnumber";
   $sortorder    =~ s/[^a-z_]//g;