diff options
Diffstat (limited to 'lib/Travel')
-rw-r--r-- | lib/Travel/Routing/DE/EFA.pm | 4 | ||||
-rw-r--r-- | lib/Travel/Routing/DE/EFA/Route/Part.pm | 14 |
2 files changed, 9 insertions, 9 deletions
diff --git a/lib/Travel/Routing/DE/EFA.pm b/lib/Travel/Routing/DE/EFA.pm index f423cf8..c21a349 100644 --- a/lib/Travel/Routing/DE/EFA.pm +++ b/lib/Travel/Routing/DE/EFA.pm @@ -690,9 +690,9 @@ sub parse_xml_part { ); } - $hash->{sched_info} + $hash->{regular_notes} = [ map { decode( 'UTF-8', $_->textContent ) } @e_sinfo ]; - $hash->{current_info} = [ map { $self->parse_cur_info($_) } @e_cinfo ]; + $hash->{current_notes} = [ map { $self->parse_cur_info($_) } @e_cinfo ]; push( @route_parts, $hash ); } diff --git a/lib/Travel/Routing/DE/EFA/Route/Part.pm b/lib/Travel/Routing/DE/EFA/Route/Part.pm index 3bf5d60..ab94b12 100644 --- a/lib/Travel/Routing/DE/EFA/Route/Part.pm +++ b/lib/Travel/Routing/DE/EFA/Route/Part.pm @@ -86,23 +86,23 @@ sub footpath_parts { sub extra { my ($self) = @_; - return @{ $self->{sched_info} // [] }; + return @{ $self->{regular_notes} // [] }; } -sub sched_info { +sub regular_notes { my ($self) = @_; - if ( $self->{sched_info} ) { - return @{ $self->{sched_info} }; + if ( $self->{regular_notes} ) { + return @{ $self->{regular_notes} }; } return; } -sub current_info { +sub current_notes { my ($self) = @_; - if ( $self->{current_info} ) { - return @{ $self->{current_info} }; + if ( $self->{current_notes} ) { + return @{ $self->{current_notes} }; } return; } |