SL/DB/Helper/PDF_A.pm

   1 package SL::DB::Helper::PDF_A;
   2
   3 use strict;
   4
   5 use parent qw(Exporter);
   6 our @EXPORT = qw(create_pdf_a_print_options);
   7
   8 sub create_pdf_a_print_options {
   9   my ($self) = @_;
  10
  11   require SL::DB::Language;
  12
  13   my $language_code = $self->can('language_id') && $self->language_id ? SL::DB::Language->load_cached($self->language_id)->template_code : undef;
  14   $language_code  ||= 'de';
  15   my $pdf_language  = $language_code =~ m{deutsch|german|^de$}i   ? 'de-DE'
  16                     : $language_code =~ m{englisch|english|^en$}i ? 'en-US'
  17                     :                                               '';
  18   my $author        = do {
  19     no warnings 'once';
  20     $::instance_conf->get_company
  21   };
  22
  23   return {
  24     version   => '3b',
  25     meta_data => {
  26       title    => $self->displayable_name,
  27       author   => $author,
  28       language => $pdf_language,
  29     },
  30   };
  31 }
  32
  33 1;