PDF-Erzeugung: Support fürs Erzeugen von PDF/A-konformen PDFs

[mfinanz.git] / SL / DB / Helper / PDF_A.pm

diff --git a/SL/DB/Helper/PDF_A.pm b/SL/DB/Helper/PDF_A.pm
new file mode 100644 (file)
index 0000000..4f52844
--- /dev/null
+++ b/SL/DB/Helper/PDF_A.pm
@@ -0,0 +1,33 @@
+package SL::DB::Helper::PDF_A;
+
+use strict;
+
+use parent qw(Exporter);
+our @EXPORT = qw(create_pdf_a_print_options);
+
+sub create_pdf_a_print_options {
+  my ($self) = @_;
+
+  require SL::DB::Language;
+
+  my $language_code = $self->can('language_id') && $self->language_id ? SL::DB::Language->load_cached($self->language_id)->template_code : undef;
+  $language_code  ||= 'de';
+  my $pdf_language  = $language_code =~ m{deutsch|german|^de$}i   ? 'de-DE'
+                    : $language_code =~ m{englisch|english|^en$}i ? 'en-US'
+                    :                                               '';
+  my $author        = do {
+    no warnings 'once';
+    $::instance_conf->get_company
+  };
+
+  return {
+    version   => '3b',
+    meta_data => {
+      title    => $self->displayable_name,
+      author   => $author,
+      language => $pdf_language,
+    },
+  };
+}
+
+1;