Unverified Commit 3469d68d authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

hafas: include platform information

parent a8d16593

bin/hafas

+8 −4
Original line number Diff line number Diff line
@@ -320,16 +320,20 @@ for my $res ( @{ $hafas->{results} } ) { 
			printf( "${output_bold}%s${output_reset} → %s\n",

				$sec->name, $sec->direction );

			printf(

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

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

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

				format_delay( $sec->dep_delay ),

				$sec->dep_loc->name

				$sec->dep_loc->name,

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

				$sec->dep_platform // q{},

			);

			printf(

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

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

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

				format_delay( $sec->arr_delay ),

				$sec->arr_loc->name

				$sec->arr_loc->name,

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

				$sec->arr_platform // q{},

			);

		}

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