From 19e256f26da4cd6d842b85ba9a9377aedab3d9e1 Mon Sep 17 00:00:00 2001 From: Moritz Bunkus Date: Fri, 22 Dec 2006 09:15:12 +0000 Subject: [PATCH] =?utf8?q?Die=20Drop-Down-Box=20"Benutze=20Vorlagen"=20wir?= =?utf8?q?klich=20nur=20mit=20Verzeichnissen=20f=C3=BCllen=20und=20zus?= =?utf8?q?=C3=A4tzlich=20die=20Endungen=20".xml"=20und=20".txb"=20ignorier?= =?utf8?q?en,=20falls=20ein=20Benutzer=20auf=20den=20schr=C3=A4gen=20Gedan?= =?utf8?q?ken=20kommen=20sollte,=20ein=20Verzeichnis=20so=20zu=20benennen.?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- bin/mozilla/admin.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/bin/mozilla/admin.pl b/bin/mozilla/admin.pl index b2f7576af..76513b0e1 100644 --- a/bin/mozilla/admin.pl +++ b/bin/mozilla/admin.pl @@ -440,11 +440,11 @@ sub form_header { } opendir TEMPLATEDIR, "$templates/." or $form->error("$templates : $!"); - @all = grep !/^\.\.?$/, readdir TEMPLATEDIR; + @all = grep({ !/^\.\.?$/ && -d "$templates/$_" } readdir(TEMPLATEDIR)); closedir TEMPLATEDIR; @allhtml = sort grep /\.html/, @all; - @alldir = grep !/\.(html|tex|sty|odt)$/, @all; + @alldir = grep !/\.(html|tex|sty|odt|xml|txb)$/, @all; @alldir = grep !/^(webpages|\.svn)$/, @alldir; @allhtml = reverse grep !/Default/, @allhtml; -- 2.20.1