summaryrefslogtreecommitdiff
path: root/lib/Travel/Status
diff options
context:
space:
mode:
authorBirte Kristina Friesel <derf@finalrewind.org>2025-06-23 20:56:07 +0200
committerBirte Kristina Friesel <derf@finalrewind.org>2025-06-23 20:56:07 +0200
commit245809db1adb5a3d9e8c0262f7fc0fd00d12affe (patch)
tree25bebc210c3616347b2d1b6f0008a580cc0ab548 /lib/Travel/Status
parent2bcfb54ace092b7d17fb76cdc6134dbf1d6da80e (diff)
Stop: Support v1 platform specifiers ([ad]Pltf[RS].txt)HEADmain
Diffstat (limited to 'lib/Travel/Status')
-rw-r--r--lib/Travel/Status/DE/HAFAS/Stop.pm6
1 files changed, 4 insertions, 2 deletions
diff --git a/lib/Travel/Status/DE/HAFAS/Stop.pm b/lib/Travel/Status/DE/HAFAS/Stop.pm
index 81fa170..acee919 100644
--- a/lib/Travel/Status/DE/HAFAS/Stop.pm
+++ b/lib/Travel/Status/DE/HAFAS/Stop.pm
@@ -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};