SL/DB/RequirementSpec.pm

   1 package SL::DB::RequirementSpec;
   2
   3 use strict;
   4
   5 use SL::DB::MetaSetup::RequirementSpec;
   6 use SL::DB::Manager::RequirementSpec;
   7 use SL::Locale::String;
   8
   9 __PACKAGE__->meta->add_relationship(
  10   items          => {
  11     type         => 'one to many',
  12     class        => 'SL::DB::RequirementSpecItem',
  13     column_map   => { id => 'requirement_spec_id' },
  14   },
  15   text_blocks    => {
  16     type         => 'one to many',
  17     class        => 'SL::DB::RequirementSpecTextBlock',
  18     column_map   => { id => 'requirement_spec_id' },
  19   },
  20 );
  21
  22 __PACKAGE__->meta->initialize;
  23
  24 __PACKAGE__->before_save('_before_save_initialize_not_null_columns');
  25
  26 sub validate {
  27   my ($self) = @_;
  28
  29   my @errors;
  30   push @errors, t8('The title is missing.') if !$self->title;
  31
  32   return @errors;
  33 }
  34
  35 sub _before_save_initialize_not_null_columns {
  36   my ($self) = @_;
  37
  38   $self->previous_section_number(0) if !defined $self->previous_section_number;
  39   $self->previous_fb_number(0)      if !defined $self->previous_fb_number;
  40
  41   return 1;
  42 }
  43
  44 1;