Revision 6348bffb
Von Bernd Bleßmann vor fast 11 Jahren hinzugefügt
| bin/mozilla/amtemplates.pl | ||
|---|---|---|
|
#
|
||
|
if ($format eq "tex") {
|
||
|
# search all .tex-files in template dir (recursively)
|
||
|
my $template_dir = $defaults->templates;
|
||
|
my @all_files;
|
||
|
find(
|
||
|
sub {
|
||
| ... | ... | |
|
|
||
|
my $fname = $File::Find::name;
|
||
|
# remove template dir from name
|
||
|
$fname =~ s|^templates/[^/+]/||;
|
||
|
$fname =~ s|^$template_dir/||;
|
||
|
# remove .tex from name
|
||
|
$fname =~ s|.tex$||;
|
||
|
|
||
|
push(@all_files, $fname);
|
||
|
|
||
|
}, $defaults->templates);
|
||
|
}, $template_dir);
|
||
|
|
||
|
# filter all files already set up (i.e. not already in @values)
|
||
|
my @other_files = grep { my $a=$_; not grep {$a eq $_->{value}} @values } @all_files;
|
||
Auch abrufbar als: Unified diff
Template-Pfad aus Pfad-Namen anderer Tex-Dateien richtig entfernen.
Behebt #2483.