SL/DB/RequirementSpecAcceptanceStatus.pm

   1 package SL::DB::RequirementSpecAcceptanceStatus;
   2
   3 use strict;
   4
   5 use List::MoreUtils qw(none);
   6
   7 use SL::DB::MetaSetup::RequirementSpecAcceptanceStatus;
   8 use SL::DB::Manager::RequirementSpecAcceptanceStatus;
   9 use SL::DB::Helper::ActsAsList;
  10 use SL::Locale::String;
  11
  12 our @valid_names = qw(accepted accepted_with_defects accepted_with_defects_to_be_fixed not_accepted);
  13
  14 sub validate {
  15   my ($self) = @_;
  16
  17   my @errors;
  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;
  22
  23   return @errors;
  24 }
  25
  26 1;