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