kivitendo/SL/DB/Manager/Project.pm @ bf2f7ae2
| 7f8599c0 | Moritz Bunkus | package SL::DB::Manager::Project;
|
||
use strict;
|
||||
use parent qw(SL::DB::Helper::Manager);
|
||||
use SL::DB::Helper::Paginated;
|
||||
use SL::DB::Helper::Sorted;
|
||||
| 71e2b75e | Sven Schöling | use SL::DB::Helper::Filtered;
|
||
| 7f8599c0 | Moritz Bunkus | |||
sub object_class { 'SL::DB::Project' }
|
||||
__PACKAGE__->make_manager_methods;
|
||||
| 71e2b75e | Sven Schöling | __PACKAGE__->add_filter_specs(
|
||
active => sub {
|
||||
my ($key, $value, $prefix) = @_;
|
||||
# TODO add boolean context
|
||||
return () if $value eq 'both';
|
||||
return ($prefix . "active" => 1) if $value eq 'active';
|
||||
return (or => [ $prefix . "active" => 0, $prefix . "active" => undef ]) if $value eq 'inactive';
|
||||
},
|
||||
valid => sub {
|
||||
my ($key, $value, $prefix) = @_;
|
||||
return () if $value eq 'both';
|
||||
return ($prefix . "valid" => 1) if $value eq 'valid';
|
||||
return (or => [ $prefix . "valid" => 0, $prefix . "valid" => undef ]) if $value eq 'invalid';
|
||||
},
|
||||
status => sub {
|
||||
my ($key, $value, $prefix) = @_;
|
||||
return () if $value eq 'all';
|
||||
return __PACKAGE__->is_not_used_filter($prefix);
|
||||
},
|
||||
);
|
||||
| 7f8599c0 | Moritz Bunkus | |||
our %project_id_column_prefixes = (
|
||||
ar => 'global',
|
||||
ap => 'global',
|
||||
oe => 'global',
|
||||
delivery_orders => 'global',
|
||||
);
|
||||
| 3a7d0b6b | Moritz Bunkus | our @tables_with_project_id_cols = qw(acc_trans ap ar delivery_order_items delivery_orders invoice oe orderitems);
|
||
| 7f8599c0 | Moritz Bunkus | |||
sub _sort_spec {
|
||||
return (
|
||||
default => [ 'projectnumber', 1 ],
|
||||
columns => {
|
||||
SIMPLE => 'ALL',
|
||||
customer => 'customer.name',
|
||||
});
|
||||
}
|
||||
sub is_not_used_filter {
|
||||
my ($class, $prefix) = @_;
|
||||
my $query = join ' UNION ', map {
|
||||
my $column = $project_id_column_prefixes{$_} . 'project_id';
|
||||
qq|SELECT DISTINCT ${column} FROM ${_} WHERE ${column} IS NOT NULL|
|
||||
} @tables_with_project_id_cols;
|
||||
return ("!${prefix}id" => [ \"(${query})" ]);
|
||||
}
|
||||
| 71e2b75e | Sven Schöling | sub default_objects_per_page {
|
||
20;
|
||||
}
|
||||
| 7f8599c0 | Moritz Bunkus | 1;
|
||
__END__
|
||||
=pod
|
||||
=encoding utf8
|
||||
=head1 NAME
|
||||
SL::DB::Manager::Project - Manager for models for the 'project' table
|
||||
=head1 SYNOPSIS
|
||||
This is a standard Rose::DB::Manager based model manager and can be
|
||||
used as such.
|
||||
=head1 FUNCTIONS
|
||||
=over 4
|
||||
=item C<is_not_used_filter>
|
||||
Returns an array containing a partial filter suitable for the C<query>
|
||||
parameter that limits to projects that are not referenced from any
|
||||
other database table.
|
||||
=back
|
||||
=head1 BUGS
|
||||
Nothing here yet.
|
||||
=head1 AUTHOR
|
||||
Moritz Bunkus E<lt>m.bunkus@linet-services.deE<gt>
|
||||
=cut
|