Revision 19e256f2
Von Moritz Bunkus vor etwa 18 Jahren hinzugefügt
bin/mozilla/admin.pl | ||
---|---|---|
440 | 440 |
} |
441 | 441 |
|
442 | 442 |
opendir TEMPLATEDIR, "$templates/." or $form->error("$templates : $!"); |
443 |
@all = grep !/^\.\.?$/, readdir TEMPLATEDIR;
|
|
443 |
@all = grep({ !/^\.\.?$/ && -d "$templates/$_" } readdir(TEMPLATEDIR));
|
|
444 | 444 |
closedir TEMPLATEDIR; |
445 | 445 |
|
446 | 446 |
@allhtml = sort grep /\.html/, @all; |
447 |
@alldir = grep !/\.(html|tex|sty|odt)$/, @all; |
|
447 |
@alldir = grep !/\.(html|tex|sty|odt|xml|txb)$/, @all;
|
|
448 | 448 |
@alldir = grep !/^(webpages|\.svn)$/, @alldir; |
449 | 449 |
|
450 | 450 |
@allhtml = reverse grep !/Default/, @allhtml; |
Auch abrufbar als: Unified diff
Die Drop-Down-Box "Benutze Vorlagen" wirklich nur mit Verzeichnissen füllen und zusätzlich die Endungen ".xml" und ".txb" ignorieren, falls ein Benutzer auf den schrägen Gedanken kommen sollte, ein Verzeichnis so zu benennen.