Revert "added roundings for periodic invoices"

[mfinanz.git] / SL / DB / RequirementSpecAcceptanceStatus.pm

diff --git a/SL/DB/RequirementSpecAcceptanceStatus.pm b/SL/DB/RequirementSpecAcceptanceStatus.pm
index c932e4713df08981ac0f5b8a51830384a8d2a102..11d92daca02156efabc05cd2d82bc97690ad251d 100644 (file)
--- a/SL/DB/RequirementSpecAcceptanceStatus.pm
+++ b/SL/DB/RequirementSpecAcceptanceStatus.pm
@@ -2,18 +2,25 @@ package SL::DB::RequirementSpecAcceptanceStatus;
 
 use strict;
 
 
 use strict;
 

+use List::MoreUtils qw(none);
+

 use SL::DB::MetaSetup::RequirementSpecAcceptanceStatus;
 use SL::DB::MetaSetup::RequirementSpecAcceptanceStatus;

+use SL::DB::Manager::RequirementSpecAcceptanceStatus;

 use SL::DB::Helper::ActsAsList;
 use SL::Locale::String;
 
 use SL::DB::Helper::ActsAsList;
 use SL::Locale::String;
 

-# Creates get_all, get_all_count, get_all_iterator, delete_all and update_all.
-__PACKAGE__->meta->make_manager_class;
+__PACKAGE__->meta->initialize;
+
+our @valid_names = qw(accepted accepted_with_defects accepted_with_defects_to_be_fixed not_accepted);

 
 sub validate {
   my ($self) = @_;
 
   my @errors;
 
 sub validate {
   my ($self) = @_;
 
   my @errors;

-  push @errors, t8('The description is missing.') if !$self->description;
+  push @errors, t8('The name is missing.')                     if !$self->name;
+  push @errors, t8('The name and description are not unique.') if  $self->get_first_conflicting('name', 'description');
+  push @errors, t8('The name is invalid.')                     if  none { $_ eq $self->name } @valid_names;
+  push @errors, t8('The description is missing.')              if !$self->description;

 
   return @errors;
 }
 
   return @errors;
 }