1 package SL::DB::Helper::PDF_A;
5 use parent qw(Exporter);
6 our @EXPORT = qw(create_pdf_a_print_options);
8 sub create_pdf_a_print_options {
11 require SL::DB::Language;
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'
20 $::instance_conf->get_company
26 title => $self->displayable_name,
28 language => $pdf_language,