Einheitliche Methode record_number für ar/ap/oe/do Objekte

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

diff --git a/SL/DB/RequirementSpecPredefinedText.pm b/SL/DB/RequirementSpecPredefinedText.pm
index 9faddcd1e684b33575fec33e7eeba895944dbddb..c2ab0c87cb5e491f96af9128a727184bd3d46732 100644 (file)
--- a/SL/DB/RequirementSpecPredefinedText.pm
+++ b/SL/DB/RequirementSpecPredefinedText.pm
@@ -3,18 +3,22 @@ package SL::DB::RequirementSpecPredefinedText;
 use strict;
 
 use SL::DB::MetaSetup::RequirementSpecPredefinedText;
 use strict;
 
 use SL::DB::MetaSetup::RequirementSpecPredefinedText;

+use SL::DB::Manager::RequirementSpecPredefinedText;

 use SL::DB::Helper::ActsAsList;
 use SL::DB::Helper::ActsAsList;

+use SL::DB::Helper::AttrHTML;

 use SL::Locale::String;
 
 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;
+
+__PACKAGE__->attr_html('text');

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

-  push @errors, t8('The title is missing.')       if !$self->title;
-  push @errors, t8('The description is missing.') if !$self->description;
+  push @errors, t8('The description is missing.')    if !$self->description;
+  push @errors, t8('The description is not unique.') if  $self->get_first_conflicting('description');
+  push @errors, t8('The title is missing.')          if !$self->title;

 
   return @errors;
 }
 
   return @errors;
 }