From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Mon, 27 Nov 2006 15:34:29 +0000 (+0000)
Subject: Scanne auch das Verzeichnis sql/Pg-upgrade nach Perl-Scripten und parse diese nach... 
X-Git-Tag: release-2.4.0^2~158
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=7c73b81235f45b9e6c80740fcfa09f6f0dac7285;p=kivitendo-erp.git

Scanne auch das Verzeichnis sql/Pg-upgrade nach Perl-Scripten und parse diese nach der Verwendung von $locale->text(). Die Uebersetzungen werden nicht in einer Datei gespeichert, die wie das Perlscript heisst, sondern fuer alle Datenbankupgradescripte in der Datei "dbupgrade". In einem Upgrade-Script kann eine neue Instanz von Locale erstellt werden: my $dbup_locale = Locale->new($main::language, "dbupgrade");
---

diff --git a/locale/de/locales.pl b/locale/de/locales.pl
index 4e67bd32e..24adc4b62 100755
--- a/locale/de/locales.pl
+++ b/locale/de/locales.pl
@@ -14,6 +14,7 @@ $| = 1;
 
 $basedir  = "../..";
 $bindir   = "$basedir/bin/mozilla";
+$dbupdir  = "$basedir/sql/Pg-upgrade";
 $menufile = "menu.ini";
 $submitsearch = qr/type\s*=\s*[\"\']?submit/i;
 
@@ -40,6 +41,10 @@ if ($arg{n}) {
   unshift @menufiles, $menufile;
 }
 
+opendir DIR, $dbupdir or die "$!";
+@dbplfiles = grep { /\.pl$/ } readdir DIR;
+closedir DIR;
+
 # slurp the translations in
 if (-f 'all') {
   require "all";
@@ -52,20 +57,23 @@ if (-f 'all') {
 #  scanhtmlfile($file);
 #}
 
-foreach $file (@progfiles) {
+map({ handle_file($_, $bindir); } @progfiles);
+map({ handle_file($_, $dbupdir); } @dbplfiles);
 
+sub handle_file {
+  my ($file, $dir) = @_;
   print "\n$file" if $arg{v};
   %locale = ();
   %submit = ();
   %subrt  = ();
 
-  &scanfile("$bindir/$file");
+  &scanfile("$dir/$file");
 
   # scan custom_{module}.pl or {login}_{module}.pl files
   foreach $customfile (@customfiles) {
     if ($customfile =~ /_$file/) {
-      if (-f "$bindir/$customfile") {
-        &scanfile("$bindir/$customfile");
+      if (-f "$dir/$customfile") {
+        &scanfile("$dir/$customfile");
       }
     }
   }
@@ -97,7 +105,8 @@ foreach $file (@progfiles) {
     }
   }
 
-  open FH, ">$file" or die "$! : $file";
+  my $localefile = $dir eq $bindir ? $file : "dbupgrade";
+  open FH, ">$localefile" or die "$! : $localefile";
 
   print FH q|$self{texts} = {
 |;