X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/6dfb7b15bbb1e0871308887c93b694316d98d8a7..64089bbee912e14de46e9156fa9bf1c2d7e51659:/SL/AR.pm

diff --git a/SL/AR.pm b/SL/AR.pm
index e227eb6e1..0c8f842b3 100644
--- a/SL/AR.pm
+++ b/SL/AR.pm
@@ -620,6 +620,18 @@ SQL
     push @values, like($form->{parts_description});
   }
 
+  if ($form->{show_not_mailed}) {
+    $where .= <<SQL;
+      AND NOT EXISTS (
+        SELECT rl.to_id
+        FROM record_links rl
+        WHERE (rl.from_id = a.id)
+          AND (rl.to_table = 'email_journal')
+        LIMIT 1
+      )
+SQL
+  }
+
   if ($form->{show_marked_as_closed}) {
     $query .= '
       LEFT JOIN (