summaryrefslogtreecommitdiff
path: root/lib/Travel/Status/DE/HAFAS.pm
diff options
context:
space:
mode:
authorDaniel Friesel <derf@finalrewind.org>2015-09-20 12:52:53 +0200
committerDaniel Friesel <derf@finalrewind.org>2015-09-20 12:52:53 +0200
commit476ecf88f84dc52759fbe0a88050d8973b2d5654 (patch)
treed8af9a2ea8f88c791bcaa594390a74c424f4526a /lib/Travel/Status/DE/HAFAS.pm
parentdbf372db2c81ab9e790e9f5934386554157856b7 (diff)
HAFAS: Remove routeinfo extraction, it isn't used anymore
Diffstat (limited to 'lib/Travel/Status/DE/HAFAS.pm')
-rw-r--r--lib/Travel/Status/DE/HAFAS.pm25
1 files changed, 11 insertions, 14 deletions
diff --git a/lib/Travel/Status/DE/HAFAS.pm b/lib/Travel/Status/DE/HAFAS.pm
index 66762f4..ab12cc2 100644
--- a/lib/Travel/Status/DE/HAFAS.pm
+++ b/lib/Travel/Status/DE/HAFAS.pm
@@ -293,7 +293,6 @@ sub results {
my $delay = $tr->getAttribute('delay');
my $e_delay = $tr->getAttribute('e_delay');
my $info = $tr->getAttribute('delayReason');
- my $routeinfo = $tr->textContent;
my @messages;
if ( not( $time and $dest ) ) {
@@ -306,8 +305,7 @@ sub results {
substr( $date, 6, 0, '20' );
- $info //= q{};
- $routeinfo //= q{};
+ $info //= q{};
# delayReason=" " means no delay reason
if ( $info eq q{ } ) {
@@ -319,17 +317,16 @@ sub results {
push(
@{ $self->{results} },
Travel::Status::DE::HAFAS::Result->new(
- date => $date,
- raw_delay => $delay,
- raw_e_delay => $e_delay,
- messages => \@messages,
- time => $time,
- train => $train,
- route_end => $dest,
- platform => $platform,
- new_platform => $new_platform,
- info => $info,
- routeinfo_raw => $routeinfo,
+ date => $date,
+ raw_delay => $delay,
+ raw_e_delay => $e_delay,
+ messages => \@messages,
+ time => $time,
+ train => $train,
+ route_end => $dest,
+ platform => $platform,
+ new_platform => $new_platform,
+ info => $info,
)
);
}