From 476ecf88f84dc52759fbe0a88050d8973b2d5654 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Sun, 20 Sep 2015 12:52:53 +0200
Subject: HAFAS: Remove routeinfo extraction, it isn't used anymore

---
 lib/Travel/Status/DE/HAFAS.pm | 25 +++++++++++--------------
 1 file 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,
 			)
 		);
 	}
-- 
cgit v1.2.3