Adjusting 'Current Earnings' to only indent when appropriate

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1727 4979c152-3d1c-0410-bac9-87ea11338e46

2 files changed, 6 insertions, 9 deletions

diff --git a/bin/rp.pl b/bin/rp.pl
index 1cd178ad..b76c610f 100644
--- a/bin/rp.pl
+++ b/bin/rp.pl
@@ -824,6 +824,7 @@ qq|<input name=accno class=radio type=radio value="gifi_$ref->{accno}">&nbsp;$re
 
     }
 
+    $form->{login} = 'test';
     print qq|
 
 $gifi
@@ -1096,11 +1097,6 @@ sub generate_income_statement {
 sub generate_balance_sheet {
 
 	##SC: START HTML
-    $form->{padding} = "&nbsp;&nbsp;";
-    $form->{bold}    = "<b>";
-    $form->{endbold} = "</b>";
-    $form->{br}      = "<br>";
-
     RP->balance_sheet( \%myconfig, \%$form );
 
     $form->{asofdate} = $form->current_date( \%myconfig )
@@ -1111,10 +1107,11 @@ sub generate_balance_sheet {
     ( $form->{department} ) = split /--/, $form->{department};
 
     # define Current Earnings account
-    $padding = ( $form->{l_heading} ) ? $form->{padding} : "";
     push(
-        @{ $form->{equity_account} }, { current_earnings => 1,
-        text => $locale->text('Current Earnings')}
+        @{ $form->{equity_account} }, {
+            current_earnings => 1,
+            text => $locale->text('Current Earnings')
+            },
     );
 
     $form->{this_period} = $locale->date( \%myconfig, $form->{asofdate}, 0 );
diff --git a/templates/demo/balance_sheet.html b/templates/demo/balance_sheet.html
index 995fb5ab..e21fe7b3 100644
--- a/templates/demo/balance_sheet.html
+++ b/templates/demo/balance_sheet.html
@@ -46,7 +46,7 @@
 		account_data.text; ?></a><?lsmb
 	ELSIF account_data.subtotal; ?><b>&nbsp;&nbsp;<?lsmb
 		account_data.text; ?></b><?lsmb
-	ELSIF account_data.current_earnings; ?>&nbsp;&nbsp;<?lsmb
+	ELSIF account_data.current_earnings; IF l_heading ?>&nbsp;&nbsp;<?lsmb END;
 		account_data.text;
 	ELSE;
 		account_data;