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

result: strip leading - from train_id

parent 7272bae6

lib/Travel/Status/DE/IRIS/Result.pm

+3 −0
Original line number Diff line number Diff line
@@ -35,6 +35,8 @@ sub new { 


	my ( $train_id, $start_ts, $stop_no ) = split( /.\K-/, $opt{raw_id} );



	$train_id =~ s{^-}{};



	$ref->{start} = $strp->parse_datetime($start_ts);



	$ref->{train_id} = $train_id;
@@ -42,6 +44,7 @@ sub new { 


	if ( $opt{transfer} ) {

		my ($transfer) = split( /.\K-/, $opt{transfer} );

		$transfer =~ s{^-}{};

		$ref->{transfer} = $transfer;

	}