diff options
author | Daniel Friesel <derf@finalrewind.org> | 2017-01-25 23:16:14 +0100 |
---|---|---|
committer | Daniel Friesel <derf@finalrewind.org> | 2017-01-25 23:16:14 +0100 |
commit | d4c26415287f172a45b967c9c31910fb5e9689fe (patch) | |
tree | 2ecc1df5a31d7f67c3531a629860813c72d84fc8 /lib | |
parent | 1b924c9395fe13a17384192b16796b5040c84e22 (diff) |
Fix Result->line_no (now belongs to <ar>/<dp>, no longer <tl>)
Diffstat (limited to 'lib')
-rw-r--r-- | lib/Travel/Status/DE/IRIS.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/Travel/Status/DE/IRIS.pm b/lib/Travel/Status/DE/IRIS.pm index 091c607..fc7d8cc 100644 --- a/lib/Travel/Status/DE/IRIS.pm +++ b/lib/Travel/Status/DE/IRIS.pm @@ -262,7 +262,6 @@ sub add_result { unknown_t => $e_tl->getAttribute('t'), # p train_no => $e_tl->getAttribute('n'), # dep number type => $e_tl->getAttribute('c'), # S/ICE/ERB/... - line_no => $e_tl->getAttribute('l'), # 1 -> S1, ... station => $station, unknown_o => $e_tl->getAttribute('o'), # owner: 03/80/R2/... strptime_obj => $self->{strptime_obj}, @@ -270,6 +269,7 @@ sub add_result { if ($e_ar) { $data{arrival_ts} = $e_ar->getAttribute('pt'); + $data{line_no} = $e_ar->getAttribute('l'); $data{platform} = $e_ar->getAttribute('pp'); # string, not number! $data{route_pre} = $e_ar->getAttribute('ppth'); $data{route_start} = $e_ar->getAttribute('pde'); @@ -280,6 +280,7 @@ sub add_result { if ($e_dp) { $data{departure_ts} = $e_dp->getAttribute('pt'); + $data{line_no} = $e_dp->getAttribute('l'); $data{platform} = $e_dp->getAttribute('pp'); # string, not number! $data{route_post} = $e_dp->getAttribute('ppth'); $data{route_end} = $e_dp->getAttribute('pde'); |