| version 1.3, 2020/10/18 23:47:35 |
version 1.4, 2020/10/20 09:23:24 |
|
|
| ); |
); |
| |
|
| my $translations = { |
my $translations = { |
| |
en => {}, |
| de => { |
de => { |
| 'Account list' => 'Kontenblatt', |
'Account list' => 'Kontenblatt', |
| 'Assets' => 'Aktiva', |
'Assets' => 'Aktiva', |
| Line 71 my $translations = { |
|
| Line 72 my $translations = { |
|
| |
|
| sub translate ($) { |
sub translate ($) { |
| my $en = shift; |
my $en = shift; |
| return $translations ? $translations->{$en} : $en; |
return $translations->{$en} || $en; |
| } |
} |
| |
|
| sub translate_type ($) { |
sub translate_type ($) { |
| my $type = shift; |
my $type = shift; |
| my $en = $atypes{substr $type, 0, 1} || '?'; |
my $en = $atypes{substr $type, 0, 1}; |
| return translate $en || $type; |
return $en ? translate $en : $type; |
| } |
} |
| |
|
| # Handles account entries (not journal entries) with respect to |
# Handles account entries (not journal entries) with respect to |
|
|
| getopts 'abcL:nps' or usage; |
getopts 'abcL:nps' or usage; |
| $opt_a = $opt_b = $opt_c = $opt_p = $opt_s = 1 |
$opt_a = $opt_b = $opt_c = $opt_p = $opt_s = 1 |
| unless $opt_a || $opt_b || $opt_c || $opt_n || $opt_p || $opt_s; |
unless $opt_a || $opt_b || $opt_c || $opt_n || $opt_p || $opt_s; |
| $opt_L ||= 'en'; |
unless ($translations = $translations->{$opt_L || 'en'}) { |
| if ($opt_L eq 'de') { |
printf STDERR "unsupported language: -L %s\n", $opt_L; |
| $translations = $translations->{$opt_L}; |
|
| } elsif ($opt_L eq 'en') { |
|
| undef $opt_L; |
|
| undef $translations; |
|
| } else { |
|
| printf STDERR "unsupported language %s\n", $opt_L; |
|
| usage; |
usage; |
| } |
} |
| |
|
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to pta.pl CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [cvsweb.bsd.lv] / pta