OpenDocument Druck: foreach Konstrukte korrekt ausschneiden

diff --git a/SL/Template/OpenDocument.pm b/SL/Template/OpenDocument.pm
index 63439c7da0163f23cc55f7c187a15328b8d9bf96..5cf68ee386e51015a2366bac1f5b615903ae6475 100644 (file)
--- 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)) {