t8 für sinnvolle Lokalisierung (locales.pl) in mtime_ischanged

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

diff --git a/SL/Controller/RequirementSpecPredefinedText.pm b/SL/Controller/RequirementSpecPredefinedText.pm
index 959a770f8c26c5dd4c8beeb9b9891873a1fa0ac9..00c86b47471492175b6476bc717b9ab05a3ccf59 100644 (file)
--- a/SL/Controller/RequirementSpecPredefinedText.pm
+++ b/SL/Controller/RequirementSpecPredefinedText.pm
@@ -4,6 +4,8 @@ use strict;
 
 use parent qw(SL::Controller::Base);
 
 
 use parent qw(SL::Controller::Base);
 

+use List::MoreUtils qw(none);
+

 use SL::DB::RequirementSpecPredefinedText;
 use SL::Helper::Flash;
 use SL::Locale::String;
 use SL::DB::RequirementSpecPredefinedText;
 use SL::Helper::Flash;
 use SL::Locale::String;


@@ -32,7 +34,7 @@ sub action_list {
 sub action_new {
   my ($self) = @_;
 
 sub action_new {
   my ($self) = @_;
 

-  $self->{requirement_spec_predefined_text} = SL::DB::RequirementSpecPredefinedText->new;
+  $self->{requirement_spec_predefined_text} = SL::DB::RequirementSpecPredefinedText->new(useable_for_text_blocks => 1);

   $self->render('requirement_spec_predefined_text/form', title => t8('Create a new predefined text'));
 }
 
   $self->render('requirement_spec_predefined_text/form', title => t8('Create a new predefined text'));
 }
 


@@ -95,6 +97,13 @@ sub create_or_update {
   my $params = delete($::form->{requirement_spec_predefined_text}) || { };
   my $title  = $is_new ? t8('Create a new predefined text') : t8('Edit predefined text');
 
   my $params = delete($::form->{requirement_spec_predefined_text}) || { };
   my $title  = $is_new ? t8('Create a new predefined text') : t8('Edit predefined text');
 

+  # Force presence of booleans for the useable_* flags.
+  my @useable_flags = qw(text_blocks sections);
+  $params->{"useable_for_${_}"} = !!$params->{"useable_for_${_}"} for @useable_flags;
+
+  # Force usage for text blocks if none of the check boxes are marked.
+  $params->{useable_for_text_blocks} = 1 if none { $params->{"useable_for_${_}"} } @useable_flags;
+

   $self->{requirement_spec_predefined_text}->assign_attributes(%{ $params });
 
   my @errors = $self->{requirement_spec_predefined_text}->validate;
   $self->{requirement_spec_predefined_text}->assign_attributes(%{ $params });
 
   my @errors = $self->{requirement_spec_predefined_text}->validate;