X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;ds=sidebyside;f=bin%2Fmozilla%2Fadmin.pl;h=2eb53876cc29b7aecf22f5237a17f7ff7e06501e;hb=bfaef835c20ba69d5ea4242e67a0dcb4fcbd4f50;hp=f0b1c2d78c6e0ba3dd663aad85d22f097627bea2;hpb=77122e512a74c88bf51e401a18f3cae8da25f227;p=kivitendo-erp.git diff --git a/bin/mozilla/admin.pl b/bin/mozilla/admin.pl index f0b1c2d78..2eb53876c 100644 --- a/bin/mozilla/admin.pl +++ b/bin/mozilla/admin.pl @@ -239,7 +239,7 @@ sub list_users { if (/^(name=|company=|templates=|dbuser=|dbdriver=|dbname=|dbhost=)/) { chop($var = $&); - ($null, $member{$login}{$var}) = split /=/, $_, 2; + ($null, $member{$login}{$var}) = split(/=/, $_, 2); } } @@ -440,11 +440,12 @@ sub form_header { } opendir TEMPLATEDIR, "$templates/." or $form->error("$templates : $!"); - @all = grep !/^\.\.?$/, 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)$/, @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,12 +484,16 @@ sub form_header { $selectstylesheet .= qq|$item\n|; } } - $selectstylesheet .= "\n"; $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| @@ -539,8 +544,8 @@ sub form_header { $myconfig->{address} - | . $locale->text('Steuernummer') . qq| - + | . $locale->text('Tax number') . qq| + | . $locale->text('Ust-IDNr') . qq| @@ -596,8 +601,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| + {templates}> @@ -728,7 +738,7 @@ sub form_header { |; - foreach $item (split /;/, $myconfig->{acs}) { + foreach $item (split(/;/, $myconfig->{acs})) { ($key, $value) = split /--/, $item, 2; $excl{$key}{$value} = 1; } @@ -863,7 +873,7 @@ sub save { $myconfig = new User "$memberfile", "$form->{login}"; # redo acs variable and delete all the acs codes - @acs = split /;/, $form->{acs}; + @acs = split(/;/, $form->{acs}); $form->{acs} = ""; foreach $item (@acs) { @@ -969,7 +979,7 @@ sub save { # copy templates to the directory opendir TEMPLATEDIR, "$templates/." or $form - error("$templates : $!"); - @templates = grep /$form->{mastertemplates}.*?\.(html|tex|sty)$/, + @templates = grep /$form->{mastertemplates}.*?\.(html|tex|sty|xml|txb)$/, readdir TEMPLATEDIR; closedir TEMPLATEDIR; @@ -1121,9 +1131,16 @@ sub change_admin_password { {script}> -| - . $locale->text('Password') - . qq| + + + | . $locale->text('Password') . qq| + + + + | . $locale->text('Repeat the password') . qq| + + + {path}> {rpw}> @@ -1141,6 +1158,24 @@ sub change_admin_password { } sub change_password { + if ($form->{"password"} ne $form->{"password_again"}) { + $form->{title} = + qq|Lx-Office ERP | + . $locale->text('Administration') . " / " + . $locale->text('Change Admin Password'); + + $form->header; + + print qq| + + + +| . $locale->text('Change Admin Password') . qq| + +| . $locale->text("The passwords do not match.") . qq| +|; + return; + } $root->{password} = $form->{password}; @@ -1276,10 +1311,11 @@ sub dbselect_source { - -|; +# Vorübergehend Deaktiviert +# +print qq| @@ -1398,10 +1434,29 @@ $upd } sub dbupdate { + $form->{"stylesheet"} = "lx-office-erp.css"; + $form->{"title"} = $main::locale->text("Dataset upgrade"); + $form->header(); + my $dbname = + join(" ", + map({ s/\s//g; s/^db//; $_; } + grep({ $form->{$_} } + split(/\s+/, $form->{"dbupdate"})))); + print($form->parse_html_template("dbupgrade/header", + { "dbname" => $dbname })); User->dbupdate(\%$form); - $form->redirect($locale->text('Dataset updated!')); + print qq| + + +| . $locale->text('Dataset updated!') . qq| + + + +escape($form->{$_}); } qw(path rpw))) . +qq|">| . $locale->text("Continue") . qq||; }
| . $locale->text("The passwords do not match.") . qq| +|; + return; + } $root->{password} = $form->{password}; @@ -1276,10 +1311,11 @@ sub dbselect_source { - -|; +# Vorübergehend Deaktiviert +# +print qq|