X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/30a70ccf6975394a86d2ff036fe1d0fb34fcda04..6277aefffea29c8aa6f684bd86c55cdc6366f32f:/bin/mozilla/ca.pl diff --git a/bin/mozilla/ca.pl b/bin/mozilla/ca.pl index 45c8cc755..e499abe70 100644 --- a/bin/mozilla/ca.pl +++ b/bin/mozilla/ca.pl @@ -413,13 +413,12 @@ sub list_transactions { # construct link to source $href = "{module}.pl?path=$form->{path}&action=edit&id=$ca->{id}&login=$form->{login}&password=$form->{password}&callback=$callback>$ca->{reference}"; - + my $debit = ($ca->{debit} != 0) ? $form->format_amount(\%myconfig, $ca->{debit}, 2, " ") : " "; $column_data{debit} = - "" - . $form->format_amount(\%myconfig, $ca->{debit}, 2, " ") . ""; + "$debit"; + my $credit = ($ca->{credit} != 0) ? $form->format_amount(\%myconfig, $ca->{credit}, 2, " ") : " "; $column_data{credit} = - "" - . $form->format_amount(\%myconfig, $ca->{credit}, 2, " ") . ""; + "$credit"; $form->{balance} += $ca->{amount}; $column_data{balance} =