Unverified Commit 1ee25e29 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

shorten 'walk' lines, arr/dep time and place are not relevant here

parent 668a0601

bin/hafas

+2 −13
Original line number Diff line number Diff line
@@ -287,19 +287,8 @@ for my $res ( @{ $hafas->{results} } ) { 
			);

		}

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

			printf(

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

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

				q{}, $sec->dep_loc->name

			);

			printf( "%10s%${have_delay}s Fußweg %dm (%02d:%02d)\n",

				q{}, q{}, $sec->distance,

				$sec->duration->in_units( 'hours', 'minutes' ) );

			printf(

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

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

				q{}, $sec->arr_loc->name

			);

			printf( "# Walk %dm  (approx. %d minutes)\n",

				$sec->distance, $sec->duration->in_units('minutes') );

		}

		else {

			printf("\n???\n");