X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FTemplate%2FLaTeX.pm;h=293db2e18c5bbb58cb495563026aa3c18134867d;hb=96186c41fee2317c968474b0ae3ab3314df09810;hp=422a2932b8e3a3fe8f94ea63bcb15fdffff269e6;hpb=5e9f08d41ced9d75d868621c43b9b639e9e1b781;p=kivitendo-erp.git diff --git a/SL/Template/LaTeX.pm b/SL/Template/LaTeX.pm index 422a2932b..293db2e18 100644 --- a/SL/Template/LaTeX.pm +++ b/SL/Template/LaTeX.pm @@ -83,6 +83,8 @@ sub _format_html { $content =~ s{ (?:\ |\s)+ }{ }gx; $content =~ s{ (?:\ |\s)+$ }{}gx; $content =~ s{ (?:
)+$ }{}gx; + $content =~ s{ |
    \s*
}{}igx; + $content =~ s{ (?:

\s*

\s* )+ \Z }{}imgx; my @parts = grep { $_ } map { if (substr($_, 0, 1) eq '<') { @@ -394,12 +396,16 @@ sub _embed_file_directive { my ($self, $file) = @_; # { source => $xmlfile, - # name => 'ZUGFeRD-invoice.xml', - # description => $::locale->text('ZUGFeRD invoice'), } + # name => 'factur-x.xml', + # description => $::locale->text('Factur-X/ZUGFeRD invoice'), } my $file_name = blessed($file->{source}) && $file->{source}->can('filename') ? $file->{source}->filename : "" . $file->{source}->filename; my $embed_name = $file->{name} // $file_name; $embed_name =~ s{.*/}{}; + + my $embed_name_ascii = $::locale->quote_special_chars('filenames', $embed_name); + $embed_name_ascii =~ s{[^a-z0-9!@#$%^&*(){}[\],.+'"=_-]+}{}gi; + my @options; my $add_opt = sub { @@ -408,10 +414,11 @@ sub _embed_file_directive { push @options, sprintf('%s={%s}', $name, $value); # TODO: escaping }; - $add_opt->('ucfilespec', $embed_name); - $add_opt->('desc', $file->{description}); - $add_opt->('afrelationship', $file->{relationship}); - $add_opt->('mimetype', $file->{mime_type}); + $add_opt->('filespec', $embed_name_ascii); + $add_opt->('ucfilespec', $embed_name); + $add_opt->('desc', $file->{description}); + $add_opt->('afrelationship', $file->{relationship}); + $add_opt->('mimetype', $file->{mime_type}); return sprintf('\embedfile[%s]{%s}', join(',', @options), $file_name); }