From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Mon, 7 Jan 2008 16:04:00 +0000 (+0000)
Subject: Warnungen ausgeben, wenn referenzierte HTML-Vorlagen nicht gefunden werden. Syntaxhig... 
X-Git-Tag: release-2.6.0beta1~376
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=8aa6cf77d6e3b37f2447b2d25dfc9605726a8b0d;p=kivitendo-erp.git

Warnungen ausgeben, wenn referenzierte HTML-Vorlagen nicht gefunden werden. Syntaxhighlightingerleichterung für Emacs.
---

diff --git a/locale/de/locales.pl b/locale/de/locales.pl
index 266823f7b..fefaead05 100755
--- a/locale/de/locales.pl
+++ b/locale/de/locales.pl
@@ -343,6 +343,8 @@ sub scanfile {
 #           &converthtmlfile($newfile);
            $cached{$file}{scanh}{$newfile} = 1;
           print "." if $arg{v};
+        } else {
+          print "W: missing HTML template: $newfile (referenced from $file)\n";
         }
       }
 
@@ -435,7 +437,7 @@ sub scanmenu {
   my $fh = new FileHandle;
   open $fh, "$file" or die "$! : $file";
 
-  my @a = grep /^\[/, <$fh>;
+  my @a = grep m/^\[/, <$fh>;
   close($fh);
 
   # strip []