X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/77122e512a74c88bf51e401a18f3cae8da25f227..9f055edb25f912aa2cb3dfd8e8a4cf20703f75a2:/bin/mozilla/admin.pl diff --git a/bin/mozilla/admin.pl b/bin/mozilla/admin.pl index f0b1c2d78..32922a274 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); } } @@ -728,7 +728,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 +863,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) { @@ -1121,9 +1121,16 @@ sub change_admin_password {
{script}> -| - . $locale->text('Password') - . qq| + + + + + + + + + +
| . $locale->text('Password') . qq|
| . $locale->text('Repeat the password') . qq|
{path}> {rpw}> @@ -1141,6 +1148,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 +1301,11 @@ sub dbselect_source {
- -|; +# Vorübergehend Deaktiviert +# +print qq|

@@ -1398,10 +1424,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| + +
+ +| . $locale->text("Continue") . qq||; }