SL/DB/RequirementSpecTextBlock.pm

   1 package SL::DB::RequirementSpecTextBlock;
   2
   3 use strict;
   4
   5 use Carp;
   6 use List::MoreUtils qw(any);
   7 use Rose::DB::Object::Helpers;
   8 use Rose::DB::Object::Util;
   9
  10 use SL::Common ();
  11 use SL::DB::MetaSetup::RequirementSpecTextBlock;
  12 use SL::DB::Manager::RequirementSpecTextBlock;
  13 use SL::DB::Helper::ActsAsList;
  14 use SL::Locale::String;
  15
  16 __PACKAGE__->meta->add_relationship(
  17   pictures => {
  18     type         => 'one to many',
  19     class        => 'SL::DB::RequirementSpecPicture',
  20     column_map   => { id => 'text_block_id' },
  21   },
  22 );
  23
  24 __PACKAGE__->meta->initialize;
  25
  26 __PACKAGE__->configure_acts_as_list(group_by => [qw(requirement_spec_id output_position)]);
  27
  28 __PACKAGE__->before_save(\  &_before_save_invalidate_requirement_spec_version);
  29 __PACKAGE__->before_delete(\&_before_delete_invalidate_requirement_spec_version);
  30
  31 sub validate {
  32   my ($self) = @_;
  33
  34   my @errors;
  35   push @errors, t8('The title is missing.') if !$self->title;
  36
  37   return @errors;
  38 }
  39
  40 sub _before_save_invalidate_requirement_spec_version {
  41   my ($self, %params) = @_;
  42
  43   return 1 if !$self->requirement_spec_id || $self->requirement_spec->working_copy_id;
  44
  45   my %changed_columns = map { $_ => 1 } (Rose::DB::Object::Helpers::dirty_columns($self));
  46
  47   $self->requirement_spec->invalidate_version
  48     if !Rose::DB::Object::Util::is_in_db($self) || any { $changed_columns{$_} } qw(title text position output_position);
  49
  50   return 1;
  51 }
  52
  53 sub _before_delete_invalidate_requirement_spec_version {
  54   my ($self, %params) = @_;
  55
  56   $self->requirement_spec->invalidate_version if $self->requirement_spec_id;
  57
  58   return 1;
  59 }
  60
  61 sub pictures_sorted {
  62   my ($self, @args) = @_;
  63
  64   croak "Not a writer" if @args;
  65
  66   return [ sort { $a->position <=> $b->position } $self->pictures ];
  67 }
  68
  69 sub content_excerpt {
  70   my ($self) = @_;
  71
  72   return Common::truncate($self->text // '', at => 200);
  73 }
  74
  75 1;