Erweiterung der Ausgabe in der Kontenuebersicht

[mfinanz.git] / bin / mozilla / ca.pl

diff --git a/bin/mozilla/ca.pl b/bin/mozilla/ca.pl
index dc36b9766864f3d136d8b6049f6abbda2426f6fb..4cbddde6d9ce4761e78443efe5f25b89c4ec800d 100644 (file)
--- a/bin/mozilla/ca.pl
+++ b/bin/mozilla/ca.pl
@@ -475,12 +475,10 @@ sub list_transactions {
 
   CA->all_transactions(\%myconfig, \%$form);
 
-  print(STDERR "EB: $form->{beginning_balance}\n");
 
   my $saldo_old = ($form->{saldo_old} > 0) ? $form->format_amount(\%myconfig, $form->{saldo_old}, 2) . " H" : $form->format_amount(\%myconfig, abs($form->{saldo_old}) , 2) . " S";
 
   my $eb_string = ($form->{beginning_balance} > 0) ? $form->format_amount(\%myconfig, $form->{beginning_balance}, 2) . " H" : $form->format_amount(\%myconfig, abs($form->{beginning_balance}), 2) . " S";
-  print(STDERR "EB: $eb_string\n");
 
   my @options;
   if ($form->{department}) {
@@ -602,6 +600,10 @@ sub list_transactions {
 
     $ca->{ustrate} = $form->format_amount(\%myconfig, $ca->{ustrate} * 100, 2) if ($ca->{ustrate} != 0);
 
+    if ($ca->{memo} ne "") {
+      $ca->{description} .= "\n" . $ca->{memo};
+    }
+
     
 
     foreach my $gegenkonto (@{ $ca->{GEGENKONTO} }) {