projects
/
kivitendo-erp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Locales fuer Upgrade-Script
[kivitendo-erp.git]
/
locale
/
de
/
locales.pl
diff --git
a/locale/de/locales.pl
b/locale/de/locales.pl
index
119dfe9
..
7a73120
100755
(executable)
--- a/
locale/de/locales.pl
+++ b/
locale/de/locales.pl
@@
-99,21
+99,20
@@
sub handle_file {
foreach $text (keys %$missing) {
if ($locale{$text} || $htmllocale{$text}) {
foreach $text (keys %$missing) {
if ($locale{$text} || $htmllocale{$text}) {
- unless ($self{texts}{$text}) {
- $self{texts}{$text} = $missing->{$text};
+ unless ($self
->
{texts}{$text}) {
+ $self
->
{texts}{$text} = $missing->{$text};
}
}
}
}
}
}
- my $localefile = $dir eq $bindir ? $file : "dbupgrade";
- open FH, ">$localefile" or die "$! : $localefile";
+ open FH, ">$file" or die "$! : $file";
- print FH q|$self{texts} = {
+ print FH q|$self
->
{texts} = {
|;
foreach $key (sort keys %locale) {
|;
foreach $key (sort keys %locale) {
- if ($self{texts}{$key}) {
- $text = $self{texts}{$key};
+ if ($self
->
{texts}{$key}) {
+ $text = $self
->
{texts}{$key};
} else {
$text = $key;
}
} else {
$text = $key;
}
@@
-131,7
+130,7
@@
sub handle_file {
print FH q|};
print FH q|};
-$self{subs} = {
+$self
->
{subs} = {
|;
foreach $key (sort keys %subrt) {
|;
foreach $key (sort keys %subrt) {
@@
-142,7
+141,7
@@
$self{subs} = {
}
foreach $key (sort keys %submit) {
}
foreach $key (sort keys %submit) {
- $text = ($self
{texts}{$key}) ? $self
{texts}{$key} : $key;
+ $text = ($self
->{texts}{$key}) ? $self->
{texts}{$key} : $key;
$text =~ s/'/\\'/g;
$text =~ s/\\$/\\\\/;
$text =~ s/'/\\'/g;
$text =~ s/\\$/\\\\/;
@@
-181,11
+180,11
@@
print FH q|# These are all the texts to build the translations files.
# you can add the translation in this file or in the 'missing' file
# run locales.pl from this directory to rebuild the translation files
# you can add the translation in this file or in the 'missing' file
# run locales.pl from this directory to rebuild the translation files
-$self{texts} = {
+$self
->
{texts} = {
|;
foreach $key (sort keys %alllocales) {
|;
foreach $key (sort keys %alllocales) {
- $text = $self{texts}{$key};
+ $text = $self
->
{texts}{$key};
$count++;
$count++;
@@
-552,7
+551,7
@@
sub converthtmlfile {
$copying = 0;
$alllocales{$text} = 1;
$htmllocale{$text} = 1;
$copying = 0;
$alllocales{$text} = 1;
$htmllocale{$text} = 1;
- print(OUT $self{"texts"}{$text} || $text);
+ print(OUT $self
->
{"texts"}{$text} || $text);
print(OUT "\n") if ("" eq $line);
$text = "";
print(OUT "\n") if ("" eq $line);
$text = "";