Unverified Commit 245809db authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

Stop: Support v1 platform specifiers ([ad]Pltf[RS].txt)

parent 2bcfb54a

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

+4 −2
Original line number Diff line number Diff line
@@ -41,8 +41,10 @@ sub new { 


	# dIn. / aOut. -> may passengers enter / exit the train?



	my $sched_platform   = $stop->{aPlatfS}  // $stop->{dPlatfS};

	my $rt_platform      = $stop->{aPlatfR}  // $stop->{dPlatfR};

	my $sched_platform = $stop->{aPlatfS} // $stop->{dPlatfS}

	  // $stop->{aPltfS}{txt} // $stop->{dPltfS}{txt};

	my $rt_platform = $stop->{aPlatfR} // $stop->{dPlatfR}

	  // $stop->{aPltfR}{txt} // $stop->{dPltfR}{txt};

	my $changed_platform = $stop->{aPlatfCh} // $stop->{dPlatfCh};



	my $arr_cancelled = $stop->{aCncl};