From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Thu, 7 Feb 2013 12:21:47 +0000 (+0100)
Subject: Pflichtenheft-Model: Accessoren für Textblöcke, Abschnitte
X-Git-Tag: release-3.2.0beta~467^2~248
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=34948207f2723795ee4de1ba0b83f5da4f5e53c5;p=kivitendo-erp.git

Pflichtenheft-Model: Accessoren für Textblöcke, Abschnitte
---

diff --git a/SL/DB/RequirementSpec.pm b/SL/DB/RequirementSpec.pm
index 31dcfe89d..2c2725e50 100644
--- a/SL/DB/RequirementSpec.pm
+++ b/SL/DB/RequirementSpec.pm
@@ -2,6 +2,8 @@ package SL::DB::RequirementSpec;
 
 use strict;
 
+use Carp;
+
 use SL::DB::MetaSetup::RequirementSpec;
 use SL::DB::Manager::RequirementSpec;
 use SL::Locale::String;
@@ -41,4 +43,18 @@ sub _before_save_initialize_not_null_columns {
   return 1;
 }
 
+sub text_blocks_for_position {
+  my ($self, $output_position) = @_;
+
+  return [ sort { $a->position <=> $b->position } grep { $_->output_position == $output_position } @{ $self->text_blocks } ];
+}
+
+sub sections {
+  my ($self, @rest) = @_;
+
+  croak "This sub is not a writer" if @rest;
+
+  return [ sort { $a->position <=> $b->position } grep { !$_->parent_id } @{ $self->items } ];
+}
+
 1;