diff options
author | Daniel Friesel <derf@finalrewind.org> | 2015-06-19 15:30:18 +0200 |
---|---|---|
committer | Daniel Friesel <derf@finalrewind.org> | 2015-06-19 15:30:18 +0200 |
commit | d5573d1d4ed6d193aee69956cc4403186a015e2f (patch) | |
tree | a8a862e55a99e2de8e0eb9158edd6e2a431e0dd1 | |
parent | fddd2d516c9d4cbc2f2ed607934b30bcd8c197ed (diff) |
rename (sched|current)_info to (regular|current)_notes
-rwxr-xr-x | bin/efa | 4 | ||||
-rw-r--r-- | lib/Travel/Routing/DE/EFA.pm | 4 | ||||
-rw-r--r-- | lib/Travel/Routing/DE/EFA/Route/Part.pm | 14 |
3 files changed, 11 insertions, 11 deletions
@@ -145,13 +145,13 @@ sub display_connection { $c->delay, $c->departure_stime, $c->arrival_stime ); } - for my $extra ( $c->sched_info ) { + for my $extra ( $c->regular_notes ) { if ( not( length $ignore_info and $extra =~ /$ignore_info/i ) ) { say "# $extra"; } } - for my $notice ( $c->current_info ) { + for my $notice ( $c->current_notes ) { if ( $notice->{subtitle} ne $notice->{subject} ) { printf( "# %s - %s\n", $notice->{subtitle}, $notice->{subject} ); } 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; } |