Buchungen wurden nicht korrekt angezeigt, wenn gleiche Referenz aber unterschiedliche

Beschreibung

diff --git a/SL/CA.pm b/SL/CA.pm
index 089bcdc19e5b9ee1fddcda82ce9216d77d5ce319..b4680ad7adc04b77fa1ab3d031d78c88696e2b92 100644 (file)
--- a/SL/CA.pm
+++ b/SL/CA.pm
@@ -370,6 +370,8 @@ sub all_transactions {
       $ca->{debit}  = 0;
     }
 
       $ca->{debit}  = 0;
     }
 

+    $ca->{index} = $ca->{reference}.$ca->{description};
+

     push(@{ $form->{CA} }, $ca);
 
   }
     push(@{ $form->{CA} }, $ca);
 
   }

diff --git a/bin/mozilla/ca.pl b/bin/mozilla/ca.pl
index faac8cc74381c43db1d47669b4d78e2db86b8009..23de61bcaa428e6e5315287d1c367361970ae749 100644 (file)
--- a/bin/mozilla/ca.pl
+++ b/bin/mozilla/ca.pl
@@ -410,13 +410,13 @@ sub list_transactions {
     $totaldebit  += $ca->{debit};
     $totalcredit += $ca->{credit};
 
     $totaldebit  += $ca->{debit};
     $totalcredit += $ca->{credit};
 

-    $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>|;
+    $column_data{transdate}   = ($ca->{"index"} ne $last || $form->{sort} ne "transdate") ? qq|<td>$ca->{transdate}</td>| : qq|<td></td>|;
+    $column_data{reference}   = ($ca->{"index"} ne $last) ? qq|<td>$href</td>| : qq|<td></td>|;
+    $column_data{description} = ($ca->{"index"} ne $last) ? qq|<td>$ca->{description}</td>| : qq|<td></td>|;

     
     

-    $i++ if($ca->{"reference"} ne $last);
+    $i++ if($ca->{"index"} ne $last);

     $i %= 2;
     $i %= 2;

-    $last=$ca->{"reference"};
+    $last=$ca->{"index"};

     print qq|
         <tr class=listrow$i>
 |;
     print qq|
         <tr class=listrow$i>
 |;