use SL::Template::OpenDocument;
use SL::Template::PlainText;
use SL::Template::ShellCommand;
-use SL::Template::XML;
sub create {
my %params = @_;
my $package = "SL::Template::" . $params{type};
- $package->new($params{file_name}, $params{form}, $params{myconfig} || \%::myconfig, $params{userspath} || $::lx_office_conf{paths}->{userspath});
+ $package->new(
+ %params,
+ source => $params{file_name},
+ form => $params{form},
+ myconfig => $params{myconfig} || \%::myconfig,
+ userspath => $params{userspath} || $::lx_office_conf{paths}->{userspath},
+ );
}
sub available_templates {
my @alldir = sort grep {
-d ($::lx_office_conf{paths}->{templates} . "/$_")
&& !/^\.\.?$/
- && !m/\.(?:html|tex|sty|odt|xml|txb)$/
+ && !m/\.(?:html|tex|sty|odt)$/
&& !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 @allmaster = (sort grep { -d ("$::lx_office_conf{paths}->{templates}/print" . "/$_") && !/^\.\.?$/ && !/^Standard$/ } keys %dir_h);
return (
print_templates => \@alldir,