generische E-Mail-Adresse für Lieferscheine

[mfinanz.git] / SL / DB / Manager / RequirementSpec.pm

diff --git a/SL/DB/Manager/RequirementSpec.pm b/SL/DB/Manager/RequirementSpec.pm
index 2d54d769a523808a73c394d0c424defe82d4ed78..fa35de0b877392359c2b78842f1520c3ffa755f7 100644 (file)
--- a/SL/DB/Manager/RequirementSpec.pm
+++ b/SL/DB/Manager/RequirementSpec.pm
@@ -5,6 +5,7 @@ use strict;
 use SL::DB::Helper::Manager;
 use base qw(SL::DB::Helper::Manager);
 
 use SL::DB::Helper::Manager;
 use base qw(SL::DB::Helper::Manager);
 

+use SL::DB::Helper::Filtered;

 use SL::DB::Helper::Paginated;
 use SL::DB::Helper::Sorted;
 
 use SL::DB::Helper::Paginated;
 use SL::DB::Helper::Sorted;
 


@@ -29,4 +30,11 @@ sub working_copy_filter {
   return (working_copy_id => undef);
 }
 
   return (working_copy_id => undef);
 }
 

+sub not_empty_filter {
+  my @tables = qw(requirement_spec_items requirement_spec_text_blocks requirement_spec_parts);
+  my @filter = map { \"id IN (SELECT nef_${_}.requirement_spec_id FROM ${_} nef_${_})" } @tables;
+
+  return (or => \@filter);
+}
+

 1;
 1;