Commit aa1a5ed5 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

show "section A"-based wagon order if heuristic is unavailable

parent 836cd8a3

lib/DBInfoscreen/Controller/Stationboard.pm

+7 −2
Original line number Diff line number Diff line
@@ -539,6 +539,9 @@ sub render_train { 
			if ($direction) {

				$departure->{direction} = $direction;

			}

			elsif ( $platform_info->{direction} ) {

				$departure->{direction} = 'a' . $platform_info->{direction};

			}



			return;

		},
@@ -678,7 +681,8 @@ sub render_train { 
				dt_now       => DateTime->now( time_zone => 'Europe/Berlin' ),

				station_name => $station_name,

				nav_link =>

				  $self->url_for( 'station', station => $station_name)->query({detailed => $self->param('detailed')}),

				  $self->url_for( 'station', station => $station_name )

				  ->query( { detailed => $self->param('detailed') } ),

			);

		}

	)->wait;
@@ -1237,7 +1241,8 @@ sub handle_result { 
				  or $template eq 'multi'

			),

			force_mobile => ( $template eq 'app' ),

			nav_link => $self->url_for( 'station', station => $station_name)->query({detailed => $self->param('detailed')}),

			nav_link => $self->url_for( 'station', station => $station_name )

			  ->query( { detailed => $self->param('detailed') } ),

		);

	}

	return;

lib/DBInfoscreen/Controller/Wagenreihung.pm

+19 −0
Original line number Diff line number Diff line
@@ -107,6 +107,25 @@ sub wagenreihung { 
				);

			}



			if ( $exit_side and $exit_side =~ m{^a} ) {

				if ( $wr->sections and defined $wr->direction ) {

					my $section_0 = ( $wr->sections )[0];

					my $direction = $wr->direction;

					if ( $section_0->name eq 'A' and $direction == 0 ) {

						$exit_side =~ s{^a}{};

					}

					elsif ( $section_0->name ne 'A' and $direction == 100 ) {

						$exit_side =~ s{^a}{};

					}

					else {

						$exit_side = ( $exit_side eq 'ar' ) ? 'l' : 'r';

					}

				}

				else {

					$exit_side = undef;

				}

			}



			my $wref = {

				e  => $exit_side ? substr( $exit_side, 0, 1 ) : '',

				tt => $wr->train_type,