Revision ac51747a
Von Moritz Bunkus vor fast 5 Jahren hinzugefügt
| SL/DB/Helper/PDF_A.pm | ||
|---|---|---|
| 11 | 11 |
sub _create_xmp_data {
|
| 12 | 12 |
my ($self, %params) = @_; |
| 13 | 13 |
|
| 14 |
use Cwd; |
|
| 15 | 14 |
my $template = Template->new({
|
| 16 | 15 |
INTERPOLATE => 0, |
| 17 | 16 |
EVAL_PERL => 0, |
| ... | ... | |
| 45 | 44 |
$timestamp =~ s{(..)$}{:$1};
|
| 46 | 45 |
|
| 47 | 46 |
return {
|
| 48 |
version => '3b', |
|
| 49 |
xmp => _create_xmp_data( |
|
| 47 |
version => '3b',
|
|
| 48 |
xmp => _create_xmp_data(
|
|
| 50 | 49 |
$self, |
| 51 |
pdf_a_version => '3', |
|
| 52 |
pdf_a_conformance => 'B', |
|
| 53 |
producer => 'pdfTeX', |
|
| 54 |
timestamp => $timestamp, # 2019-11-05T15:26:20+01:00 |
|
| 55 |
meta_data => {
|
|
| 56 |
title => $self->displayable_name, |
|
| 57 |
author => $author, |
|
| 58 |
language => $pdf_language, |
|
| 50 |
pdf_a_version => '3',
|
|
| 51 |
pdf_a_conformance => 'B',
|
|
| 52 |
producer => 'pdfTeX',
|
|
| 53 |
timestamp => $timestamp, # 2019-11-05T15:26:20+01:00
|
|
| 54 |
meta_data => {
|
|
| 55 |
title => $self->displayable_name,
|
|
| 56 |
author => $author,
|
|
| 57 |
language => $pdf_language,
|
|
| 59 | 58 |
}, |
| 60 | 59 |
zugferd => {
|
| 61 | 60 |
conformance_level => 'EXTENDED', |
Auch abrufbar als: Unified diff
ZUGFeRD: Kosmetik