From 38320021c5afe1183ce603c018e23c61ce6f492a Mon Sep 17 00:00:00 2001
From: Thomas Kasulke <t.kasulke@linet-services.de>
Date: Fri, 1 Jun 2007 09:17:03 +0000
Subject: [PATCH] Anzeige der Kontenausgabe angepasst. Daten werden, je nach
 Sortierung, gruppiert.

---
 bin/mozilla/ca.pl | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/bin/mozilla/ca.pl b/bin/mozilla/ca.pl
index 12aef7aa6..faac8cc74 100644
--- a/bin/mozilla/ca.pl
+++ b/bin/mozilla/ca.pl
@@ -410,12 +410,13 @@ sub list_transactions {
     $totaldebit  += $ca->{debit};
     $totalcredit += $ca->{credit};
 
-    $column_data{transdate}   = qq|<td>$ca->{transdate}</td>|;
-    $column_data{reference}   = qq|<td>$href</td>|;
-    $column_data{description} = qq|<td>$ca->{description}</td>|;
-
-    $i++;
+    $column_data{transdate}   = ($ca->{"reference"} ne $last || $form->{sort} ne "transdate") ? qq|<td>$ca->{transdate}</td>| : qq|<td></td>|;
+    $column_data{reference}   = ($ca->{"reference"} ne $last) ? qq|<td>$href</td>| : qq|<td></td>|;
+    $column_data{description} = ($ca->{"reference"} ne $last) ? qq|<td>$ca->{description}</td>| : qq|<td></td>|;
+    
+    $i++ if($ca->{"reference"} ne $last);
     $i %= 2;
+    $last=$ca->{"reference"};
     print qq|
         <tr class=listrow$i>
 |;
-- 
2.20.1