Fix extra info display

2 files changed, 15 insertions, 5 deletions

diff --git a/lib/Travel/Routing/DE/VRR.pm b/lib/Travel/Routing/DE/VRR.pm
index d55ac98..7a0abef 100644
--- a/lib/Travel/Routing/DE/VRR.pm
+++ b/lib/Travel/Routing/DE/VRR.pm
@@ -430,7 +430,9 @@ sub itdtime_str {
 }
 
 sub parse_part {
-	my ($self, $tree) = @_;
+	my ($self, $route) = @_;
+
+	my $info;
 
 	my $xp_route = XML::LibXML::XPathExpression->new('./itdPartialRouteList/itdPartialRoute');
 	my $xp_dep = XML::LibXML::XPathExpression->new('./itdPoint[@usage="departure"]');
@@ -440,10 +442,15 @@ sub parse_part {
 #	my $xp_tdate = XML::LibXML::XPathExpression->new('./itdDateTimeTarget/itdDate');
 #	my $xp_ttime = XML::LibXML::XPathExpression->new('./itdDateTimeTarget/itdTime');
 	my $xp_mot   = XML::LibXML::XPathExpression->new('./itdMeansOfTransport');
+	my $xp_info  = XML::LibXML::XPathExpression->new('./itdInfoTextList/infoTextListElem');
+
 
 	my @route_parts;
 
-	for my $e ( $tree->findnodes($xp_route) ) {
+	$info->{vehicle_time} = $route->getAttribute('vehicleTime');
+	$info->{duration} = $route->getAttribute('publicDuration');
+
+	for my $e ( $route->findnodes($xp_route) ) {
 
 		my $e_dep = ( $e->findnodes($xp_dep) )[0];
 		my $e_arr = ( $e->findnodes($xp_arr) )[0];
@@ -452,6 +459,7 @@ sub parse_part {
 		my $e_adate = ( $e_arr->findnodes($xp_date) )[0];
 		my $e_atime = ( $e_arr->findnodes($xp_time) )[0];
 		my $e_mot  = ( $e->findnodes($xp_mot) )[0];
+		my @e_info = $e->findnodes($xp_info);
 
 		my $hash = {
 			departure_time => $self->itdtime_str($e_dtime),
@@ -470,10 +478,12 @@ sub parse_part {
 			$hash->{$key} = decode('UTF-8', $hash->{$key} );
 		}
 
+		$hash->{extra} = [ map { decode('UTF-8', $_->textContent) } @e_info ];
+
 		push(@route_parts, $hash);
 	}
 
-	push(@{$self->{routes}}, Travel::Routing::DE::VRR::Route->new(@route_parts));
+	push(@{$self->{routes}}, Travel::Routing::DE::VRR::Route->new($info, @route_parts));
 
 	return;
 }
diff --git a/lib/Travel/Routing/DE/VRR/Route.pm b/lib/Travel/Routing/DE/VRR/Route.pm
index e5ffa05..73bda07 100644
--- a/lib/Travel/Routing/DE/VRR/Route.pm
+++ b/lib/Travel/Routing/DE/VRR/Route.pm
@@ -9,9 +9,9 @@ use Travel::Routing::DE::VRR::Route::Part;
 our $VERSION = '1.06';
 
 sub new {
-	my ( $obj, @parts ) = @_;
+	my ( $obj, $info, @parts ) = @_;
 
-	my $ref = {};
+	my $ref = $info;
 
 	for my $part (@parts) {
 		push(