Unverified Commit 4d044fb9 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

Fix connection display for Travel::Status::DE::HAFAS 5.x

parent 65f35488

lib/Travelynx/Controller/Traveling.pm

+9 −9
Original line number Diff line number Diff line
@@ -307,14 +307,14 @@ sub get_connecting_trains_p { 
								$iris_train->[3] = $hafas_train->load;

							}

							for my $stop ( $hafas_train->route ) {

								if (    $stop->{name}

									and $stop->{name} eq

								if (    $stop->loc->name

									and $stop->loc->name eq

									$iris_train->[1]->{name}

									and $stop->{arr} )

									and $stop->arr )

								{

									$iris_train->[2] = $stop->{arr};

									$iris_train->[2] = $stop->arr;

									if ( $iris_train->[0]->departure_delay

										and not $stop->{arr_delay} )

										and not $stop->arr_delay )

									{

										$iris_train->[2]

										  ->add( minutes => $iris_train->[0]
@@ -338,16 +338,16 @@ sub get_connecting_trains_p { 
					}

					for my $stop ( $hafas_train->route ) {

						for my $dest (@destinations) {

							if (    $stop->{name}

								and $stop->{name} eq $dest->{name}

							if (    $stop->loc->name

								and $stop->loc->name eq $dest->{name}

								and $via_count{ $dest->{name} } < 2

								and $hafas_train->datetime )

							{

								my $departure = $hafas_train->datetime;

								my $arrival   = $stop->{arr};

								my $arrival   = $stop->arr;

								my $delay     = $hafas_train->delay;

								if (    $delay

									and $stop->{arr} == $stop->{sched_arr} )

									and $stop->arr == $stop->sched_arr )

								{

									$arrival->add( minutes => $delay );

								}