From 7e92994838ae4c4548c2569f303340756793a0f4 Mon Sep 17 00:00:00 2001 From: Birte Kristina Friesel Date: Wed, 3 Apr 2024 18:50:36 +0200 Subject: Journey: Add operators accessor --- bin/hafas-m | 14 +++----------- 1 file changed, 3 insertions(+), 11 deletions(-) (limited to 'bin/hafas-m') diff --git a/bin/hafas-m b/bin/hafas-m index 4676c49..c32f747 100755 --- a/bin/hafas-m +++ b/bin/hafas-m @@ -439,18 +439,10 @@ elsif ( $opt{journey} ) { $delay_fmt = $delay_len + 3; } - if ( @prods == 1 ) { - if ( $prev_prod->operator ) { - printf( "Betrieb: %s\n", $prev_prod->operator ); - } - } - else { - printf( - "Betrieb: %s\n", - join( q{, }, - uniq map { $_->operator } grep { $_->operator } @prods ) - ); + if ( $result->operators ) { + printf( "Betrieb: %s\n", join( q{, }, $result->operators ) ); } + $prev_prod = 0; my $desc = Travel::Status::DE::HAFAS::get_service($service) // {}; -- cgit v1.2.3