X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/766f5705ecb9cd56adfbffd94c871959bb64c6fd..59103201cf9d7131024c1c3d5bbb136addb79a3f:/SL/Template.pm diff --git a/SL/Template.pm b/SL/Template.pm index 903ea90d8..8682c7e9a 100644 --- a/SL/Template.pm +++ b/SL/Template.pm @@ -19,7 +19,6 @@ use SL::Template::LaTeX; use SL::Template::OpenDocument; use SL::Template::PlainText; use SL::Template::ShellCommand; -use SL::Template::XML; sub create { my %params = @_; @@ -47,12 +46,12 @@ 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,