kivitendo/SL/DB/Manager/Project.pm @ 0ac42632
| 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;
|
||||
sub object_class { 'SL::DB::Project' }
|
||||
__PACKAGE__->make_manager_methods;
|
||||
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})" ]);
|
||||
}
|
||||
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
|