Debugstatement entfernt
[kivitendo-erp.git] / SL / DB / Manager / Project.pm
1 package SL::DB::Manager::Project;
2
3 use strict;
4
5 use parent qw(SL::DB::Helper::Manager);
6
7 use SL::DB::Helper::Paginated;
8 use SL::DB::Helper::Sorted;
9 use SL::DB::Helper::Filtered;
10
11 sub object_class { 'SL::DB::Project' }
12
13 __PACKAGE__->make_manager_methods;
14 __PACKAGE__->add_filter_specs(
15   active => sub {
16     my ($key, $value, $prefix) = @_;
17     # TODO add boolean context
18     return ()                        if $value eq 'both';
19     return ($prefix . "active" => 1) if $value eq 'active';
20     return (or => [ $prefix . "active" => 0, $prefix . "active" => undef ]) if $value eq 'inactive';
21   },
22   valid => sub {
23     my ($key, $value, $prefix) = @_;
24     return ()                       if $value eq 'both';
25     return ($prefix . "valid" => 1) if $value eq 'valid';
26     return (or => [ $prefix . "valid" => 0, $prefix . "valid" => undef ]) if $value eq 'invalid';
27   },
28   status => sub {
29     my ($key, $value, $prefix) = @_;
30     return () if $value eq 'all';
31     return __PACKAGE__->is_not_used_filter($prefix);
32   },
33 );
34
35 our %project_id_column_prefixes = (
36   ar              => 'global',
37   ap              => 'global',
38   oe              => 'global',
39   delivery_orders => 'global',
40 );
41
42 our @tables_with_project_id_cols = qw(acc_trans ap ar delivery_order_items delivery_orders invoice oe orderitems);
43
44 sub _sort_spec {
45   return (
46     default    => [ 'projectnumber', 1 ],
47     columns    => {
48       SIMPLE   => 'ALL',
49       customer => 'customer.name',
50     });
51 }
52
53 sub is_not_used_filter {
54   my ($class, $prefix) = @_;
55
56   my $query = join ' UNION ', map {
57     my $column = $project_id_column_prefixes{$_} . 'project_id';
58     qq|SELECT DISTINCT ${column} FROM ${_} WHERE ${column} IS NOT NULL|
59   } @tables_with_project_id_cols;
60
61   return ("!${prefix}id" => [ \"(${query})" ]);
62 }
63
64 sub default_objects_per_page {
65   20;
66 }
67
68 1;
69 __END__
70
71 =pod
72
73 =encoding utf8
74
75 =head1 NAME
76
77 SL::DB::Manager::Project - Manager for models for the 'project' table
78
79 =head1 SYNOPSIS
80
81 This is a standard Rose::DB::Manager based model manager and can be
82 used as such.
83
84 =head1 FUNCTIONS
85
86 =over 4
87
88 =item C<is_not_used_filter>
89
90 Returns an array containing a partial filter suitable for the C<query>
91 parameter that limits to projects that are not referenced from any
92 other database table.
93
94 =back
95
96 =head1 BUGS
97
98 Nothing here yet.
99
100 =head1 AUTHOR
101
102 Moritz Bunkus E<lt>m.bunkus@linet-services.deE<gt>
103
104 =cut