Mehrere neue Outputtypen für die parsing engine eingebaut:

[mfinanz.git] / bin / mozilla / admin.pl
diff --git a/bin/mozilla/admin.pl b/bin/mozilla/admin.pl

index 118712531c81cf680a87b38a5a2740de733cda21..32922a2742661720faa7e35c965da8a807ff37d6 100644 (file)
--- 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);
      }
    }
  
@@ -302,7 +302,7 @@ sub list_users {
      $member{$key}{dbname} = $member{$key}{dbuser}
        if ($member{$key}{dbdriver} eq 'Oracle');
  
-    $column_data{login}     = qq|<td><a href=$href>$key</a></td>|;
+    $column_data{login}     = qq|<td><a id="$key" href="$href">$key</a></td>|;
      $column_data{name}      = qq|<td>$member{$key}{name}</td>|;
      $column_data{company}   = qq|<td>$member{$key}{company}</td>|;
      $column_data{dbdriver}  = qq|<td>$member{$key}{dbdriver}</td>|;
@@ -313,7 +313,7 @@ sub list_users {
      $i++;
      $i %= 2;
      print qq|
-        <tr class=listrow$i>|;
+        <tr class="listrow$i">|;
  
      map { print "$column_data{$_}\n" } @column_index;
  
@@ -728,7 +728,7 @@ sub form_header {
    </tr>
  |;
  
-  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 {
  
  <form method=post action=$form->{script}>
  
-<b>|
-    . $locale->text('Password')
-    . qq|</b> <input type=password name=password size=8>
+<table>
+  <tr>
+    <td><b>| . $locale->text('Password') . qq|</b></td>
+    <td><input type=password name=password size=8></td>
+  </tr>
+  <tr>
+    <td><b>| . $locale->text('Repeat the password') . qq|</b></td>
+    <td><input type=password name=password_again size=8></b></td>
+  </tr>
+</table>
  
  <input type=hidden name=path value=$form->{path}>
  <input type=hidden name=rpw value=$form->{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|
+<body class=admin>
+
+
+<h2>| . $locale->text('Change Admin Password') . qq|</h2>
+
+<p>| . $locale->text("The passwords do not match.") . qq|<br>
+<input type="button" onclick="history.back()" value="| . $locale->text("Back") . qq|">|;
+    return;
+  }
  
    $root->{password} = $form->{password};
  
@@ -1276,10 +1301,11 @@ sub dbselect_source {
  <br>
  
  <input type=submit class=submit name=action value="|
-    . $locale->text('Create Dataset') . qq|">
-<input type=submit class=submit name=action value="|
-    . $locale->text('Update Dataset') . qq|">
-<input type=submit class=submit name=action value="|
+    . $locale->text('Create Dataset') . qq|">|;
+# Vorübergehend Deaktiviert
+# <input type=submit class=submit name=action value="|
+#     . $locale->text('Update Dataset') . qq|">
+print qq| <input type=submit class=submit name=action value="|
      . $locale->text('Delete Dataset') . qq|">
  
  </form>
@@ -1326,11 +1352,12 @@ sub update_dataset {
  <center>
  <h2>$form->{title}</h2>
  |;
-
+  my $field_id = 0;
    foreach $key (sort keys %needsupdate) {
      if ($needsupdate{$key} ne $form->{dbversion}) {
-      $upd .= qq|<input name="db$key" type=checkbox value=1 checked> $key\n|;
+      $upd .= qq|<input id="$field_id" name="db$key" type="checkbox" value="1" checked> $key\n|;
        $form->{dbupdate} .= "db$key ";
+      $field_id++;
      }
    }
  
@@ -1397,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|
+<hr>
+
+| . $locale->text('Dataset updated!') . qq|
+
+<br>
+
+<a href="admin.pl?action=login&| .
+join("&", map({ "$_=" . $form->escape($form->{$_}); } qw(path rpw))) .
+qq|">| . $locale->text("Continue") . qq|</a>|;
  
  }