Manuelle ergänzungen zum vorherigen commit

[mfinanz.git] / bin / mozilla / ar.pl
diff --git a/bin/mozilla/ar.pl b/bin/mozilla/ar.pl

index e69e13cbf32d3b69b93f3a94c101f148db9bb5c2..ced49fda2a612592d8152a0fe29ade88a5a0a749 100644 (file)
--- a/bin/mozilla/ar.pl
+++ b/bin/mozilla/ar.pl
@@ -336,7 +336,7 @@ sub form_header {
    for my $i (1 .. $form->{rowcount}) {
      my $transaction = {
        amount     => $form->{"amount_$i"},
-      tax        => $form->{"tax$i"},
+      tax        => $form->{"tax_$i"},
        project_id => $form->{"project_id_$i"},
      };
  
@@ -375,7 +375,7 @@ sub form_header {
        . $cgi->hidden('-name' => "previous_AR_amount_$i",
                       '-default' => $selected_accno_full);
  
-    $transaction->{tax} =
+    $transaction->{taxchart} =
        NTI($cgi->popup_menu('-name' => "taxchart_$i",
                             '-id' => "taxchart_$i",
                             '-style' => 'width:200px',
@@ -547,9 +547,6 @@ $follow_ups_block
  
    print "
  </form>
-
-</body>
-</html>
  ";
  
    $main::lxdebug->leave_sub();
@@ -850,8 +847,6 @@ sub delete {
    delete $form->{header};
  
    print qq|
-<body>
-
  <form method=post action=$form->{script}>
  |;
  
@@ -871,9 +866,6 @@ sub delete {
  <input name=action class=submit type=submit value="|
      . $locale->text('Yes') . qq|">
  </form>
-
-</body>
-</html>
  |;
  
    $main::lxdebug->leave_sub();