Presenter-Module für Listen von Verkaufs-/Einkaufsobjekte
[kivitendo-erp.git] / SL / DB / Project.pm
1 package SL::DB::Project;
2
3 use strict;
4
5 use List::MoreUtils qw(any);
6
7 use SL::DB::MetaSetup::Project;
8 use SL::DB::Manager::Project;
9
10 use SL::DB::Helper::CustomVariables(
11   module      => 'Project',
12   cvars_alias => 1,
13 );
14
15 __PACKAGE__->meta->initialize;
16
17 sub validate {
18   my ($self) = @_;
19
20   my @errors;
21   push @errors, $::locale->text('The project number is missing.')        if !$self->projectnumber;
22   push @errors, $::locale->text('The project number is already in use.') if !$self->is_projectnumber_unique;
23   push @errors, $::locale->text('The description is missing.')           if !$self->description;
24
25   return @errors;
26 }
27
28 sub is_used {
29   my ($self) = @_;
30
31   # Unsaved projects are never referenced.
32   return 0 unless $self->id;
33
34   return any {
35     my $column = $SL::DB::Manager::Project::project_id_column_prefixes{$_} . 'project_id';
36     $self->db->dbh->selectrow_arrayref(qq|SELECT EXISTS(SELECT * FROM ${_} WHERE ${column} = ?)|, undef, $self->id)->[0]
37   } @SL::DB::Manager::Project::tables_with_project_id_cols;
38 }
39
40 sub is_projectnumber_unique {
41   my ($self) = @_;
42
43   return 1 unless $self->projectnumber;
44
45   my @filter = (projectnumber => $self->projectnumber);
46   @filter    = (and => [ @filter, '!id' => $self->id ]) if $self->id;
47
48   return !SL::DB::Manager::Project->get_first(where => \@filter);
49 }
50
51 1;
52
53 __END__
54
55 =pod
56
57 =head1 NAME
58
59 SL::DB::Project: Model for the 'project' table
60
61 =head1 SYNOPSIS
62
63 This is a standard Rose::DB::Object based model and can be used as one.
64
65 =head1 FUNCTIONS
66
67 =over 4
68
69 =item C<validate>
70
71 Checks whether or not all fields are set to valid values so that the
72 object can be saved. If valid returns an empty list. Returns an array
73 of translated error message otherwise.
74
75 =item C<is_used>
76
77 Checks whether or not the project is referenced from any other
78 database table. Returns a boolean value.
79
80 =item C<is_projectnumber_unique>
81
82 Returns trueish if the project number is not used for any other
83 project in the database. Also returns trueish if no project number has
84 been set yet.
85
86 =back
87
88 =head1 AUTHOR
89
90 Moritz Bunkus E<lt>m.bunkus@linet-services.deE<gt>
91
92 =cut