From 27cd1e791f08771c4c0873461c83397345a47d88 Mon Sep 17 00:00:00 2001 From: Moritz Bunkus Date: Wed, 3 Jan 2007 07:37:28 +0000 Subject: [PATCH] =?utf8?q?Bei=20der=20Administration=20bei=20Sprachen=20f?= =?utf8?q?=C3=BCr=20neu=20anzulegende=20Vorlagen=20wieder=20alle=20M=C3=B6?= =?utf8?q?glichkeiten=20anzeigen.=20Behebt=20Fehler=20durch=20Commit=20156?= =?utf8?q?1.?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- bin/mozilla/admin.pl | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/bin/mozilla/admin.pl b/bin/mozilla/admin.pl index 20bb28071..6ac2a5144 100644 --- a/bin/mozilla/admin.pl +++ b/bin/mozilla/admin.pl @@ -440,11 +440,12 @@ sub form_header { } opendir TEMPLATEDIR, "$templates/." or $form->error("$templates : $!"); - @all = grep({ !/^\.\.?$/ && -d "$templates/$_" } readdir(TEMPLATEDIR)); + my @all = readdir(TEMPLATEDIR); + my @alldir = sort(grep({ -d "$templates/$_" && !/^\.\.?$/ } @all)); + my @allhtml = sort(grep({ -f "$templates/$_" && /\.html$/ } @all)); closedir TEMPLATEDIR; - @allhtml = sort grep /\.html/, @all; - @alldir = grep !/\.(html|tex|sty|odt|xml|txb)$/, @all; + @alldir = grep !/\.(html|tex|sty|odt|xml|txb)$/, @alldir; @alldir = grep !/^(webpages|\.svn)$/, @alldir; @allhtml = reverse grep !/Default/, @allhtml; @@ -473,7 +474,7 @@ sub form_header { } opendir CSS, "css/."; - @all = grep /.*\.css$/, readdir CSS; + @all = sort(grep({ /\.css$/ && ($_ ne "tabcontent.css") } readdir(CSS))); closedir CSS; foreach $item (@all) { @@ -483,7 +484,6 @@ sub form_header { $selectstylesheet .= qq|