Revision 9ead220c
Von Moritz Bunkus vor fast 12 Jahren hinzugefügt
| SL/Template.pm | ||
|---|---|---|
|
|
||
|
use strict;
|
||
|
|
||
|
use IO::Dir;
|
||
|
|
||
|
use SL::Template::Simple;
|
||
|
use SL::Template::Excel;
|
||
|
use SL::Template::HTML;
|
||
| ... | ... | |
|
$package->new($params{file_name}, $params{form}, $params{myconfig} || \%::myconfig, $params{userspath} || $::lx_office_conf{paths}->{userspath});
|
||
|
}
|
||
|
|
||
|
sub available_templates {
|
||
|
my ($class) = @_;
|
||
|
|
||
|
# 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);
|
||
|
|
||
|
return (
|
||
|
print_templates => \@alldir,
|
||
|
master_templates => \@allmaster,
|
||
|
);
|
||
|
}
|
||
|
|
||
|
1;
|
||
| bin/mozilla/admin.pl | ||
|---|---|---|
|
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;
|
||
Auch abrufbar als: Unified diff
Funktion zum Auflisten vorhandener Druckvorlagen nach SL::Template verschoben