From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Fri, 17 Feb 2006 08:59:31 +0000 (+0000)
Subject: Wenn die Datei .developper im Lx-Office-Installationsverzeichnis exisitert, dann... 
X-Git-Tag: release-2.4.0^2~330
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=666f9ee415d30f21ef1b14502556d406083a4397;p=kivitendo-erp.git

Wenn die Datei .developper im Lx-Office-Installationsverzeichnis exisitert, dann bei Ausgabe einer HTML-Vorlage ueberpruefen, ob die Master-Vorlage neuer ist und gegebenenfalls abbrechen. [r809 aus LINET prog-Repo]
---

diff --git a/SL/Form.pm b/SL/Form.pm
index 3c0e2e6bb..a77c302f8 100644
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -418,6 +418,17 @@ sub parse_html_template {
 
   if (-f "templates/webpages/${file}_" . $main::myconfig{"countrycode"} .
       ".html") {
+    if ((-f ".developper") &&
+        (-f "templates/webpages/${file}_master.html") &&
+        ((stat("templates/webpages/${file}_master.html"))[9] >
+         (stat("templates/webpages/${file}_" . $main::myconfig{"countrycode"} .
+               ".html"))[9])) {
+      my $info = "Developper information: templates/webpages/${file}_master.html is newer than the localized version.\n" .
+        "Please re-run 'locales.pl' in 'locale/" . $main::myconfig{"countrycode"} . "'.";
+      print(qq|<pre>$info</pre>|);
+      die($info);
+    }
+
     $file = "templates/webpages/${file}_" . $main::myconfig{"countrycode"} .
       ".html";
   } elsif (-f "templates/webpages/${file}.html") {