i18n for map and wagon order

2 files changed, 23 insertions, 3 deletions

diff --git a/lib/DBInfoscreen/Controller/Wagenreihung.pm b/lib/DBInfoscreen/Controller/Wagenreihung.pm
index 5d48705..3287d85 100644
--- a/lib/DBInfoscreen/Controller/Wagenreihung.pm
+++ b/lib/DBInfoscreen/Controller/Wagenreihung.pm
@@ -333,15 +333,15 @@ sub wagen {
 		);
 	}
 
-	my $title = "Wagen $wagon_id";
+	my $title = $self->l('Wagen ') . $wagon_id;
 
 	if ( $wref->{tt} and $wref->{tn} ) {
 		$title = sprintf( '%s %s', $wref->{tt}, $wref->{tn} );
 		if ($wagon_no) {
-			$title .= " Wagen $wagon_no";
+			$title .= ' ' . $self->l('Wagen ') . $wagon_no;
 		}
 		else {
-			$title .= " Wagen $wagon_id";
+			$title .= ' ' . $self->l('Wagen ') . $wagon_id;
 		}
 	}
 
diff --git a/lib/DBInfoscreen/I18N/en.pm b/lib/DBInfoscreen/I18N/en.pm
index d009b12..20c4440 100644
--- a/lib/DBInfoscreen/I18N/en.pm
+++ b/lib/DBInfoscreen/I18N/en.pm
@@ -45,11 +45,31 @@ our %Lexicon = (
 	'Hohe Auslastung' => 'High occupancy',
 	'Sehr hohe Auslastung' => 'Very high occupancy',
 	'Zug ist ausgebucht' => 'Fully booked',
+	'Geringe Auslastung erwartet' => 'Low occupancy expected',
+	'Hohe Auslastung erwartet' => 'High occupancy expected',
+	'Sehr hohe Auslastung erwartet' => 'Very high occupancy expected',
 	'Meldungen' => 'Messages',
 	'Fahrtverlauf' => 'Route',
 	'Betrieb' => 'Operator',
 	'Karte' => 'Map',
 	'Wagen' => 'Composition',
+# wagon order
+	'Nach' => 'To',
+	'in Abschnitt' => 'in sections',
+	'Wagen ' => 'carriage ',
+# map
+	'Fahrt' => 'Trip',
+	'von' => 'from',
+	'nach' => 'to',
+	'Nächster Halt:' => 'Next stop:',
+	'um' => 'at',
+	'auf Gleis' => 'on platform',
+	'Aufenthalt in' => 'Stopped in',
+	'an Gleis' => 'on platform',
+	'bis' => 'until',
+	'Abfahrt in' => 'Departs',
+	'von Gleis' => 'from platform',
+	'Endstation erreicht um' => 'Terminus reached at',
 );
 
 1;