Unverified Commit 288f1a74 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

hafas -f: Show load at all intermediate stops

parent b49061d7

bin/hafas

+32 −33
Original line number Diff line number Diff line
@@ -354,34 +354,32 @@ for my $res ( $hafas->connections ) { 
				"${output_bold}%s${output_reset} → %s  %s\n",

				$sec->journey->name,

				$sec->journey->direction,

				display_occupancies( $sec->load )

			);

			printf(

				"%-5s %-${delay_fmt}s ab  %s%s%s\n",

				$sec->dep_cancelled

				? '--:--'

				: $sec->dep->strftime('%H:%M'),

				format_delay( $sec->dep_delay, $delay_len ),

				$sec->dep_loc->name,

				$sec->dep_platform ? q{: } : q{},

				$sec->dep_platform // q{},

				$show_full_route ? q{} : display_occupancies( $sec->load ),

			);

			if ($show_full_route) {

				for my $stop ( $sec->journey->route ) {

					if (    $stop->loc != $sec->dep_loc

						and $stop->loc != $sec->arr_loc )

					{

					printf(

							"%-5s %-${delay_fmt}s     %s%s%s\n",

						"%-5s %-${delay_fmt}s %s  %s%s%s\n",

						$stop->arr ? $stop->arr->strftime('%H:%M') : q{},

						format_delay( $stop->arr_delay, $delay_len ),

						display_occupancies( $stop->load ),

						$stop->loc->name,

						$stop->platform ? q{: } : q{},

						$stop->platform // q{},

					);

				}

			}

			}

			else {

				printf(

					"%-5s %-${delay_fmt}s ab  %s%s%s\n",

					$sec->dep_cancelled

					? '--:--'

					: $sec->dep->strftime('%H:%M'),

					format_delay( $sec->dep_delay, $delay_len ),

					$sec->dep_loc->name,

					$sec->dep_platform ? q{: } : q{},

					$sec->dep_platform // q{},

				);

				printf(

					"%-5s %-${delay_fmt}s an  %s%s%s\n",

					$sec->arr_cancelled
@@ -393,6 +391,7 @@ for my $res ( $hafas->connections ) { 
					$sec->arr_platform // q{},

				);

			}

		}

		elsif ( $sec->type eq 'WALK' ) {

			printf(

				"${output_bold}Walk %dm${output_reset}  (approx. %d minute%s)",