Instanzen der Klasse Locale haben leider die package-globale Variable %self anstelle...
authorMoritz Bunkus <m.bunkus@linet-services.de>
Mon, 4 Dec 2006 16:57:56 +0000 (16:57 +0000)
committerMoritz Bunkus <m.bunkus@linet-services.de>
Mon, 4 Dec 2006 16:57:56 +0000 (16:57 +0000)
35 files changed:
SL/Form.pm
locale/de/Pg-upgrade-2.2.0.25-2.2.0.26
locale/de/Pg-upgrade-2.2.0.27-2.2.0.28
locale/de/Pg-upgrade-2.2.0.28-2.2.0.29
locale/de/admin
locale/de/all
locale/de/am
locale/de/ap
locale/de/ar
locale/de/arap
locale/de/bp
locale/de/ca
locale/de/cn
locale/de/common
locale/de/cp
locale/de/ct
locale/de/datev
locale/de/dn
locale/de/fa
locale/de/gl
locale/de/ic
locale/de/io
locale/de/ir
locale/de/is
locale/de/kopf
locale/de/licenses
locale/de/locales.pl
locale/de/login
locale/de/menu
locale/de/menunew
locale/de/oe
locale/de/pe
locale/de/rc
locale/de/rp
locale/de/ustva

index 3354a2f..3b683f4 100644 (file)
@@ -2300,10 +2300,14 @@ sub new {
   my ($type, $country, $NLS_file) = @_;
   my $self = {};
 
-  %self = ();
   if ($country && -d "locale/$country") {
+    local *IN;
     $self->{countrycode} = $country;
-    eval { require "locale/$country/$NLS_file"; };
+    if (open(IN, "locale/$country/$NLS_file")) {
+      my $code = join("", <IN>);
+      eval($code);
+      close(IN);
+    }
   }
 
   $self->{NLS_file} = $NLS_file;
@@ -2323,7 +2327,7 @@ sub new {
 sub text {
   my ($self, $text) = @_;
 
-  return (exists $self{texts}{$text}) ? $self{texts}{$text} : $text;
+  return (exists $self->{texts}{$text}) ? $self->{texts}{$text} : $text;
 }
 
 sub findsub {
@@ -2331,8 +2335,8 @@ sub findsub {
 
   my ($self, $text) = @_;
 
-  if (exists $self{subs}{$text}) {
-    $text = $self{subs}{$text};
+  if (exists $self->{subs}{$text}) {
+    $text = $self->{subs}{$text};
   } else {
     if ($self->{countrycode} && $self->{NLS_file}) {
       Form->error(
index 71899dc..1a79fbd 100644 (file)
@@ -1,4 +1,4 @@
-$self{texts} = {
+$self->{texts} = {
   'A unit with this name does already exist.' => 'Eine Einheit mit diesem Namen existiert bereits.',
   'Database update error:'      => 'Fehler beim Datenbankupgrade:',
   'The base unit does not exist.' => 'Die Basiseinheit existiert nicht.',
@@ -7,7 +7,7 @@ $self{texts} = {
   'The unit has been saved.'    => 'Die Einheit wurde gespeichert.',
 };
 
-$self{subs} = {
+$self->{subs} = {
   'mydberror'                   => 'mydberror',
   'myshowerror'                 => 'myshowerror',
   'update_units'                => 'update_units',
index 2b67823..39314f8 100644 (file)
@@ -1,8 +1,8 @@
-$self{texts} = {
+$self->{texts} = {
   'Database update error:'      => 'Fehler beim Datenbankupgrade:',
 };
 
-$self{subs} = {
+$self->{subs} = {
   'look_for_accno'              => 'look_for_accno',
   'mydberror'                   => 'mydberror',
   'myshowerror'                 => 'myshowerror',
index 0d2074d..5ac8898 100644 (file)
@@ -1,8 +1,8 @@
-$self{texts} = {
+$self->{texts} = {
   'Database update error:'      => 'Fehler beim Datenbankupgrade:',
 };
 
-$self{subs} = {
+$self->{subs} = {
   'create_standard_buchungsgruppen' => 'create_standard_buchungsgruppen',
   'create_standard_buchungsgruppen_skr03' => 'create_standard_buchungsgruppen_skr03',
   'create_standard_buchungsgruppen_skr04' => 'create_standard_buchungsgruppen_skr04',
index c8163f5..0ebbd17 100644 (file)
@@ -1,4 +1,4 @@
-$self{texts} = {
+$self->{texts} = {
   'Access Control'              => 'Zugriffkontrolle',
   'Add User'                    => 'Benutzer erfassen',
   'Address'                     => 'Adresse',
@@ -95,7 +95,7 @@ $self{texts} = {
   'website'                     => 'Webseite',
 };
 
-$self{subs} = {
+$self->{subs} = {
   'add_user'                    => 'add_user',
   'adminlogin'                  => 'adminlogin',
   'change_admin_password'       => 'change_admin_password',
index 7a8e8e1..230e05b 100644 (file)
@@ -3,7 +3,7 @@
 # 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} = {
   ' Date missing!'              => ' Datum fehlt!',
   ' Number'                     => ' Nummer',
   ' Part Number missing!'       => ' Artikelnummer fehlt!',
index 5512907..894bc0d 100644 (file)
@@ -1,4 +1,4 @@
-$self{texts} = {
+$self->{texts} = {
   '1000,00 or 1000.00'          => '1000,00 oder 1000.00',
   'A unit with this name does already exist.' => 'Eine Einheit mit diesem Namen existiert bereits.',
   'AP'                          => 'Einkauf',
@@ -251,7 +251,7 @@ $self{texts} = {
   'service units'               => 'Dienstleistungseinheiten',
 };
 
-$self{subs} = {
+$self->{subs} = {
   'acc_menu'                    => 'acc_menu',
   'account_header'              => 'account_header',
   'add'                         => 'add',
index 9390dbf..8d3bc63 100644 (file)
@@ -1,4 +1,4 @@
-$self{texts} = {
+$self->{texts} = {
   'AP Transaction'              => 'Kreditorenbuchung',
   'AP Transactions'             => 'Kreditorenbuchungen',
   'Account'                     => 'Konto',
@@ -97,7 +97,7 @@ $self{texts} = {
   'button'                      => '?',
 };
 
-$self{subs} = {
+$self->{subs} = {
   'acc_menu'                    => 'acc_menu',
   'add'                         => 'add',
   'add_transaction'             => 'add_transaction',
index f5fa45a..ad32f79 100644 (file)
@@ -1,4 +1,4 @@
-$self{texts} = {
+$self->{texts} = {
   'AR Transaction'              => 'Debitorenbuchung',
   'AR Transactions'             => 'Debitorenbuchungen',
   'Account'                     => 'Konto',
@@ -99,7 +99,7 @@ $self{texts} = {
   'button'                      => '?',
 };
 
-$self{subs} = {
+$self->{subs} = {
   'acc_menu'                    => 'acc_menu',
   'add'                         => 'add',
   'add_transaction'             => 'add_transaction',
index 7070ce1..af375c4 100644 (file)
@@ -1,4 +1,4 @@
-$self{texts} = {
+$self->{texts} = {
   'Address'                     => 'Adresse',
   'Continue'                    => 'Weiter',
   'Customer not on file!'       => 'Kunde ist nicht in der Datenbank!',
@@ -10,7 +10,7 @@ $self{texts} = {
   'Vendor not on file!'         => 'Lieferant ist nicht in der Datenbank!',
 };
 
-$self{subs} = {
+$self->{subs} = {
   'add_transaction'             => 'add_transaction',
   'ap_transaction'              => 'ap_transaction',
   'ar_transaction'              => 'ar_transaction',
index de4888f..ce21844 100644 (file)
@@ -1,4 +1,4 @@
-$self{texts} = {
+$self->{texts} = {
   'Account'                     => 'Konto',
   'Accounting Menu'             => 'Kontoverwaltung',
   'Are you sure you want to remove the marked entries from the queue?' => 'Sind Sie sicher, dass die markierten Einträge von der Warteschlange gelöscht werden sollen?',
@@ -39,7 +39,7 @@ $self{texts} = {
   'done'                        => 'erledigt',
 };
 
-$self{subs} = {
+$self->{subs} = {
   'acc_menu'                    => 'acc_menu',
   'continue'                    => 'continue',
   'display'                     => 'display',
index e0482e0..08ef37a 100644 (file)
@@ -1,4 +1,4 @@
-$self{texts} = {
+$self->{texts} = {
   'Account'                     => 'Konto',
   'Apr'                         => 'Apr',
   'April'                       => 'April',
@@ -41,7 +41,7 @@ $self{texts} = {
   'To'                          => 'An',
 };
 
-$self{subs} = {
+$self->{subs} = {
   'ca_subtotal'                 => 'ca_subtotal',
   'chart_of_accounts'           => 'chart_of_accounts',
   'list'                        => 'list',
index ceb2b2c..9470f5b 100644 (file)
@@ -1,4 +1,4 @@
-$self{texts} = {
+$self->{texts} = {
   ' Date missing!'              => ' Datum fehlt!',
   '*/'                          => '*/',
   'Account'                     => 'Konto',
@@ -183,7 +183,7 @@ $self{texts} = {
   'sent to printer'             => 'an Drucker geschickt',
 };
 
-$self{subs} = {
+$self->{subs} = {
   'acc_menu'                    => 'acc_menu',
   'add'                         => 'add',
   'add_transaction'             => 'add_transaction',
index f485084..075f999 100644 (file)
@@ -1,4 +1,4 @@
-$self{texts} = {
+$self->{texts} = {
   'Address'                     => 'Adresse',
   'Customer Number'             => 'Kundennummer',
   'Enter longdescription'       => 'Langtext eingeben',
@@ -22,7 +22,7 @@ $self{texts} = {
   'Variable'                    => 'Variable',
 };
 
-$self{subs} = {
+$self->{subs} = {
   'calculate_qty'               => 'calculate_qty',
   'delivery_customer_selection' => 'delivery_customer_selection',
   'employee_selection_internal' => 'employee_selection_internal',
index 12c8460..9ad4d04 100644 (file)
@@ -1,4 +1,4 @@
-$self{texts} = {
+$self->{texts} = {
   'AP'                          => 'Einkauf',
   'AR'                          => 'Verkauf',
   'Account'                     => 'Konto',
@@ -49,7 +49,7 @@ $self{texts} = {
   'button'                      => '?',
 };
 
-$self{subs} = {
+$self->{subs} = {
   'acc_menu'                    => 'acc_menu',
   'add_transaction'             => 'add_transaction',
   'ap_transaction'              => 'ap_transaction',
index a840ec8..b6909c9 100644 (file)
@@ -1,4 +1,4 @@
-$self{texts} = {
+$self->{texts} = {
   ' Number'                     => ' Nummer',
   'Abteilung'                   => 'Abteilung',
   'Account Number'              => 'Kontonummer',
@@ -112,7 +112,7 @@ $self{texts} = {
   's'                           => 's',
 };
 
-$self{subs} = {
+$self->{subs} = {
   'acc_menu'                    => 'acc_menu',
   'add'                         => 'add',
   'add_transaction'             => 'add_transaction',
index c701b97..699f5b3 100644 (file)
@@ -1,4 +1,4 @@
-$self{texts} = {
+$self->{texts} = {
   'Abrechnungsnummer'           => 'Abrechnungsnummer',
   'April'                       => 'April',
   'August'                      => 'August',
@@ -40,7 +40,7 @@ $self{texts} = {
   'bis'                         => 'bis',
 };
 
-$self{subs} = {
+$self->{subs} = {
   'continue'                    => 'continue',
   'export'                      => 'export',
   'export2'                     => 'export2',
index 3f6be92..96738b8 100644 (file)
@@ -1,4 +1,4 @@
-$self{texts} = {
+$self->{texts} = {
   ' Date missing!'              => ' Datum fehlt!',
   '*/'                          => '*/',
   'Accounting Menu'             => 'Kontoverwaltung',
@@ -174,7 +174,7 @@ gestartet',
   'sent to printer'             => 'an Drucker geschickt',
 };
 
-$self{subs} = {
+$self->{subs} = {
   'acc_menu'                    => 'acc_menu',
   'add'                         => 'add',
   'add_transaction'             => 'add_transaction',
index 203a8ca..da41eda 100644 (file)
@@ -1,4 +1,4 @@
-$self{texts} = {
+$self->{texts} = {
   'Address'                     => 'Adresse',
   'Angaben zum Finanzamt'       => 'Angaben zum Finanzamt',
   'Bankleitzahl (BLZ)'          => 'Bankleitzahl (BLZ)',
@@ -46,7 +46,7 @@ $self{texts} = {
   'Öffnungszeiten'              => 'Öffnungszeiten',
 };
 
-$self{subs} = {
+$self->{subs} = {
   'add_transaction'             => 'add_transaction',
   'ap_transaction'              => 'ap_transaction',
   'ar_transaction'              => 'ar_transaction',
index 1198536..77567e9 100644 (file)
@@ -1,4 +1,4 @@
-$self{texts} = {
+$self->{texts} = {
   'AP Transaction'              => 'Kreditorenbuchung',
   'AR Transaction'              => 'Debitorenbuchung',
   'Account'                     => 'Konto',
@@ -100,7 +100,7 @@ $self{texts} = {
   'button'                      => '?',
 };
 
-$self{subs} = {
+$self->{subs} = {
   'acc_menu'                    => 'acc_menu',
   'add'                         => 'add',
   'add_transaction'             => 'add_transaction',
index e971f07..a5d26cd 100644 (file)
@@ -1,4 +1,4 @@
-$self{texts} = {
+$self->{texts} = {
   ' Date missing!'              => ' Datum fehlt!',
   ' Part Number missing!'       => ' Artikelnummer fehlt!',
   '*/'                          => '*/',
@@ -222,7 +222,7 @@ aktualisieren wollen?',
   'soldtotal'                   => 'Verkaufte Anzahl',
 };
 
-$self{subs} = {
+$self->{subs} = {
   'acc_menu'                    => 'acc_menu',
   'add'                         => 'add',
   'addtop100'                   => 'addtop100',
index bd29e21..35a95f7 100644 (file)
@@ -1,4 +1,4 @@
-$self{texts} = {
+$self->{texts} = {
   ' Date missing!'              => ' Datum fehlt!',
   '*/'                          => '*/',
   'Add Purchase Order'          => 'Lieferantenauftrag erfassen',
@@ -117,7 +117,7 @@ $self{texts} = {
   'sent to printer'             => 'an Drucker geschickt',
 };
 
-$self{subs} = {
+$self->{subs} = {
   'check_form'                  => 'check_form',
   'customer_details'            => 'customer_details',
   'display_form'                => 'display_form',
index ddd41d4..e13808a 100644 (file)
@@ -1,4 +1,4 @@
-$self{texts} = {
+$self->{texts} = {
   ' Date missing!'              => ' Datum fehlt!',
   ' Payment posted!'            => 'Zahlung gebucht!',
   '*/'                          => '*/',
@@ -173,7 +173,7 @@ $self{texts} = {
   'sent to printer'             => 'an Drucker geschickt',
 };
 
-$self{subs} = {
+$self->{subs} = {
   'acc_menu'                    => 'acc_menu',
   'add'                         => 'add',
   'add_transaction'             => 'add_transaction',
index 7d331e2..00d832e 100644 (file)
@@ -1,4 +1,4 @@
-$self{texts} = {
+$self->{texts} = {
   ' Date missing!'              => ' Datum fehlt!',
   ' Payment posted!'            => 'Zahlung gebucht!',
   '*/'                          => '*/',
@@ -198,7 +198,7 @@ $self{texts} = {
   'sent to printer'             => 'an Drucker geschickt',
 };
 
-$self{subs} = {
+$self->{subs} = {
   'acc_menu'                    => 'acc_menu',
   'add'                         => 'add',
   'add_transaction'             => 'add_transaction',
index 894334b..41715d9 100644 (file)
@@ -1,8 +1,8 @@
-$self{texts} = {
+$self->{texts} = {
   'Logout'                      => 'Abmeldung',
 };
 
-$self{subs} = {
+$self->{subs} = {
 };
 
 1;
index 95189e2..17ce5ee 100644 (file)
@@ -1,4 +1,4 @@
-$self{texts} = {
+$self->{texts} = {
   'Add'                         => 'Erfassen',
   'Add License'                 => 'Lizenz erfassen',
   'All'                         => 'Alle',
@@ -32,7 +32,7 @@ $self{texts} = {
   'Zipcode'                     => 'PLZ',
 };
 
-$self{subs} = {
+$self->{subs} = {
   'add'                         => 'add',
   'continue'                    => 'continue',
   'details'                     => 'details',
index 36d0e47..7a73120 100755 (executable)
@@ -99,20 +99,20 @@ sub handle_file {
 
   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};
       }
     }
   }
 
   open FH, ">$file" or die "$! : $file";
 
-  print FH q|$self{texts} = {
+  print FH q|$self->{texts} = {
 |;
 
   foreach $key (sort keys %locale) {
-    if ($self{texts}{$key}) {
-      $text = $self{texts}{$key};
+    if ($self->{texts}{$key}) {
+      $text = $self->{texts}{$key};
     } else {
       $text = $key;
     }
@@ -130,7 +130,7 @@ sub handle_file {
 
   print FH q|};
 
-$self{subs} = {
+$self->{subs} = {
 |;
 
   foreach $key (sort keys %subrt) {
@@ -141,7 +141,7 @@ $self{subs} = {
   }
 
   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/\\$/\\\\/;
 
@@ -180,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
 
-$self{texts} = {
+$self->{texts} = {
 |;
 
 foreach $key (sort keys %alllocales) {
-  $text = $self{texts}{$key};
+  $text = $self->{texts}{$key};
 
   $count++;
 
@@ -551,7 +551,7 @@ sub converthtmlfile {
           $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 = "";
 
index 53a5955..4eb2c79 100644 (file)
@@ -1,4 +1,4 @@
-$self{texts} = {
+$self->{texts} = {
   'About'                       => 'über',
   'Database Host'               => 'Datenbankcomputer',
   'Dataset'                     => 'Datenbank',
@@ -15,7 +15,7 @@ $self{texts} = {
   'localhost'                   => 'lokaler Rechner',
 };
 
-$self{subs} = {
+$self->{subs} = {
   'company_logo'                => 'company_logo',
   'login'                       => 'login',
   'login_screen'                => 'login_screen',
index 0132e32..4f164a8 100644 (file)
@@ -1,4 +1,4 @@
-$self{texts} = {
+$self->{texts} = {
   'AP'                          => 'Einkauf',
   'AP Aging'                    => 'Offene Verbindlichkeiten',
   'AR'                          => 'Verkauf',
@@ -120,7 +120,7 @@ $self{texts} = {
   'Version'                     => 'Version',
 };
 
-$self{subs} = {
+$self->{subs} = {
   'acc_menu'                    => 'acc_menu',
   'display'                     => 'display',
   'section_menu'                => 'section_menu',
index fb2a344..b31368f 100644 (file)
@@ -1,4 +1,4 @@
-$self{texts} = {
+$self->{texts} = {
   'AP'                          => 'Einkauf',
   'AP Aging'                    => 'Offene Verbindlichkeiten',
   'AR'                          => 'Verkauf',
@@ -119,7 +119,7 @@ $self{texts} = {
   'Version'                     => 'Version',
 };
 
-$self{subs} = {
+$self->{subs} = {
   'acc_menu'                    => 'acc_menu',
   'clock_line'                  => 'clock_line',
   'display'                     => 'display',
index 3139fc9..124ad05 100644 (file)
@@ -1,4 +1,4 @@
-$self{texts} = {
+$self->{texts} = {
   ' Date missing!'              => ' Datum fehlt!',
   ' missing!'                   => ' fehlt!',
   '*/'                          => '*/',
@@ -236,7 +236,7 @@ $self{texts} = {
   'sent to printer'             => 'an Drucker geschickt',
 };
 
-$self{subs} = {
+$self->{subs} = {
   'acc_menu'                    => 'acc_menu',
   'add'                         => 'add',
   'add_transaction'             => 'add_transaction',
index d1544d1..8728d9e 100644 (file)
@@ -1,4 +1,4 @@
-$self{texts} = {
+$self->{texts} = {
   'Accounting Menu'             => 'Kontoverwaltung',
   'Add'                         => 'Erfassen',
   'Add Group'                   => 'Warengruppe erfassen',
@@ -31,7 +31,7 @@ $self{texts} = {
   'Save'                        => 'Speichern',
 };
 
-$self{subs} = {
+$self->{subs} = {
   'acc_menu'                    => 'acc_menu',
   'add'                         => 'add',
   'continue'                    => 'continue',
index 1f6f659..9aa0a61 100644 (file)
@@ -1,4 +1,4 @@
-$self{texts} = {
+$self->{texts} = {
   'Account'                     => 'Konto',
   'Accounting Menu'             => 'Kontoverwaltung',
   'Balance'                     => 'Bilanz',
@@ -23,7 +23,7 @@ $self{texts} = {
   'Update'                      => 'Erneuern',
 };
 
-$self{subs} = {
+$self->{subs} = {
   'acc_menu'                    => 'acc_menu',
   'continue'                    => 'continue',
   'display'                     => 'display',
index 4eb07d9..9030222 100644 (file)
@@ -1,4 +1,4 @@
-$self{texts} = {
+$self->{texts} = {
   'AP Aging'                    => 'Offene Verbindlichkeiten',
   'AR Aging'                    => 'Offene Forderungen',
   'Account'                     => 'Konto',
@@ -122,7 +122,7 @@ $self{texts} = {
   'winston_export'              => 'Winston-Export',
 };
 
-$self{subs} = {
+$self->{subs} = {
   'acc_menu'                    => 'acc_menu',
   'add_transaction'             => 'add_transaction',
   'aging'                       => 'aging',
index ea3bfb8..dff6c30 100644 (file)
@@ -1,4 +1,4 @@
-$self{texts} = {
+$self->{texts} = {
   '1. Quarter'                  => '1. Quartal',
   '2. Quarter'                  => '2. Quartal',
   '3. Quarter'                  => '3. Quartal',
@@ -116,7 +116,7 @@ $self{texts} = {
   'Öffnungszeiten'              => 'Öffnungszeiten',
 };
 
-$self{subs} = {
+$self->{subs} = {
   'add_transaction'             => 'add_transaction',
   'ap_transaction'              => 'ap_transaction',
   'ar_transaction'              => 'ar_transaction',