Vor DB-Update aus Admin-Bereich %::myconfig mit DB-Variablen füllen

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.

diff --git a/bin/mozilla/admin.pl b/bin/mozilla/admin.pl
index ddb12b1..efd16fe 100755 (executable)
--- 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");