From 8a6cb88a72a52a635ebdd95031d94ff88666bbbd Mon Sep 17 00:00:00 2001
From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Mon, 23 May 2011 11:00:46 +0200
Subject: [PATCH] =?utf8?q?Vor=20DB-Update=20aus=20Admin-Bereich=20%::mycon?=
 =?utf8?q?fig=20mit=20DB-Variablen=20f=C3=BCllen?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

Die RDBOs benutzen beim DB-Connect die Werte aus %::myconfig -- anders
als die Legacy-Funktionen in SL/User.pm. Die Admin-Funktion
"Datebankadministration -> Datenbank aktualisieren" muss
dementsrechend nicht nur $::form (für SL/User.pm), sondern auch
%::myconfig bestücken.

Fix für Bug 1661.
---
 bin/mozilla/admin.pl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/bin/mozilla/admin.pl b/bin/mozilla/admin.pl
index ddb12b1d8..efd16fecf 100755
--- a/bin/mozilla/admin.pl
+++ b/bin/mozilla/admin.pl
@@ -739,7 +739,8 @@ sub dbupdate {
   foreach my $i (@update_rows) {
     restore_form($saved_form);
 
-    map { $form->{$_} = $form->{"${_}_${i}"} } qw(dbname dbdriver dbhost dbport dbuser dbpasswd);
+    %::myconfig = ();
+    map { $form->{$_} = $::myconfig{$_} = $form->{"${_}_${i}"} } qw(dbname dbdriver dbhost dbport dbuser dbpasswd);
 
     print $form->parse_html_template("admin/dbupgrade_header");
 
-- 
2.20.1