Revision 6d75a1bc
Von Moritz Bunkus vor mehr als 10 Jahren hinzugefügt
SL/DB/RequirementSpecAcceptanceStatus.pm | ||
---|---|---|
2 | 2 |
|
3 | 3 |
use strict; |
4 | 4 |
|
5 |
use List::MoreUtils qw(none); |
|
6 |
|
|
5 | 7 |
use SL::DB::MetaSetup::RequirementSpecAcceptanceStatus; |
6 | 8 |
use SL::DB::Manager::RequirementSpecAcceptanceStatus; |
7 | 9 |
use SL::DB::Helper::ActsAsList; |
8 | 10 |
use SL::Locale::String; |
9 | 11 |
|
12 |
our @valid_names = qw(accepted accepted_with_defects accepted_with_defects_to_be_fixed not_accepted); |
|
13 |
|
|
10 | 14 |
sub validate { |
11 | 15 |
my ($self) = @_; |
12 | 16 |
|
13 | 17 |
my @errors; |
14 |
push @errors, t8('The description is missing.') if !$self->description; |
|
18 |
push @errors, t8('The name is missing.') if !$self->name; |
|
19 |
push @errors, t8('The name and description are not unique.') if $self->get_first_conflicting('name', 'description'); |
|
20 |
push @errors, t8('The name is invalid.') if none { $_ eq $self->name } @valid_names; |
|
21 |
push @errors, t8('The description is missing.') if !$self->description; |
|
15 | 22 |
|
16 | 23 |
return @errors; |
17 | 24 |
} |
Auch abrufbar als: Unified diff
Verwaltung von Pflichtenheftstatus