X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/edb2023a832f426553a7d90342ebc56200f325f1..ca18e0478035f63:/bin/mozilla/rp.pl

diff --git a/bin/mozilla/rp.pl b/bin/mozilla/rp.pl
index bb87a77e3..87fae36ba 100644
--- a/bin/mozilla/rp.pl
+++ b/bin/mozilla/rp.pl
@@ -375,6 +375,24 @@ sub generate_income_statement {
       . qq| $longcomparetodate|;
   }
 
+  if ( $::instance_conf->get_profit_determination eq 'balance' ) {
+    $form->{income_statement_title} = $locale->text('Income Statement');
+  } elsif ( $::instance_conf->get_profit_determination eq 'income' ) {
+    $form->{income_statement_title} = $locale->text('Net Income Statement');
+  } else {
+    $form->{income_statement_title} = "";
+  };
+
+  if ( $form->{method} eq 'cash' ) {
+    $form->{accounting_method} = $locale->text('Cash accounting');
+  } elsif ( $form->{method} eq 'accrual' ) {
+    $form->{accounting_method} = $locale->text('Accrual accounting');
+  } else {
+    $form->{accounting_method} = "";
+  };
+
+  $::form->{report_date} = $locale->text('Report date') . ": " . $::form->current_date;
+
   $form->{IN} = "income_statement.html";
 
   $form->parse_template;