keep detailed mode when following links; show train attributes in detailed mode3.8.1

1 files changed, 4 insertions, 3 deletions

diff --git a/lib/DBInfoscreen/Controller/Wagenreihung.pm b/lib/DBInfoscreen/Controller/Wagenreihung.pm
index 36f486b..4707d03 100644
--- a/lib/DBInfoscreen/Controller/Wagenreihung.pm
+++ b/lib/DBInfoscreen/Controller/Wagenreihung.pm
@@ -27,8 +27,9 @@ sub zugbildung_db {
 	my @wagons;
 
 	for my $wagon ( @{ $details->{wagons} } ) {
-		my ( $wagon_type, $wagon_number ) = @{$wagon};
-		my %wagon = (
+		my $wagon_type   = $wagon->{type};
+		my $wagon_number = $wagon->{number};
+		my %wagon        = (
 			fahrzeugnummer      => "",
 			fahrzeugtyp         => $wagon_type,
 			kategorie           => $wagon_type =~ m{^[0-9.]+$} ? 'LOK' : '',
@@ -56,7 +57,7 @@ sub zugbildung_db {
 		$pos += 5;
 	}
 
-	my $train_type = $details->{raw};
+	my $train_type = $details->{rawType};
 	$train_type =~ s{ - .* }{}x;
 
 	my $route_start = $details->{route}{start} // $details->{route}{preStart};