diff options
-rwxr-xr-x | control-center | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/control-center b/control-center index 5362c2bb..ab77959d 100755 --- a/control-center +++ b/control-center @@ -270,6 +270,8 @@ my $help_on_context = 'drakconf-intro'; #Please replace with correct contextual help page my @ctx = qw(drakconf-intro mcc-boot mcc-hardware mcc-mountpoints mcc-network mcc-security mcc-system software-management wiz-client); +my @themes = grep { -d "$themes_dir/$_" } all($themes_dir); + #-PO Translators, please keep all "/" charaters !!! my %options = ( 'show_log' => [ N("/_Options"), N("/Display _Logs") ], @@ -298,7 +300,7 @@ my @menu_items = ( undef, '<CheckItem>', ], ), - if_(all($themes_dir) > 1, + if_(@themes > 1, [ N("/_Themes"), undef, undef, undef, '<Branch>' ], (map { my $name = $_; @@ -314,7 +316,7 @@ my @menu_items = ( }; }, '<CheckItem>' ] - } grep { -d "$themes_dir/$_" } all($themes_dir)), + } @themes), [ N("/_Themes").N("/_More themes"), undef, \&more_themes, undef, '<Item>' ] ), [ N("/_Help"), undef, undef, undef, '<Branch>' ], |