X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/ee072e4f077213bf6f8792ca8f0a1afebbb6282f..d0bca87da49fa412cc1f7deb6f50c799857b750b:/SL/User.pm

diff --git a/SL/User.pm b/SL/User.pm
index a034e033f..39d40c4e3 100644
--- a/SL/User.pm
+++ b/SL/User.pm
@@ -654,7 +654,7 @@ sub dbupdate {
   if ($form->{dbupdate}) {
 
     # read update scripts into memory
-    opendir SQLDIR, "sql/." or $form - error($!);
+    opendir SQLDIR, "sql/." or &error("", "$!");
     ## LINET
     @upgradescripts =
       sort(cmp_script_version
@@ -839,9 +839,9 @@ sub config_vars {
 
   my @conf = qw(acs address admin businessnumber charset company countrycode
     currency dateformat dbconnect dbdriver dbhost dbport dboptions
-    dbname dbuser dbpasswd email fax name numberformat password
+    dbname dbuser dbpasswd email fax name numberformat in_numberformat password
     printer role sid signature stylesheet tel templates vclimit angebote bestellungen rechnungen
-    anfragen lieferantenbestellungen einkaufsrechnungen steuernummer ustid duns);
+    anfragen lieferantenbestellungen einkaufsrechnungen steuernummer co_ustid duns menustyle);
 
   $main::lxdebug->leave_sub();