Revision c25155dd
Von Moritz Bunkus vor mehr als 4 Jahren hinzugefügt
| SL/Template/LaTeX.pm | ||
|---|---|---|
| 400 | 400 |
my $file_name = blessed($file->{source}) && $file->{source}->can('filename') ? $file->{source}->filename : "" . $file->{source}->filename;
|
| 401 | 401 |
my $embed_name = $file->{name} // $file_name;
|
| 402 | 402 |
$embed_name =~ s{.*/}{};
|
| 403 |
|
|
| 404 |
my $embed_name_ascii = $::locale->quote_special_chars('filenames', $embed_name);
|
|
| 405 |
$embed_name_ascii =~ s{[^a-z0-9!@#$%^&*(){}[\],.+'"=_-]+}{}gi;
|
|
| 406 |
|
|
| 403 | 407 |
my @options; |
| 404 | 408 |
|
| 405 | 409 |
my $add_opt = sub {
|
| ... | ... | |
| 408 | 412 |
push @options, sprintf('%s={%s}', $name, $value); # TODO: escaping
|
| 409 | 413 |
}; |
| 410 | 414 |
|
| 415 |
$add_opt->('filespec', $embed_name_ascii);
|
|
| 411 | 416 |
$add_opt->('ucfilespec', $embed_name);
|
| 412 | 417 |
$add_opt->('desc', $file->{description});
|
| 413 | 418 |
$add_opt->('afrelationship', $file->{relationship});
|
Auch abrufbar als: Unified diff
ZUGFeRD: Namen der eingebetteten Datei richtig setzen
'ucfilespec' wird erst ab PDF 1.7 unterstützt, was wir nicht
erzeugen. Daher wurde bisher der Name der temporären Datei auch im PDF
als Dateiname verwendet.
Jetzt wird korrekt »ZUGFeRD-invoice.xml« als Name des Anhangs im PDF
angezeigt.