Merge branch 'master' of github.com:kivitendo/kivitendo-erp
[kivitendo-erp.git] / SL / Template.pm
1 #====================================================================
2 # LX-Office ERP
3 # Copyright (C) 2004
4 # Based on SQL-Ledger Version 2.1.9
5 # Web http://www.lx-office.org
6 #
7 #====================================================================
8
9 package SL::Template;
10
11 use strict;
12
13 use IO::Dir;
14
15 use SL::Template::Simple;
16 use SL::Template::Excel;
17 use SL::Template::HTML;
18 use SL::Template::LaTeX;
19 use SL::Template::OpenDocument;
20 use SL::Template::PlainText;
21 use SL::Template::ShellCommand;
22 use SL::Template::XML;
23
24 sub create {
25   my %params  = @_;
26   my $package = "SL::Template::" . $params{type};
27
28   $package->new($params{file_name}, $params{form}, $params{myconfig} || \%::myconfig, $params{userspath} || $::lx_office_conf{paths}->{userspath});
29 }
30
31 sub available_templates {
32   my ($class) = @_;
33
34   # is there a templates basedir
35   if (!-d $::lx_office_conf{paths}->{templates}) {
36     $::form->error(sprintf($::locale->text("The directory %s does not exist."), $::lx_office_conf{paths}->{templates}));
37   }
38
39   tie my %dir_h, 'IO::Dir', $::lx_office_conf{paths}->{templates};
40
41   my @alldir  = sort grep {
42        -d ($::lx_office_conf{paths}->{templates} . "/$_")
43     && !/^\.\.?$/
44     && !m/\.(?:html|tex|sty|odt|xml|txb)$/
45     && !m/^(?:webpages$|print$|mail$|\.)/
46   } keys %dir_h;
47
48   tie %dir_h, 'IO::Dir', "$::lx_office_conf{paths}->{templates}/print";
49   my @allmaster = ('Standard', sort grep { -d ("$::lx_office_conf{paths}->{templates}/print" . "/$_") && !/^\.\.?$/ && !/^Standard$/ } keys %dir_h);
50
51   return (
52     print_templates  => \@alldir,
53     master_templates => \@allmaster,
54   );
55 }
56
57 1;