projekt kivitendo

# run locales.pl from this directory to rebuild the translation files

$self{texts} = {

  'AP'                          => 'Einkauf',

  'AP Aging'                    => 'Offene Verbindlichkeiten',

  'AP Transaction'              => 'Kreditorenbuchung',

  'Accrual'                     => 'Bilanzierung',

  'Active'                      => 'Aktiv',

  'Add'                         => 'Erfassen',

  'Add AP Transaction'          => 'Kreditorenbuchung',

  'Add AR Transaction'          => 'Debitorenbuchung',

  'Add Account'                 => 'Konto erfassen',

  'ELSTER-Steuernummer: '       => 'ELSTER-Steuernummer: ',

  'EUR'                         => 'E/?-Rechnung',

  'Edit'                        => 'Bearbeiten',

  'Edit Account'                => 'Kontodaten bearbeiten',

  'Edit Accounts Payables Transaction' => 'Kreditorenbuchung bearbeiten',

  'Edit Accounts Receivables Transaction' => 'Debitorenbuchung bearbeiten',

  'Edit Warehouse'              => 'Lager bearbeiten',

  'Employee'                    => 'Bearbeiter',

  'Enforce transaction reversal for all dates' => 'Gegenbuchungen f?r jeden Zeitraum aktualisieren',

  'Equity'                      => 'Passiva',

  'Exch'                        => 'Wechselkurs.',

  'Exchangerate'                => 'Wechselkurs',

  'Exchangerate Difference'     => 'Wechselkursunterschied',

  'N/A'                         => 'N.Z.',

  'Name'                        => 'Name',

  'Name missing!'               => 'Name fehlt!',

  'New Templates'               => 'neue Vorlagen',

  'No'                          => 'Nein',

  'No Database Drivers available!' => 'Kein Datenbanktreiber verf?gbar!',

  'number'                      => 'Nummer',

  'posted!'                     => 'gebucht',

  'quarter'                     => 'viertelj?hrliche (quartalsweise) Abgabe',

  'save'                        => 'speichern',

  'saved'                       => 'gespeichert',

  'saved!'                      => 'gespeichert',

  'Edit Template'               => 'Vorlage bearbeiten',

  'Edit Warehouse'              => 'Lager bearbeiten',

  'Enforce transaction reversal for all dates' => 'Gegenbuchungen f?r jeden Zeitraum aktualisieren',

  'Equity'                      => 'Passiva',

  'Expense'                     => 'Aufwandskonto',

  'Expense Account'             => 'Aufwandskonto',

$self{texts} = {

  'Abteilung'                   => 'Abteilung',

  'Account Number'              => 'Kontonummer',

  'Accounting Menu'             => 'Kontoverwaltung',

  'Vendors'                     => 'Lieferanten',

  'Zipcode'                     => 'PLZ',

  'days'                        => 'Tage',

};

$self{subs} = {

  'May '                        => 'Mai',

  'Mitarbeiter'                 => 'Mitarbeiter',

  'MwSt. inkl.'                 => 'MwSt. inkl.',

  'Notes'                       => 'Bemerkungen',

  'Nov'                         => 'Nov',

  'November'                    => 'November',

  'weiter'                      => 'continue',

  'l?schen'                     => 'delete',

  'dialogbuchung'               => 'gl_transaction',

  'buchen'                      => 'post',

  'neu_buchen'                  => 'post_as_new',

  'rechnung'                    => 'sales_invoice',

$self{texts} = {

  'Accounting Menu'             => 'Kontoverwaltung',

  'Active'                      => 'Aktiv',

  'Add'                         => 'Erfassen',

  'Add Assembly'                => 'Erzeugnis erfassen',

  'Add Part'                    => 'Ware erfassen',

  'Add Purchase Order'          => 'Lieferantenauftrag erfassen',

  'E-mail'                      => 'eMail',

  'E-mail address missing!'     => 'eMailadresse fehlt!',

  'E-mailed'                    => 'eMail gesendet.',

  'Edit Assembly'               => 'Erzeugnis bearbeiten',

  'Edit Part'                   => 'Ware bearbeiten',

  'Edit Service'                => 'Dienstleistung bearbeiten',

  'button'                      => '?',

  'choice'                      => 'ausw?hlen',

  'choice part'                 => 'Artikel ausw?hlen',

  'emailed to'                  => 'gemailt an',

  'hr'                          => 'Stunde',

  'list'                        => 'auflisten',

$self{texts} = {

  'Add Purchase Order'          => 'Lieferantenauftrag erfassen',

  'Add Quotation'               => 'Angebot erfassen',

  'Add Request for Quotation'   => 'Anfrage erfassen',

$self{texts} = {

  'Account'                     => 'Konto',

  'Accounting Menu'             => 'Kontoverwaltung',

  'Add Purchase Order'          => 'Lieferantenauftrag erfassen',

$self{texts} = {

  'Account'                     => 'Konto',

  'Accounting Menu'             => 'Kontoverwaltung',

  'Add Purchase Order'          => 'Lieferantenauftrag erfassen',

use FileHandle;

$menufile = "menu.ini";

foreach $item (@ARGV) {

  unshift @menufiles, $menufile;

}

# slurp the translations in

if (-f 'all') {

  require "all";

}

foreach $file (@progfiles) {

  %locale = ();

  %submit = ();

  &scanfile("$bindir/$file");

  # scan custom_{module}.pl or {login}_{module}.pl files

  foreach $customfile (@customfiles) {

    if ($customfile =~ /_$file/) {

      if (-f "$bindir/$customfile") {

      }

    }

  }

  # if this is the menu.pl file

  if ($file eq 'menu.pl') {

    foreach $item (@menufiles) {

  $file =~ s/\.pl//;

  eval { require 'missing'; };

  unlink 'missing';

  foreach $text (keys %$missing) {

    if ($locale{$text}) {

      unless ($self{texts}{$text}) {

      }

    }

  }

  open FH, ">$file" or die "$! : $file";

  print FH q|$self{texts} = {

    $keytext = $key;

    $keytext =~ s/'/\\'/g;

    $keytext =~ s/\\$/\\\\/;

  }

  print FH q|};

$self{subs} = {

|;

  foreach $key (sort keys %subrt) {

    $text = $key;

    $text =~ s/'/\\'/g;

    $text =~ s/\\$/\\\\/;

  }

  foreach $key (sort keys %submit) {

    $english_sub =~ s/'/\\'/g;

    $english_sub =~ s/\\$/\\\\/;

    $english_sub = lc $key;

    $translated_sub = lc $text;

    $translated_sub =~ s/( |-|,)/_/g;

  }

  print FH q|};

1;

  close FH;

}

# now print out all

open FH, ">all" or die "$! : all";

$self{texts} = {

|;

foreach $key (sort keys %alllocales) {

  $text = $self{texts}{$key};

  $count++;

  $text =~ s/'/\\'/g;

  $text =~ s/\\$/\\\\/;

  unless ($text) {

    $notext++;

    push @missing, $key;

  }

}

close FH;

if (@missing) {

  open FH, ">missing" or die "$! : missing";

|;

  foreach $text (@missing) {

  }

  print FH q|};

|;

  close FH;

}

open(FH, "LANGUAGE");

print "\n$trlanguage - ${per}%\n";

exit;

# eom

sub scanfile {

  my $file = shift;

  return unless (-f "$file");

  my $fh = new FileHandle;

  open $fh, "$file" or die "$! : $file";

  my ($is_submit, $line_no, $sub_line_no) = (0, 0, 0);

  while (<$fh>) {

    $line_no++;

    # is this another file

    if (/require\s+\W.*\.pl/) {

      my $newfile = $&;

      $newfile =~ s/\$form->{path}\///;

      &scanfile("$bindir/$newfile");

    }

    # is this a sub ?

    if (/^sub /) {

      ($null, $subrt) = split / +/;

      $subrt{$subrt} = 1;

      next;

    }

    my $rc = 1;

    while ($rc) {

      if (/Locale/) {

      }

      my $postmatch = "";

      # is it a submit button before $locale->

      if (/type\s*=\s*submit/i) {

        $postmatch = $';

        if ($` !~ /\$locale->text/) {

          $sub_line_no = $line_no;

        }

      }

      my $postmatch = $';

      if ($found) {

        # if there is no $ in the string record it

          # this one is for all the locales

          # is it a submit button before $locale->

          if ($is_submit) {

          }

      } elsif ($postmatch =~ />/) {

        $is_submit = 0;

      }

      # exit loop if there are no more locales on this line

      ($rc) = ($postmatch =~ /\$locale->text/);

      # strip text

      s/^.*?\$locale->text.*?\)//;

        $is_submit = 0;

      }

    }

}

sub scanmenu {

  my $file = shift;

  # strip []

  grep { s/(\[|\])//g } @a;

  foreach my $item (@a) {

    @b = split /--/, $item;

    foreach $string (@b) {

      chomp $string;

      $alllocales{$string} = 1;

    }

  }

$self{texts} = {

  'Accounting Menu'             => 'Kontoverwaltung',

  'Add'                         => 'Erfassen',

  'Add Exchangerate'            => 'Wechselkurs erfassen',

  'Description'                 => 'Beschreibung',

  'ELSTER Export nach Winston'  => 'ELSTER Export nach Winston',

  'ELSTER-Steuernummer: '       => 'ELSTER-Steuernummer: ',

  'Fax'                         => 'Fax',

  'Fax. : '                     => 'Fax. : ',

  'Fax.: '                      => 'Fax.: ',