X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/68c90376e2ba127f0c0a00787cbe1aafdff947c6..1faf637bfd4e9c4c4470a595b83ca8c44128f911:/SL/AM.pm

diff --git a/SL/AM.pm b/SL/AM.pm
index 8fd79ad06..ab8dc147a 100644
--- a/SL/AM.pm
+++ b/SL/AM.pm
@@ -1050,8 +1050,10 @@ sub get_buchungsgruppe {
 
   }
 
-  $query = "SELECT inventory_accno_id FROM defaults";
-  ($form->{"std_inventory_accno_id"}) = $dbh->selectrow_array($query);
+  $query = "SELECT inventory_accno_id, income_accno_id, expense_accno_id ".
+    "FROM defaults";
+  ($form->{"std_inventory_accno_id"}, $form->{"std_income_accno_id"},
+   $form->{"std_expense_accno_id"}) = $dbh->selectrow_array($query);
 
   my $module = "IC";
   $query = qq|SELECT c.accno, c.description, c.link, c.id,
@@ -1535,7 +1537,6 @@ sub save_preferences {
                  servicenumber = '$form->{servicenumber}',
                  yearend = '$form->{yearend}',
 		 curr = '$form->{curr}',
-		 weightunit = '$form->{weightunit}',
 		 businessnumber = '$form->{businessnumber}'
 		|;
   $dbh->do($query) || $form->dberror($query);
@@ -2098,7 +2099,6 @@ sub translate_units {
   my $units = $self->retrieve_units(\%main::myconfig, $form);
 
   my $h = $units->{$unit}->{"LANGUAGES"}->{$template_code};
-  $main::lxdebug->dump(0, "klaus", $h);
   my $new_unit = $unit;
   if ($h) {
     if (($amount != 1) && $h->{"localized_plural"}) {