From aa6ce43498ba0bdfc0179a704f5e022084e02111 Mon Sep 17 00:00:00 2001
From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Fri, 15 Dec 2006 10:12:29 +0000
Subject: [PATCH] =?utf8?q?Beim=20Login=20wird=20jetzt=20vor=20der=20eigent?=
 =?utf8?q?lichen=20Datenbankaktualisierung=20eine=20Warnmeldung=20ausgegeb?=
 =?utf8?q?en,=20die=20der=20Benutzer=20best=C3=A4tigen=20muss.=20Somit=20e?=
 =?utf8?q?rh=C3=A4lt=20er=20noch=20eine=20Gelegenheit,=20vor=20einem=20nic?=
 =?utf8?q?ht=20erwarteten=20Upgrade=20ein=20Backup=20der=20Datenbank=20dur?=
 =?utf8?q?chzuf=C3=BChren.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 SL/User.pm                                    | 22 +++++++++++--------
 locale/de/all                                 |  1 +
 templates/webpages/dbupgrade/warning_de.html  | 14 ++++++++++++
 .../webpages/dbupgrade/warning_master.html    | 17 ++++++++++++++
 4 files changed, 45 insertions(+), 9 deletions(-)
 create mode 100644 templates/webpages/dbupgrade/warning_de.html
 create mode 100644 templates/webpages/dbupgrade/warning_master.html

diff --git a/SL/User.pm b/SL/User.pm
index 62bc94f6d..57e8644db 100644
--- a/SL/User.pm
+++ b/SL/User.pm
@@ -168,21 +168,25 @@ sub login {
 
     if (&update_available($myconfig{"dbdriver"}, $dbversion)) {
 
-      # update the tables
-      open FH, ">$userspath/nologin" or die "
-$!";
-
       map { $form->{$_} = $myconfig{$_} }
         qw(dbname dbhost dbport dbdriver dbuser dbpasswd dbconnect);
 
-      $form->{dbupdate} = "db$myconfig{dbname}";
-      $form->{ $form->{dbupdate} } = 1;
-
       $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} }));
+      print($form->parse_html_template("dbupgrade/header"));
+
+      $form->{dbupdate} = "db$myconfig{dbname}";
+      $form->{ $form->{dbupdate} } = 1;
+
+      if (!$form->{"confirm_dbupdate"}) {
+        print($form->parse_html_template("dbupgrade/warning"));
+        exit(0);
+      }
+
+      # update the tables
+      open FH, ">$userspath/nologin" or die "
+$!";
 
       # required for Oracle
       $form->{dbdefault} = $sid;
diff --git a/locale/de/all b/locale/de/all
index 65daf6de5..609e65f60 100644
--- a/locale/de/all
+++ b/locale/de/all
@@ -604,6 +604,7 @@ gestartet',
   'Logout'                      => 'Abmeldung',
   'Long Description'            => 'Langtext',
   'Lx-Office 2.4.0 introduces two new concepts: tax zones and Buchungsgruppen.' => 'Lx-Office 2.4.0 f&uuml;hrt zwei neue Konzepte ein: Steuerzonen und Buchungsgruppen.',
+  'Lx-Office is about to update the database <b><TMPL_VAR dbname ESCAPE=HTML></b>. You should create a backup of the database before proceeding because the backup might not be reversible.' => 'Lx-Office wird gleich die Datenbank <b><TMPL_VAR dbname ESCAPE=HTML></b> aktualisieren. Sie sollten eine Sicherungskopie der Datenbank erstellen, bevor Sie fortfahren, da die Aktualisierung unter Umst&auml;nden nicht umkehrbar ist.',
   'Make'                        => 'Hersteller',
   'Manager'                     => 'Manager',
   'Mandantennummer'             => 'Mandantennummer',
diff --git a/templates/webpages/dbupgrade/warning_de.html b/templates/webpages/dbupgrade/warning_de.html
new file mode 100644
index 000000000..73611e5df
--- /dev/null
+++ b/templates/webpages/dbupgrade/warning_de.html
@@ -0,0 +1,14 @@
+<form name="Form" method="post" action="login.pl">
+
+ <input type="hidden" name="path" value="<TMPL_VAR path ESCAPE=HTML>">
+ <input type="hidden" name="login" value="<TMPL_VAR login ESCAPE=HTML>">
+ <input type="hidden" name="hashed_password" value="<TMPL_VAR password ESCAPE=HTML>">
+ <input type="hidden" name="action" value="login">
+ <input type="hidden" name="confirm_dbupdate" value="1">
+
+ <p>
+  Lx-Office wird gleich die Datenbank <b><TMPL_VAR dbname ESCAPE=HTML></b> aktualisieren. Sie sollten eine Sicherungskopie der Datenbank erstellen, bevor Sie fortfahren, da die Aktualisierung unter Umst&auml;nden nicht umkehrbar ist.
+ </p>
+
+ <input type="submit" name="dummy" value="Weiter">
+</form>
diff --git a/templates/webpages/dbupgrade/warning_master.html b/templates/webpages/dbupgrade/warning_master.html
new file mode 100644
index 000000000..2c92f1dd7
--- /dev/null
+++ b/templates/webpages/dbupgrade/warning_master.html
@@ -0,0 +1,17 @@
+<form name="Form" method="post" action="login.pl">
+
+ <input type="hidden" name="path" value="<TMPL_VAR path ESCAPE=HTML>">
+ <input type="hidden" name="login" value="<TMPL_VAR login ESCAPE=HTML>">
+ <input type="hidden" name="hashed_password" value="<TMPL_VAR password ESCAPE=HTML>">
+ <input type="hidden" name="action" value="login">
+ <input type="hidden" name="confirm_dbupdate" value="1">
+
+ <p>
+  <translate>Lx-Office is about to update the
+   database <b><TMPL_VAR dbname ESCAPE=HTML></b>. You should create a
+   backup of the database before proceeding because the backup might not
+   be reversible.</translate>
+ </p>
+
+ <input type="submit" name="dummy" value="<translate>Continue</translate>">
+</form>
-- 
2.20.1