X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Fadmin.pl;h=3b37dab5ea5800b456fd19e9c63ee8542fc5f3dc;hb=9c2d49bb4dae241b4290afaeeb762d9c0e584301;hp=6ac2a514404e660364e1d6dda425c9cb2816d2b3;hpb=27cd1e791f08771c4c0873461c83397345a47d88;p=kivitendo-erp.git diff --git a/bin/mozilla/admin.pl b/bin/mozilla/admin.pl index 6ac2a5144..3b37dab5e 100644 --- a/bin/mozilla/admin.pl +++ b/bin/mozilla/admin.pl @@ -473,9 +473,13 @@ sub form_header { } } - opendir CSS, "css/."; - @all = sort(grep({ /\.css$/ && ($_ ne "tabcontent.css") } readdir(CSS))); - closedir CSS; +# opendir CSS, "css/."; +# @all = grep /.*\.css$/, readdir CSS; +# closedir CSS; + +# css dir has styles that are not intended as general layouts. +# reverting to hardcoded list + @all = qw(lx-office-erp.css Win2000.css); foreach $item (@all) { if ($item eq $myconfig->{stylesheet}) { @@ -487,8 +491,13 @@ sub form_header { $form->header; - if ($myconfig->{menustyle} eq "neu") { $neu = "checked"; } - else { $old = "checked"; } + if ($myconfig->{menustyle} eq "v3") { + $menustyle_v3 = "checked"; + } elsif ($myconfig->{menustyle} eq "neu") { + $menustyle_neu = "checked"; + } else { + $menustyle_old = "checked"; + } print qq|
@@ -503,16 +512,16 @@ sub form_header {| . $locale->text('Login') . qq| | -+ | |
---|---|---|
| . $locale->text('Password') . qq| | -{password}> | - {password}> ++ |
| . $locale->text('Name') . qq| | -+ | |
| . $locale->text('E-mail') . qq| | @@ -596,8 +605,13 @@ sub form_header {||
| . $locale->text('Setup Menu') . qq| | -New - Old | +| . + $locale->text("Top (CSS)") . qq| + | . + $locale->text("Top (Javascript)") . qq| + | . + $locale->text("Old (on the side)") . qq| + |