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 use SL::DB::Helper::ActsAsList;
   8 use SL::Locale::String;
   9
  10 __PACKAGE__->meta->add_relationships(
  11   requirement_spec => {
  12     type           => 'one to many',
  13     class          => 'SL::DB::RequirementSpec',
  14     column_map     => { requirement_spec_id => 'id' },
  15   },
  16 );
  17
  18 __PACKAGE__->meta->initialize;
  19
  20 __PACKAGE__->configure_acts_as_list(group_by => [qw(requirement_spec_id output_position)]);
  21
  22 sub validate {
  23   my ($self) = @_;
  24
  25   my @errors;
  26   push @errors, t8('The title is missing.') if !$self->title;
  27
  28   return @errors;
  29 }
  30
  31 1;