Add train classes

1 files changed, 8 insertions, 2 deletions

diff --git a/bin/dbwagenreihung b/bin/dbwagenreihung
index 0c5b2fe..1d842fa 100644
--- a/bin/dbwagenreihung
+++ b/bin/dbwagenreihung
@@ -27,10 +27,16 @@ if (@trains != 1) {
 
 my $wr = Travel::Status::DE::DBWagenreihung->new(
 	departure => $trains[0]->sched_departure,
-	developer_mode => 1,
 	train_number => $train_number,
 );
 
 for my $wagon ($wr->wagons) {
-	printf("%s %s\n", $wagon->number, $wagon->section);
+	printf("%s %2s", $wagon->section, $wagon->number || 'X');
+	if ($wagon->class_type == 12) {
+		print(" 1/2");
+	}
+	elsif ($wagon->class_type) {
+		printf(" %d", $wagon->class_type);
+	}
+	print("\n");
 }