diff options
Diffstat (limited to 'lib/Travel/Routing')
| -rw-r--r-- | lib/Travel/Routing/DE/VRR.pm | 16 | ||||
| -rw-r--r-- | lib/Travel/Routing/DE/VRR/Route.pm | 4 |
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( |