+ $main::lxdebug->leave_sub();
+}
+
+sub format_debit_credit {
+ $main::lxdebug->enter_sub();
+
+ my $dc = shift;
+
+ my $form = $main::form;
+ my %myconfig = %main::myconfig;
+ my $locale = $main::locale;
+
+ my $formatted_dc = $form->format_amount(\%myconfig, abs($dc), 2) . ' ';
+ $formatted_dc .= ($dc > 0) ? $locale->text('Credit (one letter abbreviation)') : $locale->text('Debit (one letter abbreviation)');
+
+ $main::lxdebug->leave_sub();
+
+ return $formatted_dc;