From d05861aff6d05095c5e1711c0a7db6887f489f2e Mon Sep 17 00:00:00 2001 From: Philip Reetz Date: Tue, 12 Dec 2006 08:52:42 +0000 Subject: [PATCH] manuelle Bearbeitung der Steuersaetze entfernt, vorerst --- SL/AM.pm | 14 +++++----- bin/mozilla/am.pl | 68 +++++++++++++++++++++++------------------------ 2 files changed, 41 insertions(+), 41 deletions(-) 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; diff --git a/bin/mozilla/am.pl b/bin/mozilla/am.pl index fcf7d018b..9e2aff932 100644 --- a/bin/mozilla/am.pl +++ b/bin/mozilla/am.pl @@ -3076,40 +3076,40 @@ sub config { - - - | . $locale->text('Tax Accounts') . qq| - - - - - - - - - -|; - - foreach $accno (sort keys %{ $form->{taxrates} }) { - print qq| - - - - - -|; - $form->{taxaccounts} .= "$form->{taxrates}{$accno}{id} "; - } - - chop $form->{taxaccounts}; - - print qq| - - -
 | . $locale->text('Rate') . qq| (%)| . $locale->text('Number') . qq|
$form->{taxrates}{$accno}{description}{taxrates}{$accno}{id} size=6 value=$form->{taxrates}{$accno}{rate}>
- - - + |; +# +# | . $locale->text('Tax Accounts') . qq| +# +# +# +# +# +# +# +# +# +# |; +# +# foreach $accno (sort keys %{ $form->{taxrates} }) { +# print qq| +# +# +# +# +# +# |; +# $form->{taxaccounts} .= "$form->{taxrates}{$accno}{id} "; +# } +# +# chop $form->{taxaccounts}; +# +# print qq| +# +# +#
 | . $locale->text('Rate') . qq| (%)| . $locale->text('Number') . qq|
$form->{taxrates}{$accno}{description}{taxrates}{$accno}{id} size=6 value=$form->{taxrates}{$accno}{rate}>
+# +# +print qq| -- 2.20.1