use SL::Inifile;
use SL::DBUpgrade2;
use SL::DBUtils;
+use SL::Template;
require "bin/mozilla/common.pl";
require "bin/mozilla/admin_groups.pl";
}
sub _search_templates {
- # is there a templates basedir
- if (!-d $::lx_office_conf{paths}->{templates}) {
- $::form->error(sprintf($::locale->text("The directory %s does not exist."), $::lx_office_conf{paths}->{templates}));
- }
-
- tie my %dir_h, 'IO::Dir', $::lx_office_conf{paths}->{templates};
-
- my @alldir = sort grep {
- -d ($::lx_office_conf{paths}->{templates} . "/$_")
- && !/^\.\.?$/
- && !m/\.(?:html|tex|sty|odt|xml|txb)$/
- && !m/^(?:webpages$|print$|mail$|\.)/
- } keys %dir_h;
-
- tie %dir_h, 'IO::Dir', "$::lx_office_conf{paths}->{templates}/print";
- my @allmaster = ('Standard', sort grep { -d ("$::lx_office_conf{paths}->{templates}/print" . "/$_") && !/^\.\.?$/ && !/^Standard$/ } keys %dir_h);
+ my %templates = SL::Template->available_templates;
- return \@alldir, \@allmaster;
+ return ($templates{print_templates}, $templates{master_templates});
}
1;