X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/1f2c95729c5b2752ecc33eb5d5ddb4b395fe51be..d05861aff6d05095c5e1711c0a7db6887f489f2e:/SL/AM.pm diff --git a/SL/AM.pm b/SL/AM.pm index 843d5ea63..59afada4b 100644 --- a/SL/AM.pm +++ b/SL/AM.pm @@ -1497,13 +1497,13 @@ sub save_preferences { WHERE login = '$form->{login}'|; $dbh->do($query) || $form->dberror($query); - foreach my $item (split(/ /, $form->{taxaccounts})) { - $query = qq|UPDATE tax - SET rate = | . ($form->{$item} / 100) . qq|, - taxnumber = '$form->{"taxnumber_$item"}' - WHERE chart_id = $item|; - $dbh->do($query) || $form->dberror($query); - } +# foreach my $item (split(/ /, $form->{taxaccounts})) { +# $query = qq|UPDATE tax +# SET rate = | . ($form->{$item} / 100) . qq|, +# taxnumber = '$form->{"taxnumber_$item"}' +# WHERE chart_id = $item|; +# $dbh->do($query) || $form->dberror($query); +# } my $rc = $dbh->commit; $dbh->disconnect;