X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/8c94b0eaaf4e1b3717f36a755d71d848abcb21a5..6cbeab9a2d7691fa8fb69faab3f21a662df8740f:/bin/mozilla/ca.pl

diff --git a/bin/mozilla/ca.pl b/bin/mozilla/ca.pl
index dc36b9766..4cbddde6d 100644
--- 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} }) {