manuelle Bearbeitung der Steuersaetze entfernt, vorerst
authorPhilip Reetz <p.reetz@linet-services.de>
Tue, 12 Dec 2006 08:52:42 +0000 (08:52 +0000)
committerPhilip Reetz <p.reetz@linet-services.de>
Tue, 12 Dec 2006 08:52:42 +0000 (08:52 +0000)
SL/AM.pm
bin/mozilla/am.pl

index 843d5ea..59afada 100644 (file)
--- 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;
index fcf7d01..9e2aff9 100644 (file)
@@ -3076,40 +3076,40 @@ sub config {
              </tr>
            </table>
          </td>
-       </tr>
-       <tr class=listheading>
-         <th colspan=2>| . $locale->text('Tax Accounts') . qq|</th>
-       </tr>
-       <tr>
-         <td colspan=2>
-           <table>
-             <tr>
-               <th>&nbsp;</th>
-               <th>| . $locale->text('Rate') . qq| (%)</th>
-               <th>| . $locale->text('Number') . qq|</th>
-             </tr>
-|;
-
-  foreach $accno (sort keys %{ $form->{taxrates} }) {
-    print qq|
-              <tr>
-               <th align=right>$form->{taxrates}{$accno}{description}</th>
-               <td><input name=$form->{taxrates}{$accno}{id} size=6 value=$form->{taxrates}{$accno}{rate}></td>
-               <td><input name="taxnumber_$form->{taxrates}{$accno}{id}" value="$form->{taxrates}{$accno}{taxnumber}"></td>
-             </tr>
-|;
-    $form->{taxaccounts} .= "$form->{taxrates}{$accno}{id} ";
-  }
-
-  chop $form->{taxaccounts};
-
-  print qq|
-<input name=taxaccounts type=hidden value="$form->{taxaccounts}">
-
-            </table>
-         </td>
-       </tr>
-      </table>
+       </tr>|;
+#      <tr class=listheading>
+#        <th colspan=2>| . $locale->text('Tax Accounts') . qq|</th>
+#      </tr>
+#      <tr>
+#        <td colspan=2>
+#          <table>
+#            <tr>
+#              <th>&nbsp;</th>
+#              <th>| . $locale->text('Rate') . qq| (%)</th>
+#              <th>| . $locale->text('Number') . qq|</th>
+#            </tr>
+|;
+# 
+  foreach $accno (sort keys %{ $form->{taxrates} }) {
+    print qq|
+              <tr>
+#              <th align=right>$form->{taxrates}{$accno}{description}</th>
+#              <td><input name=$form->{taxrates}{$accno}{id} size=6 value=$form->{taxrates}{$accno}{rate}></td>
+#              <td><input name="taxnumber_$form->{taxrates}{$accno}{id}" value="$form->{taxrates}{$accno}{taxnumber}"></td>
+#            </tr>
+|;
+    $form->{taxaccounts} .= "$form->{taxrates}{$accno}{id} ";
+  }
+# 
+  chop $form->{taxaccounts};
+# 
+  print qq|
+<input name=taxaccounts type=hidden value="$form->{taxaccounts}">
+# 
+            </table>
+#        </td>
+#      </tr>
+print qq|      </table>
     </td>
   </tr>
   <tr>