From d69fdcda39579b4807443f377a7624c8838ff4f2 Mon Sep 17 00:00:00 2001
From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Tue, 28 Nov 2006 09:10:14 +0000
Subject: [PATCH] Informationen ueber Datenbankupgrades auch im Lx-Office-Look
 ausgeben.

---
 SL/User.pm                                      | 14 ++++++++++----
 bin/mozilla/login.pl                            |  6 ------
 locale/de/admin                                 |  3 +--
 locale/de/all                                   |  5 ++++-
 locale/de/am                                    |  3 +--
 locale/de/login                                 |  4 +---
 locale/de/ustva                                 |  3 +--
 templates/webpages/dbupgrade/error_de.html      |  6 ++++++
 templates/webpages/dbupgrade/error_master.html  |  6 ++++++
 templates/webpages/dbupgrade/footer_de.html     |  7 +++++++
 templates/webpages/dbupgrade/footer_master.html |  7 +++++++
 templates/webpages/dbupgrade/header_de.html     |  7 +++++++
 templates/webpages/dbupgrade/header_master.html |  7 +++++++
 13 files changed, 58 insertions(+), 20 deletions(-)
 create mode 100644 templates/webpages/dbupgrade/error_de.html
 create mode 100644 templates/webpages/dbupgrade/error_master.html
 create mode 100644 templates/webpages/dbupgrade/footer_de.html
 create mode 100644 templates/webpages/dbupgrade/footer_master.html
 create mode 100644 templates/webpages/dbupgrade/header_de.html
 create mode 100644 templates/webpages/dbupgrade/header_master.html

diff --git a/SL/User.pm b/SL/User.pm
index 0824a7d5f..775453655 100644
--- a/SL/User.pm
+++ b/SL/User.pm
@@ -174,7 +174,11 @@ $!";
       $form->{dbupdate} = "db$myconfig{dbname}";
       $form->{ $form->{dbupdate} } = 1;
 
-      $form->info(sprintf($main::locale->text("Upgrading Dataset %s..."), $myconfig{dbname}));
+      $form->{"stylesheet"} = "lx-office-erp.css";
+      $form->{"title"} = $main::locale->text("Dataset upgrade");
+      $form->header();
+      print($form->parse_html_template("dbupgrade/header",
+                                       { "dbname" => $myconfig{dbname} }));
 
       # required for Oracle
       $form->{dbdefault} = $sid;
@@ -188,7 +192,7 @@ $!";
       # remove lock file
       unlink "$userspath/nologin";
 
-      $form->info($main::locale->text("...done"));
+      print($form->parse_html_template("dbupgrade/footer"));
 
       $rc = -2;
 
