Projektverwaltung auf Rose- und Controller-Code umgestellt

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

diff --git a/SL/DB/Manager/Project.pm b/SL/DB/Manager/Project.pm
new file mode 100644 (file)
index 0000000..130e35c
--- /dev/null
+++ b/SL/DB/Manager/Project.pm
@@ -0,0 +1,79 @@
+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',
+);
+
+our @tables_with_project_id_cols = qw(acc_trans ap ar delivery_order_items delivery_orders invoice oe orderitems rmaitems);
+
+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