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