Das Perl-Modul Time::HiRes mit in den InstallationCheck aufnehmen.

[mfinanz.git] / SL / User.pm

diff --git a/SL/User.pm b/SL/User.pm
index 3b36f310c28be9c229ea34c792309c243ee016c8..9fd9e5ee47b95b09f40a5d3d438a71a44131ee7e 100644 (file)
--- a/SL/User.pm
+++ b/SL/User.pm
@@ -209,7 +209,13 @@ sub login {
       # remove lock file
       unlink("$userspath/nologin");
 
-      print($form->parse_html_template("dbupgrade/footer"));
+      my $menufile =
+        $self->{"menustyle"} eq "v3" ? "menuv3.pl" :
+        $self->{"menustyle"} eq "neu" ? "menunew.pl" :
+        "menu.pl";
+
+      print($form->parse_html_template("dbupgrade/footer",
+                                       { "menufile" => $menufile }));
 
       $rc = -2;
 
@@ -1086,7 +1092,7 @@ sub config_vars {
     dbname dbuser dbpasswd email fax name numberformat in_numberformat password
     printer role sid signature stylesheet tel templates vclimit angebote bestellungen rechnungen
     anfragen lieferantenbestellungen einkaufsrechnungen taxnumber co_ustid duns menustyle
-    template_format copies);
+    template_format default_media default_printer_id copies show_form_details);
 
   $main::lxdebug->leave_sub();