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

hafas-m: fix -m help

parent 8b8dfe56

bin/hafas-m

+6 −3
Original line number Diff line number Diff line
@@ -89,9 +89,12 @@ sub parse_mot_options { 


	for my $type ( split( qr{,}, $types ) ) {

		if ( $type eq 'help' or $type eq 'list' or $type eq '?' ) {

			my $desc = Travel::Status::DE::HAFAS::get_service($service);

			if ($desc) {

				my @mots = @{ $desc->{productbits} };

			if ( not $hafas_url ) {

				$service //= 'DB';

			}

			my %desc = Travel::Status::DE::HAFAS::get_service($service);

			if (%desc) {

				my @mots = @{ $desc{productbits} };

				@mots = grep { $_ ne 'x' } @mots;

				@mots = uniq @mots;

				@mots = sort @mots;