$content =~ s{ \r+ }{}gx;
$content =~ s{ \n+ }{ }gx;
- $content =~ s{ \s+ }{ }gx;
+ $content =~ s{ (?:\ |\s)+ }{ }gx;
+ $content =~ s{ (?:\ |\s)+$ }{}gx;
+ $content =~ s{ (?: <br/?> )+$ }{}gx;
- my @parts = map {
+ my @parts = grep { $_ } map {
if (substr($_, 0, 1) eq '<') {
s{ +}{}g;
$html_replace{$_} || '';
}
} split(m{(<.*?>)}x, $content);
- return join('', @parts);
+ $content = join '', @parts;
+ $content =~ s{ (?: [\n\s] | \\newline )+$ }{}gx;
+
+ return $content;
}
my %formatters = (
my $error;
eval {
- my $template = SL::Template::LaTeX->new($template_file_name, $local_form, \%::myconfig, $::lx_office_conf{paths}->{userspath});
+ my $template = SL::Template::LaTeX->new(file_name => $template_file_name, form => $local_form);
my $result = $template->parse($tex_fh) && $template->convert_to_pdf;
die $template->{error} unless $result;