SL::DB::Order: POD: Doku nicht vorhandener Subroutine entfernt.

[mfinanz.git] / SL / Template / LaTeX.pm

diff --git a/SL/Template/LaTeX.pm b/SL/Template/LaTeX.pm
index da0967ba71a9c321e3d9abb70b6d82f94b5d32fb..130a42484d1405f49f88bcae7d8c0c67d9ff191b 100644 (file)
--- a/SL/Template/LaTeX.pm
+++ b/SL/Template/LaTeX.pm
@@ -98,6 +98,8 @@ sub _format_html {
   $content =~ s{ ^ ( \\newline \  )+ }{ _lb_to_space($1) }gxe;                              # convert line breaks at the start of the text to vertical space
   $content =~ s{ ( \n\n+ ) ( \\newline \  )+ }{ $1 . _lb_to_space($2) }gxe;                 # convert line breaks at the start of a paragraph to vertical space
   $content =~ s{ ( \\end\{ [^\}]+ \} \h* ) ( \\newline \  )+ }{ $1 . _lb_to_space($2) }gxe; # convert line breaks after LaTeX environments like lists to vertical space
+  $content =~ s{ ^ \h+ \\newline }{\\newline}gmx;
+  $content =~ s{ \n\n \h* \\newline \h* }{\n\n}gmx;
 
   return $content;
 }
@@ -123,8 +125,8 @@ sub format_string {
     // $formatters{ $self->{default_content_type} }
     // $formatters{ text };
 
-  $content  =~ s{[^\p{Print}]|\p{Cf}}{}g;
-  $variable =~ s{[^\p{Print}]|\p{Cf}}{}g;
+  $content  =~ s{[^\p{Print}\n]|\p{Cf}}{}g;
+  $variable =~ s{[^\p{Print}\n]|\p{Cf}}{}g;
 
   return $formatter->($self, $content, variable => $variable);
 }