Teil-Fix für Bug 1673 : Drucken geht wieder ...

[kivitendo-erp.git] / bin / mozilla / ca.pl
diff --git a/bin/mozilla/ca.pl b/bin/mozilla/ca.pl

index a58ac1e..27070bb 100644 (file)
--- a/bin/mozilla/ca.pl
+++ b/bin/mozilla/ca.pl
@@ -84,7 +84,8 @@ sub chart_of_accounts {
  
    $form->{title} = $locale->text('Chart of Accounts');
  
-  if ($main::eur) {
+  if ( $::instance_conf->get_accounting_method eq 'cash' ) {
+    # $form->{method} can probably be made redundant now that we have get_accounting_method
      $form->{method} = "cash";
    }
  
@@ -106,6 +107,7 @@ sub chart_of_accounts {
                         'std_column_visibility' => 1,
      );
    $report->set_options_from_form();
+  $locale->set_numberformat_wo_thousands_separator(\%myconfig) if lc($report->{options}->{output_format}) eq 'csv';
  
    $report->set_columns(%column_defs);
    $report->set_column_order(@columns);
@@ -176,8 +178,8 @@ sub list {
            <td colspan=3><select name=department>$form->{selectdepartment}</select></td>
          </tr>
  | if $form->{selectdepartment};
-  my $accrual = ($main::eur) ? ""        : "checked";
-  my $cash    = ($main::eur) ? "checked" : "";
+  my $accrual =  $::instance_conf->get_accounting_method eq 'cash' ? ""        : "checked";
+  my $cash    =  $::instance_conf->get_accounting_method eq 'cash' ? "checked" : "";
  
    my $name_1    = "fromdate";
    my $id_1      = "fromdate";
@@ -245,6 +247,8 @@ sub list {
  
    $form->{description} =~ s/\"/&quot;/g;
  
+  my $eur =  $::instance_conf->get_accounting_method eq 'cash' ? 1 : 0;
+
    print qq|
  <body onLoad="$onload">
  
@@ -253,7 +257,7 @@ sub list {
  <input type=hidden name=accno value=$form->{accno}>
  <input type=hidden name=description value="$form->{description}">
  <input type=hidden name=sort value=transdate>
-<input type=hidden name=eur value=$main::eur>
+<input type=hidden name=eur value=$eur>
  <input type=hidden name=accounttype value=$form->{accounttype}>
  
  <table border=0 width=100%>
@@ -541,7 +545,7 @@ sub list_transactions {
      'ustrate'     => { 'text' => $locale->text('Satz %'), },
   );
  
-  my @hidden_variables = qw(accno fromdate todate description accounttype l_heading subtotal department projectnumber project_id sort);
+  my @hidden_variables = qw(accno fromdate todate description accounttype l_heading subtotal department projectnumber project_id sort method);
  
    my $link = build_std_url('action=list_transactions', grep { $form->{$_} } @hidden_variables);
  
@@ -593,6 +597,7 @@ sub list_transactions {
                         'std_column_visibility' => 1,
      );
    $report->set_options_from_form();
+  $locale->set_numberformat_wo_thousands_separator(\%myconfig) if lc($report->{options}->{output_format}) eq 'csv';
  
    $report->set_columns(%column_defs);
    $report->set_column_order(@columns);