config tag-style für TT vorlagen

diff --git a/SL/Template/LaTeX.pm b/SL/Template/LaTeX.pm
index 5d5008c1f129cb67a84ad2ad2b8b36af41848aea..02ad317615628ff3bb1a2421214b954de0f5e08b 100644 (file)
--- a/SL/Template/LaTeX.pm
+++ b/SL/Template/LaTeX.pm
@@ -356,6 +356,10 @@ sub parse {
   if ($self->{use_template_toolkit}) {
     my $additional_params = $::form;
 
+    if ($self->{custom_tag_style}) {
+      $contents = "[% TAGS $self->{tag_start} $self->{tag_end} %]\n" . $contents;
+    }
+
     $::form->init_template->process(\$contents, $additional_params, \$new_contents) || die $::form->template->error;
   } else {
     $new_contents = $self->parse_block($contents);

diff --git a/SL/Template/Simple.pm b/SL/Template/Simple.pm
index b1f155bf59bdcb550c32af51585df018c5fa343d..be5ba8b5db1beecc82178200fcdff44f9a030625 100644 (file)
--- a/SL/Template/Simple.pm
+++ b/SL/Template/Simple.pm
@@ -48,6 +48,7 @@ sub set_tag_style {
   my $tag_start               = shift;
   my $tag_end                 = shift;
 
+  $self->{custom_tag_style}   = 1;
   $self->{tag_start}          = $tag_start;
   $self->{tag_end}            = $tag_end;
   $self->{tag_start_qm}       = quotemeta $tag_start;