From 49e7cf41f689d00e2b8497682c2a850acb2d18ab Mon Sep 17 00:00:00 2001
From: =?utf8?q?Sven=20Sch=C3=B6ling?= <s.schoeling@linet-services.de>
Date: Fri, 7 Aug 2015 13:48:19 +0200
Subject: [PATCH] OpenDocument Druck: foreach Konstrukte korrekt ausschneiden

---
 SL/Template/OpenDocument.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/SL/Template/OpenDocument.pm b/SL/Template/OpenDocument.pm
index 63439c7da..5cf68ee38 100644
--- a/SL/Template/OpenDocument.pm
+++ b/SL/Template/OpenDocument.pm
@@ -238,7 +238,7 @@ sub parse_block {
           $table_row .=  $1;
           $end_tag    =  $2;
 
-          substr $contents, 0, length($2), '';
+          substr $contents, 0, length($1) + length($2), '';
 
           my $new_text = $self->parse_foreach($var, $table_row, $tag, $end_tag, @indices);
           if (!defined($new_text)) {
-- 
2.20.1