From 6295e12d8df88cae23953b75f69c9e4b30999978 Mon Sep 17 00:00:00 2001
From: Philip Reetz <p.reetz@linet-services.de>
Date: Mon, 16 Jan 2006 11:27:20 +0000
Subject: [PATCH] Steuerkonten wurden nicht angezeigt, wenn Rechnung und
 Zahlung vom gleichen Tag. Fixed Bug#259

---
 SL/GL.pm          |  3 +++
 bin/mozilla/gl.pl | 12 ++++++------
 2 files changed, 9 insertions(+), 6 deletions(-)

diff --git a/SL/GL.pm b/SL/GL.pm
index 8ec98c8e5..3b0e74e82 100644
--- a/SL/GL.pm
+++ b/SL/GL.pm
@@ -38,6 +38,8 @@
 
 package GL;
 
+use Data::Dumper;
+
 sub delete_transaction {
   my ($self, $myconfig, $form) = @_;
   $main::lxdebug->enter_sub();
@@ -518,6 +520,7 @@ sub all_transactions {
     ($form->{gifi_account_description}) = $sth->fetchrow_array;
     $sth->finish;
   }
+  print(STDERR Dumper($form->{GL}));
   $main::lxdebug->leave_sub();
 
   $dbh->disconnect;
diff --git a/bin/mozilla/gl.pl b/bin/mozilla/gl.pl
index d07dc1de7..ed8aadca3 100644
--- a/bin/mozilla/gl.pl
+++ b/bin/mozilla/gl.pl
@@ -698,9 +698,9 @@ sub generate_report {
         $debitaccno .=
           "<br><a href=$href&accno=$ref->{debit_accno}{$key}&callback=$callback>$ref->{debit_accno}{$key}</a>";
       }
-      if ($ref->{debit_taxkey}{$key} eq $debittaxkey) {
-        $ref->{debit_tax_accno}{$key} = $taxaccno;
-      }
+#       if ($ref->{debit_taxkey}{$key} eq $debittaxkey) {
+#         $ref->{debit_tax_accno}{$key} = $taxaccno;
+#       }
       $taxaccno    = $ref->{debit_tax_accno}{$key};
       $debittaxkey = $ref->{debit_taxkey}{$key};
     }
@@ -716,9 +716,9 @@ sub generate_report {
         $creditaccno .=
           "<br><a href=$href&accno=$ref->{credit_accno}{$key}&callback=$callback>$ref->{credit_accno}{$key}</a>";
       }
-      if ($ref->{credit_taxkey}{$key} eq $credittaxkey) {
-        $ref->{credit_tax_accno}{$key} = $taxaccno;
-      }
+#       if ($ref->{credit_taxkey}{$key} eq $credittaxkey) {
+#         $ref->{credit_tax_accno}{$key} = $taxaccno;
+#       }
       $taxaccno     = $ref->{credit_tax_accno}{$key};
       $credittaxkey = $ref->{credit_taxkey}{$key};
     }
-- 
2.20.1