From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Fri, 22 Dec 2006 09:15:12 +0000 (+0000)
Subject: Die Drop-Down-Box "Benutze Vorlagen" wirklich nur mit Verzeichnissen füllen und zusät... 
X-Git-Tag: release-2.4.1~1^2~124
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=19e256f26da4cd6d842b85ba9a9377aedab3d9e1;p=kivitendo-erp.git

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.
---

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;