From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Tue, 26 Aug 2014 11:03:40 +0000 (+0200)
Subject: Form->prepare_for_printing: output_*-Variablen als Fallback auf %myconfig-Werte setzen
X-Git-Tag: release-3.2.0beta~340
X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/commitdiff_plain/43ad317e5e9677605c8475356b08eabe171661a3?ds=inline;hp=--cc

Form->prepare_for_printing: output_*-Variablen als Fallback auf %myconfig-Werte setzen

Wenn für eine Sprache kein Ausgabeformat für Datum und/oder Zahlen
festgelegt ist, so muss hier der Wert der angemeldeten Benutzerin
genommen werden, weil ansonsten die Werte falsch formatiert
werden. Außerdem kann es sein, dass die Vorlagen dann falsch rechnen,
wenn sie \numprint nutzen.

Behebt Formatierungsprobleme in wiederkehrenden Rechnungen, wenn der
Auftrag eine Sprache gewählt hat, in der die Ausgabeformate nicht
definiert sind.
---

43ad317e5e9677605c8475356b08eabe171661a3
diff --git a/SL/Form.pm b/SL/Form.pm
index a36ffd5df..a85902823 100644
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -3363,15 +3363,15 @@ sub prepare_for_printing {
   my ($language_tc, $output_numberformat, $output_dateformat, $output_longdates);
   if ($self->{language_id}) {
     ($language_tc, $output_numberformat, $output_dateformat, $output_longdates) = AM->get_language_details(\%::myconfig, $self, $self->{language_id});
-  } else {
-    $output_dateformat   = $::myconfig{dateformat};
-    $output_numberformat = $::myconfig{numberformat};
-    $output_longdates    = 1;
   }
 
-  $self->{myconfig_output_dateformat}   = $output_dateformat;
-  $self->{myconfig_output_longdates}    = $output_longdates;
-  $self->{myconfig_output_numberformat} = $output_numberformat;
+  $output_dateformat   ||= $::myconfig{dateformat};
+  $output_numberformat ||= $::myconfig{numberformat};
+  $output_longdates    //= 1;
+
+  $self->{myconfig_output_dateformat}   = $output_dateformat   // $::myconfig{dateformat};
+  $self->{myconfig_output_longdates}    = $output_longdates    // 1;
+  $self->{myconfig_output_numberformat} = $output_numberformat // $::myconfig{numberformat};
 
   # Retrieve accounts for tax calculation.
   IC->retrieve_accounts(\%::myconfig, $self, map { $_ => $self->{"id_$_"} } 1 .. $self->{rowcount});