===================================================================
RCS file: /cvs/pta/pta.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -p -r1.3 -r1.4
--- pta/pta.pl	2020/10/18 23:47:35	1.3
+++ pta/pta.pl	2020/10/20 09:23:24	1.4
@@ -40,6 +40,7 @@ my %atypes = (
 );
 
 my $translations = {
+    en => {},
     de => {
 	'Account list'		=> 'Kontenblatt',
 	'Assets'		=> 'Aktiva',
@@ -71,13 +72,13 @@ my $translations = {
 
 sub translate ($) {
 	my $en = shift;
-	return $translations ? $translations->{$en} : $en;
+	return $translations->{$en} || $en;
 }
 
 sub translate_type ($) {
 	my $type = shift;
-	my $en = $atypes{substr $type, 0, 1} || '?';
-	return translate $en || $type;
+	my $en = $atypes{substr $type, 0, 1};
+	return $en ? translate $en : $type;
 }
 
 # Handles account entries (not journal entries) with respect to
@@ -145,14 +146,8 @@ sub usage () {
 getopts 'abcL:nps' or usage;
 $opt_a = $opt_b = $opt_c = $opt_p = $opt_s = 1
     unless $opt_a || $opt_b || $opt_c || $opt_n || $opt_p || $opt_s;
-$opt_L ||= 'en';
-if ($opt_L eq 'de') {
-	$translations = $translations->{$opt_L};
-} elsif ($opt_L eq 'en') {
-	undef $opt_L;
-	undef $translations;
-} else {
-	printf STDERR "unsupported language %s\n", $opt_L;
+unless ($translations = $translations->{$opt_L || 'en'}) {
+	printf STDERR "unsupported language: -L %s\n", $opt_L;
 	usage;
 }