Unverified Commit 4b8856ff authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

journey: check if nameS exists before concatenating it

parent 9b75f467

lib/Travel/Status/DE/HAFAS/Journey.pm

+1 −1
Original line number Diff line number Diff line
@@ -53,7 +53,7 @@ sub new { 
	my $train_no = $product->{prodCtx}{num};

	my $cat      = $product->{prodCtx}{catOut};

	my $catlong  = $product->{prodCtx}{catOutL};

	if ( $name and $cat and $name eq $cat ) {

	if ( $name and $cat and $name eq $cat and $product->{nameS} ) {

		$name .= ' ' . $product->{nameS};

	}

	if ( defined $train_no and not $train_no ) {