SL/DB/RequirementSpecTextBlock.pm

   1 package SL::DB::RequirementSpecTextBlock;
   2
   3 use strict;
   4
   5 use SL::DB::MetaSetup::RequirementSpecTextBlock;
   6 use SL::DB::Manager::RequirementSpecTextBlock;
   7 # ActsAsList does not support position arguments grouped by other
   8 # columns, e.g. by the requirement_spec_id in this case. So we cannot
   9 # use it yet.
  10 # use SL::DB::Helper::ActsAsList;
  11 use SL::Locale::String;
  12
  13 sub validate {
  14   my ($self) = @_;
  15
  16   my @errors;
  17   push @errors, t8('The title is missing.') if !$self->title;
  18
  19   return @errors;
  20 }
  21
  22 1;