@@ -409,8 +413,10 @@ sub process_perl_script {
   }
 
   if (!defined($result)) {
-    $form->dberror("The database update/creation did not succeed. The file ${filename} containing the following syntax error:<br>${@}<br>" .
-                   "All changes in that file have been reverted.");
+    print($form->parse_html_template("dbupgrade/error",
+                                     { "file" => $filename,
+                                       "error" => $@ }));
+    exit(0);
   } elsif (1 != $result) {
     unlink("users/nologin") if (2 == $result);
     exit(0);
diff --git a/bin/mozilla/login.pl b/bin/mozilla/login.pl
index c6c947e7e..bd318fbcf 100644
--- a/bin/mozilla/login.pl
+++ b/bin/mozilla/login.pl
@@ -140,12 +140,6 @@ sub login {
     $err[1] = $err[3] = $locale->text('Incorrect username or password!');
 
     if ($errno == 2) {
-
-      # upgraded dataset, login again
-      $form->redirect(
-        "<a href=menu.pl?login=$form->{login}&password=$form->{password}&path=$form->{path}&action=display>" .
-        $locale->text("Continue") . "</a>"
-      );
       exit;
     }
 
diff --git a/locale/de/admin b/locale/de/admin
index 7b9fcffc2..9cc69f41c 100644
--- a/locale/de/admin
+++ b/locale/de/admin
@@ -1,5 +1,4 @@
 $self{texts} = {
-  '...done'                     => '...fertig',
   'Access Control'              => 'Zugriffkontrolle',
   'Add User'                    => 'Benutzer erfassen',
   'Address'                     => 'Adresse',
@@ -25,6 +24,7 @@ $self{texts} = {
   'Dataset'                     => 'Datenbank',
   'Dataset missing!'            => 'Datenbank fehlt!',
   'Dataset updated!'            => 'Datenbank erneuert!',
+  'Dataset upgrade'             => 'Datenbankaktualisierung',
   'Date Format'                 => 'Datumsformat',
   'Delete'                      => 'Löschen',
   'Delete Dataset'              => 'Datenbank löschen',
@@ -76,7 +76,6 @@ $self{texts} = {
   'To add a user to a group edit a name, change the login name and save.  A new user with the same variables will then be saved under the new login name.' => 'Um einer Gruppe einen neuen Benutzer hinzuzufügen, ändern und speichern Sie am einfachsten einen bestehen den Zugriffsnamen. Unter dem neuen Namen wird dann ein Benutzer mit denselben Einstellungen angelegt.',
   'Unlock System'               => 'System entsperren',
   'Update Dataset'              => 'Datenbank aktualisieren',
-  'Upgrading Dataset %s...'     => 'Aktualisiere Datenbank %s...',
   'Use Templates'               => 'benutze Vorlagen',
   'User'                        => 'Benutzer',
   'User deleted!'               => 'Benutzer gelöscht!',
diff --git a/locale/de/all b/locale/de/all
index cd4c082ff..69644a475 100644
--- a/locale/de/all
+++ b/locale/de/all
@@ -98,6 +98,7 @@ $self{texts} = {
   'All'                         => 'Alle',
   'All Accounts'                => 'Alle Konten',
   'All Datasets up to date!'    => 'Alle Datenbanken sind auf aktuellem Stand.',
+  'All changes in that file have been reverted.' => 'Alle &Auml;nderungen in dieser Datei wurden r&uuml;ckg&auml;ngig gemacht.',
   'Aluartikel'                  => 'Aluartikel',
   'Amount'                      => 'Betrag',
   'Amount Due'                  => 'Betrag fällig',
@@ -291,9 +292,11 @@ aktualisieren wollen?',
   'Database Driver not checked!' => 'Kein Datenbanktreiber ausgewählt!',
   'Database Host'               => 'Datenbankcomputer',
   'Database User missing!'      => 'Datenbankbenutzer fehlt!',
+  'Database update error:'      => 'Datenbankaktualisierungsfehler:',
   'Dataset'                     => 'Datenbank',
   'Dataset missing!'            => 'Datenbank fehlt!',
   'Dataset updated!'            => 'Datenbank erneuert!',
+  'Dataset upgrade'             => 'Datenbankaktualisierung',
   'Date'                        => 'Datum',
   'Date Format'                 => 'Datumsformat',
   'Date Paid'                   => 'Zahlungsdatum',
@@ -918,6 +921,7 @@ gestartet',
   'The base unit does not exist or it is about to be deleted in row %d.' => 'Die Basiseinheit in Zeile %d existiert nicht oder soll gel&ouml;scht werden.',
   'The base unit does not exist.' => 'Die Basiseinheit existiert nicht.',
   'The base unit relations must not contain loops (e.g. by saying that unit A\'s base unit is B, B\'s base unit is C and C\'s base unit is A) in row %d.' => 'Die Beziehungen der Einheiten d&uuml;rfen keine Schleifen beinhalten (z.B. wenn gesagt wird, dass Einheit As Basiseinheit B, Bs Basiseinheit C und Cs Basiseinheit A ist) in Zeile %d.',
+  'The database update/creation did not succeed. The file <TMPL_VAR file ESCAPE=HTML> contained the following error:' => 'Die Datenbankaktualisierung/erstellung schlug fehl. Die Datei <TMPL_VAR file ESCAPE=HTML> enthielt den folgenden Fehler:',
   'The factor is missing in row %d.' => 'Der Faktor fehlt in Zeile %d.',
   'The factor is missing.'      => 'Der Faktor fehlt.',
   'The following Datasets are not in use and can be deleted' => 'Die folgenden Datenbanken sind nicht in Verwendung und können gelöscht werden',
@@ -1019,7 +1023,6 @@ gestartet',
   'Update Prices'               => 'Preise aktualisieren',
   'Update prices'               => 'Preise aktualisieren',
   'Updated'                     => 'Erneuert am',
-  'Upgrading Dataset %s...'     => 'Aktualisiere Datenbank %s...',
   'Use Templates'               => 'benutze Vorlagen',
   'User'                        => 'Benutzer',
   'User deleted!'               => 'Benutzer gelöscht!',
diff --git a/locale/de/am b/locale/de/am
index 6199b830f..2cad59c3e 100644
--- a/locale/de/am
+++ b/locale/de/am
@@ -1,5 +1,4 @@
 $self{texts} = {
-  '...done'                     => '...fertig',
   '1000,00 or 1000.00'          => '1000,00 oder 1000.00',
   'A unit with this name does already exist.' => 'Eine Einheit mit diesem Namen existiert bereits.',
   'ADR'                         => 'ADR',
@@ -71,6 +70,7 @@ $self{texts} = {
   'Cost Center'                 => 'Kostenstelle',
   'Credit'                      => 'Haben',
   'Customernumberinit'          => 'Kundennummernkreis',
+  'Dataset upgrade'             => 'Datenbankaktualisierung',
   'Date Format'                 => 'Datumsformat',
   'Debit'                       => 'Soll',
   'Delete'                      => 'Löschen',
@@ -247,7 +247,6 @@ $self{texts} = {
   'UStVA-Nr. 97 rechts'         => 'Kz. 97 rechts',
   'UStVA-Nr. 98'                => 'Kz. 98',
   'Umsatzsteuervoranmeldung'    => 'Umsatzsteuervoranmeldung',
-  'Upgrading Dataset %s...'     => 'Aktualisiere Datenbank %s...',
   'Warehouse deleted!'          => 'Das Lager wurde gelöscht.',
   'Warehouse saved!'            => 'Das Lager wurde gespeichert.',
   'Warehouses'                  => 'Lager',
diff --git a/locale/de/login b/locale/de/login
index f90a42626..53a5955f9 100644
--- a/locale/de/login
+++ b/locale/de/login
@@ -1,15 +1,13 @@
 $self{texts} = {
-  '...done'                     => '...fertig',
   'About'                       => 'über',
-  'Continue'                    => 'Weiter',
   'Database Host'               => 'Datenbankcomputer',
   'Dataset'                     => 'Datenbank',
+  'Dataset upgrade'             => 'Datenbankaktualisierung',
   'Incorrect username or password!' => 'Ungültiger Benutzername oder falsches Passwort!',
   'Licensed to'                 => 'Lizensiert für',
   'Login'                       => 'Anmeldung',
   'Login Name'                  => 'Benutzername',
   'Password'                    => 'Passwort',
-  'Upgrading Dataset %s...'     => 'Aktualisiere Datenbank %s...',
   'User'                        => 'Benutzer',
   'Version'                     => 'Version',
   'You are logged out!'         => 'Auf Wiedersehen!',
diff --git a/locale/de/ustva b/locale/de/ustva
index 5f922805a..ea3bfb84a 100644
--- a/locale/de/ustva
+++ b/locale/de/ustva
@@ -1,5 +1,4 @@
 $self{texts} = {
-  '...done'                     => '...fertig',
   '1. Quarter'                  => '1. Quartal',
   '2. Quarter'                  => '2. Quartal',
   '3. Quarter'                  => '3. Quartal',
@@ -27,6 +26,7 @@ $self{texts} = {
   'Bitte eine Steuernummer angeben' => 'Bitte eine Steuernummer angeben',
   'Continue'                    => 'Weiter',
   'Customer not on file!'       => 'Kunde ist nicht in der Datenbank!',
+  'Dataset upgrade'             => 'Datenbankaktualisierung',
   'Dauerfristverlängerung'      => 'Dauerfristverlängerung',
   'Dec'                         => 'Dez',
   'December'                    => 'Dezember',
@@ -94,7 +94,6 @@ $self{texts} = {
   'USTVA-Hint: Tax Authoritys'  => 'Bitte das Bundesland UND die Stadt bzw. den Einzugsbereich Ihres zuständigen Finanzamts auswählen.',
   'UStVA'                       => 'UStVA',
   'UStVA als PDF-Dokument'      => 'UStVa als PDF-Dokument',
-  'Upgrading Dataset %s...'     => 'Aktualisiere Datenbank %s...',
   'Vendor not on file!'         => 'Lieferant ist nicht in der Datenbank!',
   'Verfahren'                   => 'Verfahren',
   'Verrechnung des Erstattungsbetrages erwünscht (Zeile 71)' => 'Verrechnung des Erstattungsbetrages erwünscht (Zeile 71)',
diff --git a/templates/webpages/dbupgrade/error_de.html b/templates/webpages/dbupgrade/error_de.html
new file mode 100644
index 000000000..77e8dcef0
--- /dev/null
+++ b/templates/webpages/dbupgrade/error_de.html
@@ -0,0 +1,6 @@
+<p>Die Datenbankaktualisierung/erstellung schlug fehl. Die Datei <TMPL_VAR file ESCAPE=HTML> enthielt den folgenden Fehler:
+ <br>
+ <TMPL_VAR error>
+ <br>
+ Alle &Auml;nderungen in dieser Datei wurden r&uuml;ckg&auml;ngig gemacht.
+</p>
diff --git a/templates/webpages/dbupgrade/error_master.html b/templates/webpages/dbupgrade/error_master.html
new file mode 100644
index 000000000..f9a5e7696
--- /dev/null
+++ b/templates/webpages/dbupgrade/error_master.html
@@ -0,0 +1,6 @@
+<p><translate>The database update/creation did not succeed. The file <TMPL_VAR file ESCAPE=HTML> contained the following error:</translate>
+ <br>
+ <TMPL_VAR error>
+ <br>
+ <translate>All changes in that file have been reverted.</translate>
+</p>
diff --git a/templates/webpages/dbupgrade/footer_de.html b/templates/webpages/dbupgrade/footer_de.html
new file mode 100644
index 000000000..7aecd63ed
--- /dev/null
+++ b/templates/webpages/dbupgrade/footer_de.html
@@ -0,0 +1,7 @@
+<p>...fertig</p>
+
+<p><a href="menu.pl?login=<TMPL_VAR login ESCAPE=URL>&password=<TMPL_VAR password ESCAPE=URL>&path=<TMPL_VAR path ESCAPE=URL>&action=display">
+  Weiter</a></p>
+
+</body>
+</html>
diff --git a/templates/webpages/dbupgrade/footer_master.html b/templates/webpages/dbupgrade/footer_master.html
new file mode 100644
index 000000000..d79999ac0
--- /dev/null
+++ b/templates/webpages/dbupgrade/footer_master.html
@@ -0,0 +1,7 @@
+<p><translate>...done</translate></p>
+
+<p><a href="menu.pl?login=<TMPL_VAR login ESCAPE=URL>&password=<TMPL_VAR password ESCAPE=URL>&path=<TMPL_VAR path ESCAPE=URL>&action=display">
+  <translate>Continue</translate></a></p>
+
+</body>
+</html>
diff --git a/templates/webpages/dbupgrade/header_de.html b/templates/webpages/dbupgrade/header_de.html
new file mode 100644
index 000000000..90ca9360d
--- /dev/null
+++ b/templates/webpages/dbupgrade/header_de.html
@@ -0,0 +1,7 @@
+<body>
+
+ <table width="100%">
+  <tr>
+   <td class="listtop">Datenbankaktualisierung (<TMPL_VAR dbname ESCAPE=HTML>)</td>
+  </tr>
+ </table>
diff --git a/templates/webpages/dbupgrade/header_master.html b/templates/webpages/dbupgrade/header_master.html
new file mode 100644
index 000000000..ced681327
--- /dev/null
+++ b/templates/webpages/dbupgrade/header_master.html
@@ -0,0 +1,7 @@
+<body>
+
+ <table width="100%">
+  <tr>
+   <td class="listtop"><translate>Dataset upgrade</translate> (<TMPL_VAR dbname ESCAPE=HTML>)</td>
+  </tr>
+ </table>
-- 
2.20.1